twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

improved grabkeys (also handle lockMask down)

Browse Source
This commit is contained in:
Don Stewart 2007-03-09 13:42:11 +00:00
parent b63af49180
commit 1ca37d5385
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Main.hs
View File

@ -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