Manage windows that are created before thunk starts

darcs-hash:20070307210117-a5988-f7aa8bb703df0ceedf7b3a8f1af78e26c43554c0.gz

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