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

Use updated refreshKeyboardMapping. Requires latest X11-extras

Browse Source
This commit is contained in:
Spencer Janssen 2007-05-03 03:20:40 +00:00
parent fa271e00ce
commit b63e8c029e
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Main.hs
View File

@ -153,10 +153,7 @@ handle (UnmapEvent {ev_window = w}) = do b <- isClient w; when b $ unman
-- set keyboard mapping -- set keyboard mapping
handle e@(MappingNotifyEvent {ev_window = w}) = do handle e@(MappingNotifyEvent {ev_window = w}) = do
-- this fromIntegral is only necessary with the old X11 version that uses io $ refreshKeyboardMapping e
-- Int instead of CInt. TODO delete it when there is a new release of X11
let m = (ev_request e, ev_first_keycode e, fromIntegral $ ev_count e)
withDisplay $ \d -> io $ refreshKeyboardMapping d m
when (ev_request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w when (ev_request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w
-- click on an unfocussed window -- click on an unfocussed window