diff options
| author | Jochen Keil <jochen.keil@gmail.com> | 2012-09-01 21:46:46 +0200 |
|---|---|---|
| committer | Jochen Keil <jochen.keil@gmail.com> | 2012-09-01 21:46:46 +0200 |
| commit | 2b27a08668461ab83c2a4d2c084ed7ae18c965b0 (patch) | |
| tree | 623d031f4d8b9064b33e6aa0b860fc62065bb7a5 /src/Window.hs | |
| parent | 8ccd5aa759175d204dccd0b580a3477ab23747f2 (diff) | |
| download | xmobar-2b27a08668461ab83c2a4d2c084ed7ae18c965b0.tar.gz xmobar-2b27a08668461ab83c2a4d2c084ed7ae18c965b0.tar.bz2 | |
Set StrutValues from showWindow
This is superior to calling the repositionWin function. It will only set
the StrutValues and avoid additional work. This means, that
extra parameters need to be passed down to showWindow. However, that is
not a problem here.
Diffstat (limited to 'src/Window.hs')
| -rw-r--r-- | src/Window.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/Window.hs b/src/Window.hs index 7ff1ffe..29e1516 100644 --- a/src/Window.hs +++ b/src/Window.hs @@ -162,8 +162,14 @@ hideWindow d w = do unmapWindow d w sync d False -showWindow :: Display -> Window -> IO () -showWindow d w = mapWindow d w >> sync d False +showWindow :: Rectangle -> Config -> Display -> Window -> IO () +showWindow r cfg d w = do + srs <- getScreenInfo d + a <- internAtom d "_NET_WM_STRUT_PARTIAL" False + c <- internAtom d "CARDINAL" False + changeProperty32 d w a c propModeReplace $ map fi $ + getStrutValues r (position cfg) (getRootWindowHeight srs) + mapWindow d w >> sync d False isMapped :: Display -> Window -> IO Bool isMapped d w = fmap ism $ getWindowAttributes d w |