repo: rxvt-unicode-sixel
action: commit
revision: 
path_from: 
revision_from: 635d0f83e067be3e6be3ac2ae6053e65d872b892:
path_to: 
revision_to: 

commit 635d0f83e067be3e6be3ac2ae6053e65d872b892
Author: Marc Lehmann 
Date:   Fri Jan 20 14:02:41 2006 +0000

    *** empty log message ***

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

--- a/src/perl/tabbed
+++ b/src/perl/tabbed
@@ -51,24 +51,13 @@ sub new_tab {
 sub configure {
    my ($self) = @_;

-   $self->{cur}->XMoveResizeWindow (
-      $self->{cur}->parent,
+   my $tab = $self->{cur};
+
+   $tab->XMoveResizeWindow (
+      $tab->parent,
       0, $self->{tabheight},
       $self->width, $self->height - $self->{tabheight}
    );
-}
-
-sub make_current {
-   my ($self, $tab) = @_;
-
-   if (my $cur = $self->{cur}) {
-      $cur->XUnmapWindow ($cur->parent)
-         if $cur->mapped;
-   }
-   
-   $self->{cur} = $tab;
-
-   $self->configure;

    my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS");

@@ -77,12 +66,25 @@ sub make_current {

       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);
    }
+}
+
+sub make_current {
+   my ($self, $tab) = @_;
+
+   if (my $cur = $self->{cur}) {
+      $cur->XUnmapWindow ($cur->parent)
+         if $cur->mapped;
+   }
+   
+   $self->{cur} = $tab;
+
+   $self->configure;

    $tab->XMapWindow ($tab->parent);

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