From 31a0863d89d6934479f64060522b773b09dbb36c Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 9 Mar 2007 04:06:44 +0100
Subject: handle MappingNotifyEvent properly, and missing test in
 MapRequestEvent. firefox still won't take the keyboard though

darcs-hash:20070309030644-9c5c1-1730b17391d547fc94d76bb0bab601578074659c
---
 Main.hs | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 4be96b4..42fcfdf 100644
--- a/Main.hs
+++ b/Main.hs
@@ -109,18 +109,17 @@ grabKeys dpy r = forM_ (M.keys keys) $ \(m,s) -> io $ do
 --    [UnmapNotify] = unmapnotify
 -- 
 handle :: Event -> W ()
-handle (MapRequestEvent    {window = w}) = manage w
+handle (MapRequestEvent    {window = w}) = withDisplay $ \dpy -> do
+    wa <- io $ getWindowAttributes dpy w
+    when (not (waOverrideRedirect wa)) $ manage w
+
 handle (DestroyWindowEvent {window = w}) = unmanage w
 handle (UnmapEvent         {window = w}) = unmanage w
 
-handle (MappingNotifyEvent {window = w}) = do
-    trace $ "Got mapping notify event for window: " ++ show w
-
-{-
-, mapping= m@(r,_,_)}) = do
+handle e@(MappingNotifyEvent {window = w}) = do
+    let m = (request e, first_keycode e, count e)
     io $ refreshKeyboardMapping m
-    when (r == mappingKeyboard) $ withDisplay $ \d -> grabKeys d w
--}
+    when (request e == mappingKeyboard) $ withDisplay $ flip grabKeys w
 
 handle (KeyEvent {event_type = t, state = m, keycode = code})
     | t == keyPress = withDisplay $ \dpy -> do
-- 
cgit v1.2.3