diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-09 14:06:08 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-09 14:06:08 +0100 |
commit | 9531f6ecab66d31e5dbd0ca9fe3862641e555b2d (patch) | |
tree | 16f075f9e6b692aa3f56e9fc4179d69a4df9da54 | |
parent | 14f65aa1ba4ab748dbbf87615b2f53e6940e7a8c (diff) | |
download | metatile-9531f6ecab66d31e5dbd0ca9fe3862641e555b2d.tar metatile-9531f6ecab66d31e5dbd0ca9fe3862641e555b2d.zip |
we should check for OverrideRedirect on initial scan too
darcs-hash:20070309130608-9c5c1-6c02d37c990e39c02f5679c2bbe3d213649056cb
-rw-r--r-- | Main.hs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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 () |