[ViewVC] Diff of: cvs/rxvt-unicode/src/perl/tabbed

Comparing rxvt-unicode/src/perl/tabbed (file contents):
Revision 1.21 by root, Mon Feb 20 20:44:22 2006 UTC vs.
Revision 1.23 by root, Sun Jun 15 13:54:16 2008 UTC

       $term->resource ($_->[0] => $_->[1])
          for @{ $self->{resource} || [] };
       $term->resource (perl_ext_2 => $term->resource ("perl_ext_2") . ",-tabbed");
    };
    push @urxvt::TERM_EXT, urxvt::ext::tabbed::tab::;
    my $term = new urxvt::term
 }
 sub on_init {
    my ($self) = @_;
-   for (qw(name perl_ext_1 perl_ext_2)) {
+   for (qw(name chdir perl_ext_1 perl_ext_2)) {
       my $val = $self->resource ($_);
       push @{ $self->{resource} }, [$_ => $val]
         if defined $val;
    }
          $self->make_current ($self->{tabs}[$idx % @{ $self->{tabs}}]);
          return 1;
       } elsif ($keysym == 0xff54) {
          $self->new_tab;
+         return 1;
+      }
+   }
+   elsif ($event->{state} & urxvt::ControlMask) {
+      if ($keysym == 0xff51 || $keysym == 0xff53) {
+         my ($idx1) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} };
+         my  $idx2  = ($idx1 + ($keysym == 0xff51 ? -1 : +1)) % @{ $self->{tabs} };
+         ($self->{tabs}[$idx1], $self->{tabs}[$idx2]) =
+            ($self->{tabs}[$idx2], $self->{tabs}[$idx1]);
+         $self->make_current ($self->{tabs}[$idx2]);
          return 1;
       }
    }

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