diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-25 03:54:31 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-04-25 03:54:31 +0200 |
| commit | 7137846ac7364445986e5c480ae425dc28487e5e (patch) | |
| tree | c03a93516e665be3f54e69175f48141380ce3e45 /src/XUtil.hsc | |
| parent | c5926232e494786eb618458d743685a3f01a3c62 (diff) | |
| download | xmobar-7137846ac7364445986e5c480ae425dc28487e5e.tar.gz xmobar-7137846ac7364445986e5c480ae425dc28487e5e.tar.bz2 | |
New overrideRedirect configuration parameter
Diffstat (limited to 'src/XUtil.hsc')
| -rw-r--r-- | src/XUtil.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/XUtil.hsc b/src/XUtil.hsc index 353d158..b1e885c 100644 --- a/src/XUtil.hsc +++ b/src/XUtil.hsc @@ -183,8 +183,8 @@ printString dpy drw fs@(Xft font) _ fc bc x y s = do -- Windows Managers should not touch this kind of windows. newWindow :: Display -> Screen -> Window -> Rectangle -> Bool -> IO Window newWindow dpy scr rw (Rectangle x y w h) o = do - let visual = defaultVisualOfScreen scr - attrmask = cWOverrideRedirect + let visual = defaultVisualOfScreen scr + attrmask = if o then cWOverrideRedirect else 0 allocaSetWindowAttributes $ \attributes -> do set_override_redirect attributes o |