repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 32c7df3f4eaf16c4a7398eebba73c57ba55de60f:
path_to: 
revision_to: 

commit 32c7df3f4eaf16c4a7398eebba73c57ba55de60f
Author: Marc Lehmann 
Date:   Fri Jan 20 15:47:55 2006 +0000

    *** empty log message ***

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

--- a/src/perl/tabbed
+++ b/src/perl/tabbed
@@ -210,13 +210,32 @@ sub tab_destroy {
    ()
 }

+sub tab_key_press {
+   my ($self, $tab, $event, $keysym, $str) = @_;
+
+   if ($event->{state} & urxvt::ShiftMask
+       && ($keysym == 0xff51 || $keysym == 0xff53)) {
+      my ($idx) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} };
+
+      --$idx if $keysym == 0xff51;
+      ++$idx if $keysym == 0xff53;
+
+      $self->make_current ($self->{tabs}[$idx % @{ $self->{tabs}}]);
+      $self->refresh;
+      
+      return 1;
+   }
+
+   ()
+}
+
 package urxvt::ext::tabbed::tab;

 # helper extension implementing the subwindows of a tabbed terminal.
 # simply proxies all interesting calls back to the tabbed class.

 {
-   for my $hook qw(start destroy) {
+   for my $hook qw(start destroy key_press) {
       eval qq{
          sub on_$hook {
             my \$parent = \$_[0]{term}{parent}

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