| … | |
… | |
| 414 | for (int col = ncol; col--; ) |
414 | for (int col = ncol; col--; ) |
| 415 | tabs [col] = col % TABSIZE == 0; |
415 | tabs [col] = col % TABSIZE == 0; |
| 416 | |
416 | |
| 417 | tt_winch (); |
417 | tt_winch (); |
| 418 | |
418 | |
| 419 | PERL_INVOKE ((this, HOOK_RESET, DT_END)); |
419 | HOOK_INVOKE ((this, HOOK_RESET, DT_END)); |
| 420 | } |
420 | } |
| 421 | |
421 | |
| 422 | /* ------------------------------------------------------------------------- */ |
422 | /* ------------------------------------------------------------------------- */ |
| 423 | /* |
423 | /* |
| 424 | * Free everything. That way malloc debugging can find leakage. |
424 | * Free everything. That way malloc debugging can find leakage. |
| … | |
… | |
| 618 | && row2 == nrow - 1 |
618 | && row2 == nrow - 1 |
| 619 | && (current_screen == PRIMARY || OPTION (Opt_secondaryScroll))) |
619 | && (current_screen == PRIMARY || OPTION (Opt_secondaryScroll))) |
| 620 | { |
620 | { |
| 621 | nsaved = min (nsaved + count, saveLines); |
621 | nsaved = min (nsaved + count, saveLines); |
| 622 | |
622 | |
| 623 | PERL_INVOKE ((this, HOOK_SCROLL_BACK, DT_INT, count, DT_INT, nsaved, DT_END)); |
623 | HOOK_INVOKE ((this, HOOK_SCROLL_BACK, DT_INT, count, DT_INT, nsaved, DT_END)); |
| 624 | |
624 | |
| 625 | term_start = (term_start + count) % total_rows; |
625 | term_start = (term_start + count) % total_rows; |
| 626 | |
626 | |
| 627 | if (selection.op && current_screen == selection.screen) |
627 | if (selection.op && current_screen == selection.screen) |
| 628 | { |
628 | { |
| … | |
… | |
| 1833 | int |
1833 | int |
| 1834 | rxvt_term::scr_changeview (unsigned int oldviewstart) |
1834 | rxvt_term::scr_changeview (unsigned int oldviewstart) |
| 1835 | { |
1835 | { |
| 1836 | if (view_start != oldviewstart) |
1836 | if (view_start != oldviewstart) |
| 1837 | { |
1837 | { |
| 1838 | PERL_INVOKE ((this, HOOK_VIEW_CHANGE, DT_INT, view_start, DT_END)); |
1838 | HOOK_INVOKE ((this, HOOK_VIEW_CHANGE, DT_INT, view_start, DT_END)); |
| 1839 | |
1839 | |
| 1840 | want_refresh = 1; |
1840 | want_refresh = 1; |
| 1841 | num_scr -= (view_start - oldviewstart); |
1841 | num_scr -= (view_start - oldviewstart); |
| 1842 | } |
1842 | } |
| 1843 | |
1843 | |
| … | |
… | |
| 2053 | oldcursor.col = screen.cur.col; |
2053 | oldcursor.col = screen.cur.col; |
| 2054 | } |
2054 | } |
| 2055 | } |
2055 | } |
| 2056 | } |
2056 | } |
| 2057 | |
2057 | |
| 2058 | PERL_INVOKE ((this, HOOK_REFRESH_BEGIN, DT_END)); |
2058 | HOOK_INVOKE ((this, HOOK_REFRESH_BEGIN, DT_END)); |
| 2059 | #if ENABLE_OVERLAY |
2059 | #if ENABLE_OVERLAY |
| 2060 | scr_swap_overlay (); |
2060 | scr_swap_overlay (); |
| 2061 | #endif |
2061 | #endif |
| 2062 | |
2062 | |
| 2063 | #ifndef NO_SLOW_LINK_SUPPORT |
2063 | #ifndef NO_SLOW_LINK_SUPPORT |
| … | |
… | |
| 2326 | } /* for (row....) */ |
2326 | } /* for (row....) */ |
| 2327 | |
2327 | |
| 2328 | #if ENABLE_OVERLAY |
2328 | #if ENABLE_OVERLAY |
| 2329 | scr_swap_overlay (); |
2329 | scr_swap_overlay (); |
| 2330 | #endif |
2330 | #endif |
| 2331 | PERL_INVOKE ((this, HOOK_REFRESH_END, DT_END)); |
2331 | HOOK_INVOKE ((this, HOOK_REFRESH_END, DT_END)); |
| 2332 | |
2332 | |
| 2333 | /* |
2333 | /* |
| 2334 | * G: cleanup cursor and display outline cursor if necessary |
2334 | * G: cleanup cursor and display outline cursor if necessary |
| 2335 | */ |
2335 | */ |
| 2336 | if (showcursor) |
2336 | if (showcursor) |
| … | |
… | |
| 2890 | selection.op = SELECTION_DONE; |
2890 | selection.op = SELECTION_DONE; |
| 2891 | |
2891 | |
| 2892 | if (selection.clicks == 4) |
2892 | if (selection.clicks == 4) |
| 2893 | return; /* nothing selected, go away */ |
2893 | return; /* nothing selected, go away */ |
| 2894 | |
2894 | |
| 2895 | if (PERL_INVOKE ((this, HOOK_SEL_MAKE, DT_LONG, (long)tm, DT_END))) |
2895 | if (HOOK_INVOKE ((this, HOOK_SEL_MAKE, DT_LONG, (long)tm, DT_END))) |
| 2896 | return; |
2896 | return; |
| 2897 | |
2897 | |
| 2898 | i = (selection.end.row - selection.beg.row + 1) * (ncol + 1); |
2898 | i = (selection.end.row - selection.beg.row + 1) * (ncol + 1); |
| 2899 | new_selection_text = (wchar_t *)rxvt_malloc ((i + 4) * sizeof (wchar_t)); |
2899 | new_selection_text = (wchar_t *)rxvt_malloc ((i + 4) * sizeof (wchar_t)); |
| 2900 | |
2900 | |
| … | |
… | |
| 2985 | |
2985 | |
| 2986 | // we usually allocate much more than necessary, so realloc it smaller again |
2986 | // we usually allocate much more than necessary, so realloc it smaller again |
| 2987 | selection.len = ofs; |
2987 | selection.len = ofs; |
| 2988 | selection.text = (wchar_t *)rxvt_realloc (new_selection_text, (ofs + 1) * sizeof (wchar_t)); |
2988 | selection.text = (wchar_t *)rxvt_realloc (new_selection_text, (ofs + 1) * sizeof (wchar_t)); |
| 2989 | |
2989 | |
| 2990 | if (PERL_INVOKE ((this, HOOK_SEL_GRAB, DT_LONG, (long)tm, DT_END))) |
2990 | if (HOOK_INVOKE ((this, HOOK_SEL_GRAB, DT_LONG, (long)tm, DT_END))) |
| 2991 | return; |
2991 | return; |
| 2992 | |
2992 | |
| 2993 | selection_grab (tm); |
2993 | selection_grab (tm); |
| 2994 | } |
2994 | } |
| 2995 | |
2995 | |
| … | |
… | |
| 3331 | else if (selection.clicks == 2) |
3331 | else if (selection.clicks == 2) |
| 3332 | { |
3332 | { |
| 3333 | if (ROWCOL_IS_AFTER (selection.end, selection.beg)) |
3333 | if (ROWCOL_IS_AFTER (selection.end, selection.beg)) |
| 3334 | selection.end.col--; |
3334 | selection.end.col--; |
| 3335 | |
3335 | |
| 3336 | if (!PERL_INVOKE ((this, HOOK_SEL_EXTEND, DT_END))) |
3336 | if (!HOOK_INVOKE ((this, HOOK_SEL_EXTEND, DT_END))) |
| 3337 | { |
3337 | { |
| 3338 | selection_delimit_word (UP, &selection.beg, &selection.beg); |
3338 | selection_delimit_word (UP, &selection.beg, &selection.beg); |
| 3339 | selection_delimit_word (DN, &selection.end, &selection.end); |
3339 | selection_delimit_word (DN, &selection.end, &selection.end); |
| 3340 | } |
3340 | } |
| 3341 | } |
3341 | } |
