| … | |
… | |
| 323 | $self->new_tab; |
323 | $self->new_tab; |
| 324 | |
324 | |
| 325 | return 1; |
325 | return 1; |
| 326 | } |
326 | } |
| 327 | } |
327 | } |
|
|
328 | elsif ($event->{state} & urxvt::ControlMask) { |
|
|
329 | if ($keysym == 0xff51 || $keysym == 0xff53) { |
|
|
330 | my ($idx1) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} }; |
|
|
331 | my $idx2 = ($idx1 + ($keysym == 0xff51 ? -1 : +1)) % @{ $self->{tabs} }; |
|
|
332 | |
|
|
333 | ($self->{tabs}[$idx1], $self->{tabs}[$idx2]) = |
|
|
334 | ($self->{tabs}[$idx2], $self->{tabs}[$idx1]); |
|
|
335 | |
|
|
336 | $self->make_current ($self->{tabs}[$idx2]); |
|
|
337 | |
|
|
338 | return 1; |
|
|
339 | } |
|
|
340 | } |
| 328 | |
341 | |
| 329 | () |
342 | () |
| 330 | } |
343 | } |
| 331 | |
344 | |
| 332 | sub tab_property_notify { |
345 | sub tab_property_notify { |
