repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 9346d49bc2104e65fec404326cd82c53cb23b5a9:
path_to: 
revision_to: 

commit 9346d49bc2104e65fec404326cd82c53cb23b5a9
Author: Emanuele Giaquinta 
Date:   Fri Jan 16 20:13:01 2015 +0000

    In tabbed, check for a pending refresh in the active tab after forwarding a key press/release event to it.

diff --git a/src/perl/tabbed b/src/perl/tabbed

--- a/src/perl/tabbed
+++ b/src/perl/tabbed
@@ -216,6 +216,7 @@ sub on_key_press {
    my ($self, $event) = @_;

    $self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time});
+   $self->{cur}->refresh_check;

    1
 }
@@ -224,6 +225,7 @@ sub on_key_release {
    my ($self, $event) = @_;

    $self->{cur}->key_release ($event->{state}, $event->{keycode}, $event->{time});
+   $self->{cur}->refresh_check;

    1
 }
diff --git a/src/rxvtperl.xs b/src/rxvtperl.xs

--- a/src/rxvtperl.xs
+++ b/src/rxvtperl.xs
@@ -1575,6 +1575,9 @@ rxvt_term::want_refresh ()
         THIS->want_refresh = 1;
 	THIS->refresh_check ();

+void
+rxvt_term::refresh_check ()
+
 void
 rxvt_term::ROW_t (int row_number, SV *new_text = 0, int start_col = 0, int start_ofs = 0, int max_len = MAX_COLS)
 	PPCODE:
diff --git a/src/urxvt.pm b/src/urxvt.pm

--- a/src/urxvt.pm
+++ b/src/urxvt.pm
@@ -1699,6 +1699,10 @@ differ, it redraws the differences.

 Used after changing terminal contents to display them.

+=item $term->refresh_check
+
+Checks if a refresh has been requested and, if so, schedules one.
+
 =item $text = $term->ROW_t ($row_number[, $new_text[, $start_col]])

 Returns the text of the entire row with number C<$row_number>. Row C<< $term->top_row >>

-----END OF PAGE-----