diff options
author | Jason Creighton <jcreigh@gmail.com> | 2007-04-28 20:00:46 +0200 |
---|---|---|
committer | Jason Creighton <jcreigh@gmail.com> | 2007-04-28 20:00:46 +0200 |
commit | 912a3cfce1846fdc2e956388b5ebd3a5ad69c143 (patch) | |
tree | a32b0534da590f6be486add89e38b080cacd253e | |
parent | 2552e8eae7464d44363f89ce8faa318e3fdd5de5 (diff) | |
download | metatile-912a3cfce1846fdc2e956388b5ebd3a5ad69c143.tar metatile-912a3cfce1846fdc2e956388b5ebd3a5ad69c143.zip |
avoid grabbing all keys when a keysym is undefined
XKeysymToKeycode() returns zero if the keysym is undefined. Zero also happens
to be the value of AnyKey.
darcs-hash:20070428180046-b9aa7-79b768917b225267fa13fffda0738b53504aa722
-rw-r--r-- | Main.hs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -94,7 +94,9 @@ grabKeys dpy rootw = do ungrabKey dpy '\0' {-AnyKey-} anyModifier rootw flip mapM_ (M.keys keys) $ \(mask,sym) -> do kc <- keysymToKeycode dpy sym - mapM_ (grab kc) [mask, mask .|. numlockMask, mask .|. lockMask, mask .|. numlockMask .|. lockMask] + -- "If the specified KeySym is not defined for any KeyCode, + -- XKeysymToKeycode() returns zero." + when (kc /= '\0') $ mapM_ (grab kc . (mask .|.)) $ [0, numlockMask, lockMask, numlockMask .|. lockMask] where grab kc m = grabKey dpy kc m rootw True grabModeAsync grabModeAsync |