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

Comparing rxvt-unicode/src/perl/tabbed (file contents):
Revision 1.24 by root, Sun Jun 15 14:07:58 2008 UTC vs.
Revision 1.26 by sf-exg, Mon Sep 26 10:12:30 2011 UTC

    # save a backlink to us, make sure tabbed is inactive
    push @urxvt::TERM_INIT, sub {
       my ($term) = @_;
       $term->{parent} = $self;
-      $term->resource ($_->[0] => $_->[1])
+      for (0 .. urxvt::NUM_RESOURCES - 1) {
-         for @{ $self->{resource} || [] };
+         my $value = $self->{resource}[$_];
+         $term->resource ("+$_" => $value)
+            if defined $value;
+      }
       $term->resource (perl_ext_2 => $term->resource ("perl_ext_2") . ",-tabbed");
    };
    push @urxvt::TERM_EXT, urxvt::ext::tabbed::tab::;
    $self->{cur}->focus_out;
    ()
 }
+sub on_tt_write {
+    my ($self, $octets) = @_;
+    $self->{cur}->tt_write ($octets);
+    1
+}
 sub on_key_press {
    my ($self, $event) = @_;
    $self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time});
 }
 sub on_init {
    my ($self) = @_;
-   for (qw(name chdir perl_ext_1 perl_ext_2)) {
+   $self->{resource} = [map $self->resource ("+$_"), 0 .. urxvt::NUM_RESOURCES - 1];
-      my $val = $self->resource ($_);
-      push @{ $self->{resource} }, [$_ => $val]
-        if defined $val;
-   }
    $self->resource (int_bwidth => 0);
    $self->resource (name => "URxvt.tabbed");
    $self->resource (pty_fd => -1);

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