diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-01-09 10:43:54 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-01-09 10:43:54 +0100 |
| commit | 86c839b6ef4eda5ef13514227c00248e1929cc45 (patch) | |
| tree | 986b1d80eb49a5e98726c9c35ad01af4c7d5a007 | |
| parent | 81a2809683ceda6475d6d42df644dce102dd290b (diff) | |
| download | xmobar-86c839b6ef4eda5ef13514227c00248e1929cc45.tar.gz xmobar-86c839b6ef4eda5ef13514227c00248e1929cc45.tar.bz2 | |
Set strut value for BottomW and TopW too
darcs-hash:20080109094354-d6583-0e81ffb45e681adf42ae0887372895f340ddd6fe.gz
| -rw-r--r-- | Xmobar.hs | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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 |