From 11973d4c61c82ceb69508ab2eb205ee31f751cd5 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 9 Mar 2007 14:42:11 +0100
Subject: improved grabkeys (also handle lockMask down)

darcs-hash:20070309134211-9c5c1-9042f5565486839b596000cdc12252cde2c8c167.gz
---
 Main.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index edade6f..3819ea3 100644
--- a/Main.hs
+++ b/Main.hs
@@ -94,9 +94,14 @@ main = do
 
 -- | Grab the keys back
 grabKeys :: Display -> Window -> W ()
-grabKeys dpy r = forM_ (M.keys keys) $ \(m,s) -> io $ do
-    kc <- keysymToKeycode dpy s
-    grabKey dpy kc m r True grabModeAsync grabModeAsync
+grabKeys dpy root = do
+    io $ ungrabKey dpy '\0' {-AnyKey-} anyModifier root
+    forM_ (M.keys keys) $ \(mask,s) -> io $ do
+        kc <- keysymToKeycode dpy s
+        let grab m = grabKey dpy kc m root True grabModeAsync grabModeAsync
+        grab mask
+        grab (mask .|. lockMask)
+        -- no numlock
 
 -- ---------------------------------------------------------------------
 -- Event handler
-- 
cgit v1.2.3