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

Comparing rxvt-unicode/src/perl/tabbed (file contents):
Revision 1.4 by root, Fri Jan 20 13:32:29 2006 UTC vs.
Revision 1.5 by root, Fri Jan 20 14:02:41 2006 UTC

 }
 sub configure {
    my ($self) = @_;
+   my $tab = $self->{cur};
-   $self->{cur}->XMoveResizeWindow (
+   $tab->XMoveResizeWindow (
-      $self->{cur}->parent,
+      $tab->parent,
       0, $self->{tabheight},
       $self->width, $self->height - $self->{tabheight}
    );
+   my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS");
+   for my $atom ($tab->XListProperties ($tab->parent)) {
+      my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom);
+      if ($atom == $wm_normal_hints) {
+         my (@hints) = unpack "l!*", $items;
+         $hints[ 4] += $self->{tabheight};
+         $hints[16] += $self->{tabheight};
+      }
+      $self->XChangeWindowProperty ($self->parent, $atom, $type, $format, $items);
+   }
 }
 sub make_current {
    my ($self, $tab) = @_;
    }
    $self->{cur} = $tab;
    $self->configure;
-   my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS");
-   for my $atom ($tab->XListProperties ($tab->parent)) {
-      my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom);
-      if ($atom == $wm_normal_hints) {
-         my (@hints) = unpack "l!*", $items;
-         $hints[ 4] += $self->{tabheight};
-         $hints[16] += $self->{tabheight};
-         $items = pack "l!*", @hints;
-      }
-      $self->XChangeWindowProperty ($self->parent, $atom, $type, $format, $items);
-   }
    $tab->XMapWindow ($tab->parent);
    $self->refresh;

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