twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-27 02:01:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Manage windows that are created before thunk starts

Browse Source
This commit is contained in:
Spencer Janssen
2007-03-07 21:01:17 +00:00
parent dda3f2c07a
commit 160f07a47c
1 changed files with 4 additions and 0 deletions

4
Main.hs

@@ -77,6 +77,10 @@ main = do
io $ do selectInput dpy r (substructureRedirectMask .|. substructureNotifyMask) io $ do selectInput dpy r (substructureRedirectMask .|. substructureNotifyMask)
sync dpy False sync dpy False
registerKeys dpy r registerKeys dpy r
(_, _, ws) <- io $ queryTree dpy r
forM_ ws $ \w -> do
wa <- io $ getWindowAttributes dpy w
when (waMapState wa == waIsViewable) (manage w)
go dpy go dpy
return () return ()