twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-15 20:13:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

On change of keyboard mapping, grabKeys from the root window.

Browse Source
This commit is contained in:
Aaron Denney
2007-09-29 22:47:55 +00:00
parent 5e3317b28e
commit ff1918ad20
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

@@ -178,9 +178,11 @@ handle (UnmapEvent {ev_window = w, ev_send_event = synthetic}) = whenX (isClient
else modify (\s -> s { waitingUnmap = M.adjust pred w (waitingUnmap s) }) else modify (\s -> s { waitingUnmap = M.adjust pred w (waitingUnmap s) })
-- set keyboard mapping -- set keyboard mapping
handle e@(MappingNotifyEvent {ev_window = w}) = do handle e@(MappingNotifyEvent {}) = do
io $ refreshKeyboardMapping e io $ refreshKeyboardMapping e
when (ev_request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w when (ev_request e == mappingKeyboard) $ withDisplay $ \dpy -> do
rootw <- asks theRoot
io $ grabKeys dpy rootw
-- handle button release, which may finish dragging. -- handle button release, which may finish dragging.
handle e@(ButtonEvent {ev_event_type = t}) handle e@(ButtonEvent {ev_event_type = t})