diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-03-30 11:15:37 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2008-03-30 11:15:37 +0200 |
| commit | 2cedbfe229a34f4c28b3c573480549013e3a6734 (patch) | |
| tree | cc2b05839c5d6598b741dba955c79dd2a23eda0a /Xmobar.hs | |
| parent | c111c1b01d6e772654fac7408bd624812397b999 (diff) | |
| download | xmobar-2cedbfe229a34f4c28b3c573480549013e3a6734.tar.gz xmobar-2cedbfe229a34f4c28b3c573480549013e3a6734.tar.bz2 | |
Fix _NET_WM_STRUT_PARTIAL implementation
darcs-hash:20080330091537-d6583-498d5b8e5cc38879490d04f97d0a59270964678a.gz
Diffstat (limited to 'Xmobar.hs')
| -rw-r--r-- | Xmobar.hs | 13 |
1 files changed, 8 insertions, 5 deletions
@@ -172,11 +172,14 @@ setProperties r c d w = do getStrutValues :: Rectangle -> Config -> [Int] getStrutValues (Rectangle x _ w h) c = case position c of - Top -> [0, 0, fi h, 0 , 0, 0, 0, 0, fi x, fi (x + fi w), 0, 0 ] - TopW _ _ -> [0, 0, fi h, 0 , 0, 0, 0, 0, fi x, fi (x + fi w), 0, 0 ] - Bottom -> [0, 0, 0 , fi h, 0, 0, 0, 0, 0, 0, fi x, fi (x + fi w)] - BottomW _ _ -> [0, 0, 0 , fi h, 0, 0, 0, 0, 0, 0, fi x, fi (x + fi w)] - _ -> [0, 0, 0 , 0 , 0, 0, 0, 0, 0, 0, 0, 0 ] + Top -> [0, 0, nh, 0, 0, 0, 0, 0, nx, nw, 0, 0] + TopW _ _ -> [0, 0, nh, 0, 0, 0, 0, 0, nx, nw, 0, 0] + Bottom -> [0, 0, 0, nh, 0, 0, 0, 0, 0, 0, nx, nw] + BottomW _ _ -> [0, 0, 0, nh, 0, 0, 0, 0, 0, 0, nx, nw] + _ -> [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] + where nh = fi h + nx = fi x + nw = fi (x + fi w - 1) updateWin :: TVar String -> X () updateWin v = do |