twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-30 02:23:46 -07:00
Code Issues Packages Projects Releases Wiki Activity

we should check for OverrideRedirect on initial scan too

Browse Source
This commit is contained in:
Don Stewart
2007-03-09 13:06:08 +00:00
parent 2ed6f203c4
commit f1905e2699
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

@@ -73,9 +73,13 @@ main = do
sync dpy False sync dpy False
grabKeys dpy r grabKeys dpy r
(_, _, ws) <- io $ queryTree dpy r (_, _, ws) <- io $ queryTree dpy r
-- scan for initial windows
forM_ ws $ \w -> do forM_ ws $ \w -> do
wa <- io $ getWindowAttributes dpy w wa <- io $ getWindowAttributes dpy w
when (waMapState wa == waIsViewable) (manage w) when (not (waOverrideRedirect wa) && waMapState wa == waIsViewable)
(manage w)
forever $ handle =<< io (allocaXEvent $ \ev -> forever $ handle =<< io (allocaXEvent $ \ev ->
nextEvent dpy ev >> getEvent ev) nextEvent dpy ev >> getEvent ev)
return () return ()