From dc553eeec4a7cfdac2e97811302b9abdda4e3638 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 9 Mar 2007 14:12:51 +0100
Subject: also select for enter and leave window events (need for XCrossing?)

darcs-hash:20070309131251-9c5c1-848d39dc7a257be5a5b62839e5c587d4497dd364.gz
---
 Main.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 68d82d4..24f7b89 100644
--- a/Main.hs
+++ b/Main.hs
@@ -69,7 +69,11 @@ main = do
 
     runW initState $ do
         r <- io $ rootWindow dpy dflt
-        io $ do selectInput dpy r (substructureRedirectMask .|. substructureNotifyMask)
+        io $ do selectInput dpy r $  substructureRedirectMask
+                                     .|. substructureNotifyMask
+                                     .|. enterWindowMask
+                                     .|. leaveWindowMask
+
                 sync dpy False
         grabKeys dpy r
         (_, _, ws) <- io $ queryTree dpy r
@@ -111,6 +115,10 @@ handle (MapRequestEvent    {window = w}) = withDisplay $ \dpy -> do
     wa <- io $ getWindowAttributes dpy w
     when (not (waOverrideRedirect wa)) $ manage w
 
+-- XCreateWindowEvent(3X11)
+-- Window manager clients normally should ignore this window if the
+-- override_redirect member is True.
+
 handle (DestroyWindowEvent {window = w}) = unmanage w
 handle (UnmapEvent         {window = w}) = unmanage w
 
-- 
cgit v1.2.3