twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Main.hs
View File

@ -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 ()