From 9531f6ecab66d31e5dbd0ca9fe3862641e555b2d Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 9 Mar 2007 14:06:08 +0100
Subject: we should check for OverrideRedirect on initial scan too

darcs-hash:20070309130608-9c5c1-6c02d37c990e39c02f5679c2bbe3d213649056cb
---
 Main.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

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 ()
-- 
cgit v1.2.3