summaryrefslogtreecommitdiffhomepage
path: root/Xmobar.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2008-01-09 10:43:54 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2008-01-09 10:43:54 +0100
commit86c839b6ef4eda5ef13514227c00248e1929cc45 (patch)
tree986b1d80eb49a5e98726c9c35ad01af4c7d5a007 /Xmobar.hs
parent81a2809683ceda6475d6d42df644dce102dd290b (diff)
downloadxmobar-86c839b6ef4eda5ef13514227c00248e1929cc45.tar.gz
xmobar-86c839b6ef4eda5ef13514227c00248e1929cc45.tar.bz2
Set strut value for BottomW and TopW too
darcs-hash:20080109094354-d6583-0e81ffb45e681adf42ae0887372895f340ddd6fe.gz
Diffstat (limited to 'Xmobar.hs')
-rw-r--r--Xmobar.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/Xmobar.hs b/Xmobar.hs
index 0b541f8..4ee8772 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -175,9 +175,11 @@ setProperties h c d w = do
getStrutValues :: Dimension -> Config -> [Int]
getStrutValues h c =
case position c of
- Top -> [0, 0, fi h, 0 ]
- Bottom -> [0, 0, 0 , fi h]
- _ -> [0, 0, 0 , 0 ]
+ Top -> [0, 0, fi h, 0 ]
+ TopW _ _ -> [0, 0, fi h, 0 ]
+ Bottom -> [0, 0, 0 , fi h]
+ BottomW _ _ -> [0, 0, 0 , fi h]
+ _ -> [0, 0, 0 , 0 ]
updateWin :: TVar String -> X ()
updateWin v = do