diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-03 05:20:40 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-03 05:20:40 +0200 |
commit | aee7c7c087fc43450c5bf887040c7623c73ad433 (patch) | |
tree | 904f096bf8f8da8c79dbdfe8ba575cdd814e1334 /Main.hs | |
parent | 7edf9a8cd9321317b85d5bbeab511a667a5f0a58 (diff) | |
download | xmonad-aee7c7c087fc43450c5bf887040c7623c73ad433.tar.gz xmonad-aee7c7c087fc43450c5bf887040c7623c73ad433.tar.xz xmonad-aee7c7c087fc43450c5bf887040c7623c73ad433.zip |
Use updated refreshKeyboardMapping. Requires latest X11-extras
darcs-hash:20070503032040-a5988-f30dac176a6db3139e07c8b29bbc31d27c67d410.gz
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -153,10 +153,7 @@ handle (UnmapEvent {ev_window = w}) = do b <- isClient w; when b $ unman -- set keyboard mapping handle e@(MappingNotifyEvent {ev_window = w}) = do - -- this fromIntegral is only necessary with the old X11 version that uses - -- 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 + io $ refreshKeyboardMapping e when (ev_request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w -- click on an unfocussed window |