From 86c839b6ef4eda5ef13514227c00248e1929cc45 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Wed, 9 Jan 2008 10:43:54 +0100 Subject: Set strut value for BottomW and TopW too darcs-hash:20080109094354-d6583-0e81ffb45e681adf42ae0887372895f340ddd6fe.gz --- Xmobar.hs | 8 +++++--- 1 file 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 -- cgit v1.2.3