ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/tabbed
(Generate patch)

Comparing rxvt-unicode/src/perl/tabbed (file contents):
Revision 1.36 by root, Sat May 25 23:14:08 2013 UTC vs.
Revision 1.39 by sf-exg, Sun Feb 26 06:36:46 2017 UTC

1#! perl 1#! perl
2 2
3#:META:X_RESOURCE:tabbar-fg:colour:tab bar foreground colour 3#:META:RESOURCE:tabbar-fg:colour:tab bar foreground colour
4#:META:X_RESOURCE:tabbar-bg:colour:tab bar background colour 4#:META:RESOURCE:tabbar-bg:colour:tab bar background colour
5#:META:X_RESOURCE:tab-fg:colour:tab foreground colour 5#:META:RESOURCE:tab-fg:colour:tab foreground colour
6#:META:X_RESOURCE:tab-bg:colour:tab background colour 6#:META:RESOURCE:tab-bg:colour:tab background colour
7 7
8=head1 NAME 8=head1 NAME
9 9
10tabbed - tabbed interface to urxvt 10tabbed - tabbed interface to urxvt
11 11
… …
29 URxvt.tabbed.tabbar-fg: <colour-index, default 3> 29 URxvt.tabbed.tabbar-fg: <colour-index, default 3>
30 URxvt.tabbed.tabbar-bg: <colour-index, default 0> 30 URxvt.tabbed.tabbar-bg: <colour-index, default 0>
31 URxvt.tabbed.tab-fg: <colour-index, default 0> 31 URxvt.tabbed.tab-fg: <colour-index, default 0>
32 URxvt.tabbed.tab-bg: <colour-index, default 1> 32 URxvt.tabbed.tab-bg: <colour-index, default 1>
33 33
34See I<COLOR AND GRAPHICS> in the @@RXVT_NAME@@(1) manpage for valid 34See I<COLOR AND GRAPHICS> in the urxvt(1) manpage for valid
35indices. 35indices.
36 36
37=cut 37=cut
38 38
39sub refresh { 39sub refresh {
… …
214 214
215sub on_key_press { 215sub on_key_press {
216 my ($self, $event) = @_; 216 my ($self, $event) = @_;
217 217
218 $self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time}); 218 $self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time});
219 $self->{cur}->refresh_check;
219 220
220 1 221 1
221} 222}
222 223
223sub on_key_release { 224sub on_key_release {
224 my ($self, $event) = @_; 225 my ($self, $event) = @_;
225 226
226 $self->{cur}->key_release ($event->{state}, $event->{keycode}, $event->{time}); 227 $self->{cur}->key_release ($event->{state}, $event->{keycode}, $event->{time});
228 $self->{cur}->refresh_check;
227 229
228 1 230 1
229} 231}
230 232
231sub on_button_press { 233sub on_button_press {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines