mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-31 20:21:52 -07:00
we should check for OverrideRedirect on initial scan too
This commit is contained in:
6
Main.hs
6
Main.hs
@@ -73,9 +73,13 @@ main = do
|
||||
sync dpy False
|
||||
grabKeys dpy r
|
||||
(_, _, ws) <- io $ queryTree dpy r
|
||||
|
||||
-- scan for initial windows
|
||||
forM_ ws $ \w -> do
|
||||
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 ->
|
||||
nextEvent dpy ev >> getEvent ev)
|
||||
return ()
|
||||
|
Reference in New Issue
Block a user