| … | |
… | |
| 1957 | ocrow = oldcursor.row; /* is there an old outline cursor on screen? */ |
1957 | ocrow = oldcursor.row; /* is there an old outline cursor on screen? */ |
| 1958 | |
1958 | |
| 1959 | /* |
1959 | /* |
| 1960 | * B: reverse any characters which are selected |
1960 | * B: reverse any characters which are selected |
| 1961 | */ |
1961 | */ |
| 1962 | PERL_INVOKE ((this, HOOK_REFRESH_BEGIN, DT_END)); |
|
|
| 1963 | scr_reverse_selection (); |
1962 | scr_reverse_selection (); |
| 1964 | |
1963 | |
| 1965 | /* |
1964 | /* |
| 1966 | * C: set the cursor character (s) |
1965 | * C: set the cursor character (s) |
| 1967 | */ |
1966 | */ |
| … | |
… | |
| 2048 | oldcursor.col = screen.cur.col; |
2047 | oldcursor.col = screen.cur.col; |
| 2049 | } |
2048 | } |
| 2050 | } |
2049 | } |
| 2051 | } |
2050 | } |
| 2052 | |
2051 | |
|
|
2052 | PERL_INVOKE ((this, HOOK_REFRESH_BEGIN, DT_END)); |
| 2053 | #if ENABLE_OVERLAY |
2053 | #if ENABLE_OVERLAY |
| 2054 | scr_swap_overlay (); |
2054 | scr_swap_overlay (); |
| 2055 | #endif |
2055 | #endif |
| 2056 | |
2056 | |
| 2057 | #ifndef NO_SLOW_LINK_SUPPORT |
2057 | #ifndef NO_SLOW_LINK_SUPPORT |
| … | |
… | |
| 2320 | } /* for (row....) */ |
2320 | } /* for (row....) */ |
| 2321 | |
2321 | |
| 2322 | #if ENABLE_OVERLAY |
2322 | #if ENABLE_OVERLAY |
| 2323 | scr_swap_overlay (); |
2323 | scr_swap_overlay (); |
| 2324 | #endif |
2324 | #endif |
|
|
2325 | PERL_INVOKE ((this, HOOK_REFRESH_END, DT_END)); |
| 2325 | |
2326 | |
| 2326 | /* |
2327 | /* |
| 2327 | * G: cleanup cursor and display outline cursor if necessary |
2328 | * G: cleanup cursor and display outline cursor if necessary |
| 2328 | */ |
2329 | */ |
| 2329 | if (showcursor) |
2330 | if (showcursor) |
| … | |
… | |
| 2367 | |
2368 | |
| 2368 | /* |
2369 | /* |
| 2369 | * H: cleanup selection |
2370 | * H: cleanup selection |
| 2370 | */ |
2371 | */ |
| 2371 | scr_reverse_selection (); |
2372 | scr_reverse_selection (); |
| 2372 | PERL_INVOKE ((this, HOOK_REFRESH_END, DT_END)); |
|
|
| 2373 | |
2373 | |
| 2374 | if (refresh_type & SMOOTH_REFRESH) |
2374 | if (refresh_type & SMOOTH_REFRESH) |
| 2375 | XFlush (display->display); |
2375 | XFlush (display->display); |
| 2376 | |
2376 | |
| 2377 | num_scr = 0; |
2377 | num_scr = 0; |
| … | |
… | |
| 3323 | else if (selection.clicks == 2) |
3323 | else if (selection.clicks == 2) |
| 3324 | { |
3324 | { |
| 3325 | if (ROWCOL_IS_AFTER (selection.end, selection.beg)) |
3325 | if (ROWCOL_IS_AFTER (selection.end, selection.beg)) |
| 3326 | selection.end.col--; |
3326 | selection.end.col--; |
| 3327 | |
3327 | |
|
|
3328 | if (!PERL_INVOKE ((this, HOOK_SEL_EXTEND, DT_END))) |
|
|
3329 | { |
| 3328 | selection_delimit_word (UP, &selection.beg, &selection.beg); |
3330 | selection_delimit_word (UP, &selection.beg, &selection.beg); |
| 3329 | selection_delimit_word (DN, &selection.end, &selection.end); |
3331 | selection_delimit_word (DN, &selection.end, &selection.end); |
|
|
3332 | } |
| 3330 | } |
3333 | } |
| 3331 | else if (selection.clicks == 3) |
3334 | else if (selection.clicks == 3) |
| 3332 | { |
3335 | { |
| 3333 | #if ENABLE_FRILLS |
3336 | #if ENABLE_FRILLS |
| 3334 | if (OPTION (Opt_tripleclickwords)) |
3337 | if (OPTION (Opt_tripleclickwords)) |
