summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-03-09 14:06:08 +0100
committerDon Stewart <dons@cse.unsw.edu.au>2007-03-09 14:06:08 +0100
commit9531f6ecab66d31e5dbd0ca9fe3862641e555b2d (patch)
tree16f075f9e6b692aa3f56e9fc4179d69a4df9da54
parent14f65aa1ba4ab748dbbf87615b2f53e6940e7a8c (diff)
downloadmetatile-9531f6ecab66d31e5dbd0ca9fe3862641e555b2d.tar
metatile-9531f6ecab66d31e5dbd0ca9fe3862641e555b2d.zip
we should check for OverrideRedirect on initial scan too
darcs-hash:20070309130608-9c5c1-6c02d37c990e39c02f5679c2bbe3d213649056cb
-rw-r--r--Main.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/Main.hs b/Main.hs
index 8804a8d..68d82d4 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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 ()