… | |
… | |
109 | $self->{cur} = $tab; |
109 | $self->{cur} = $tab; |
110 | |
110 | |
111 | $self->configure; |
111 | $self->configure; |
112 | $tab->focus_in; |
112 | $tab->focus_in; |
113 | $tab->XMapWindow ($tab->parent); |
113 | $tab->XMapWindow ($tab->parent); |
|
|
114 | delete $tab->{activity}; |
114 | $self->refresh; |
115 | $self->refresh; |
115 | delete $tab->{activity}; |
|
|
116 | |
116 | |
117 | () |
117 | () |
118 | } |
118 | } |
119 | |
119 | |
120 | sub on_button_press { |
120 | sub on_button_press { |
… | |
… | |
216 | } |
216 | } |
217 | |
217 | |
218 | sub tab_key_press { |
218 | sub tab_key_press { |
219 | my ($self, $tab, $event, $keysym, $str) = @_; |
219 | my ($self, $tab, $event, $keysym, $str) = @_; |
220 | |
220 | |
221 | if ($event->{state} & urxvt::ShiftMask |
221 | if ($event->{state} & urxvt::ShiftMask) { |
222 | && ($keysym == 0xff51 || $keysym == 0xff53)) { |
222 | if ($keysym == 0xff51 || $keysym == 0xff53) { |
223 | my ($idx) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} }; |
223 | my ($idx) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} }; |
224 | |
224 | |
225 | --$idx if $keysym == 0xff51; |
225 | --$idx if $keysym == 0xff51; |
226 | ++$idx if $keysym == 0xff53; |
226 | ++$idx if $keysym == 0xff53; |
227 | |
227 | |
228 | $self->make_current ($self->{tabs}[$idx % @{ $self->{tabs}}]); |
228 | $self->make_current ($self->{tabs}[$idx % @{ $self->{tabs}}]); |
229 | $self->refresh; |
229 | |
|
|
230 | return 1; |
|
|
231 | } elsif ($keysym == 0xff54) { |
|
|
232 | $self->new_tab; |
|
|
233 | |
|
|
234 | return 1; |
230 | |
235 | } |
231 | return 1; |
|
|
232 | } |
236 | } |
233 | |
237 | |
234 | () |
238 | () |
235 | } |
239 | } |
236 | |
240 | |