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

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

 }
 sub configure {
    my ($self) = @_;
-   my $tabheight = $self->int_bwidth + $self->fheight + $self->lineSpace;
+   my $tab = $self->{cur};
-   $self->{cur}->XMoveResizeWindow (
+   $tab->XMoveResizeWindow (
-      $self->{cur}->parent,
+      $tab->parent,
-      0, $tabheight,
+      0, $self->{tabheight},
-      $self->width, $self->height - $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;
-   for my $atom ($tab->XListProperties) {
-      warn "$atom\n";
-   }
    $tab->XMapWindow ($tab->parent);
    $self->refresh;
    ()
 }
 sub on_start {
    my ($self) = @_;
+   $self->{tabheight} = $self->int_bwidth + $self->fheight + $self->lineSpace;
    $self->cmd_parse ("\x1b[?25l\x1b[?7l");
    $self->new_tab;
    $self->new_tab;
    $self->new_tab;

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