From e80fdc8ebb807632f320a5917b295daadf0d06cb Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 26 Mar 2008 04:45:41 +0100
Subject: Fix bugs in Tabbed and TabBarDecoration -- please remember
 multi-head!

darcs-hash:20080326034541-a5988-94e33a7c01ac2ec88fe8601c7fd77536c48ea6d2.gz
---
 XMonad/Layout/Tabbed.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Layout/Tabbed.hs')

diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index 1dc6524..e1a45c8 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -116,7 +116,7 @@ instance Eq a => DecorationStyle TabbedDecoration a where
         where ws = filter (`elem` map fst (filter ((==r) . snd) wrs)) (S.integrate s)
               loc i = (wh * fi i) `div` max 1 (fi $ length ws)
               wid = maybe (fi x) (\i -> loc (i+1) - loc i) $ w `elemIndex` ws
-              nx  = maybe x (fi . loc) $ w `elemIndex` ws
+              nx  = (x +) $ maybe 0 (fi . loc) $ w `elemIndex` ws
     shrink ds (Rectangle _ _ _ dh) (Rectangle x y w h) = case ds of
         Tabbed -> Rectangle x (y + fi dh) w (h - dh)
         TabbedBottom -> Rectangle x y w (h - dh)
-- 
cgit v1.2.3