summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-03-07 22:01:17 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-03-07 22:01:17 +0100
commit5197d8daa2028b6627c6e6ae2f7087dfd853e3e6 (patch)
tree09f3d1aa076f287bf725953f6de705d23f6a4fc0
parentb2d19888ec0b22d0e3745546c18187b5d73a3e4c (diff)
downloadmetatile-5197d8daa2028b6627c6e6ae2f7087dfd853e3e6.tar
metatile-5197d8daa2028b6627c6e6ae2f7087dfd853e3e6.zip
Manage windows that are created before thunk starts
darcs-hash:20070307210117-a5988-f7aa8bb703df0ceedf7b3a8f1af78e26c43554c0
-rw-r--r--Main.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index e66ee69..8a4bbd4 100644
--- a/Main.hs
+++ b/Main.hs
@@ -77,6 +77,10 @@ main = do
io $ do selectInput dpy r (substructureRedirectMask .|. substructureNotifyMask)
sync dpy False
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
return ()