From b342d7891a0a93c276290be3a0242c18236cabbb Mon Sep 17 00:00:00 2001
From: root <root>
Date: Fri, 20 Jan 2006 14:02:41 +0000
Subject: [PATCH] *** empty log message ***

---
 src/perl/tabbed | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/src/perl/tabbed b/src/perl/tabbed
index a049432c..3e16b46d 100644
--- 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);
 
-- 
2.34.1