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/TabBarDecoration.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/XMonad/Layout/TabBarDecoration.hs b/XMonad/Layout/TabBarDecoration.hs
index 9339a64..5305428 100644
--- a/XMonad/Layout/TabBarDecoration.hs
+++ b/XMonad/Layout/TabBarDecoration.hs
@@ -75,4 +75,4 @@ instance Eq a => DecorationStyle TabBarDecoration a where
               ny  = case p of
                      Top    -> y
                      Bottom -> y + fi ht - fi dht
-              nx  = maybe x (fi . loc) $ w `elemIndex` wrs
+              nx  = (x +) $ maybe 0 (fi . loc) $ w `elemIndex` wrs
-- 
cgit v1.2.3