… | |
… | |
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 | } |