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