From: root <root>
Date: Fri, 20 Jan 2006 14:02:41 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://git.openbox.org/?a=commitdiff_plain;h=b342d7891a0a93c276290be3a0242c18236cabbb;p=dana%2Furxvt.git

*** empty log message ***
---

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);