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

Fix refreshKeyboardMapping issues. Requires the latest X11-extras

Browse Source
This commit is contained in:
Spencer Janssen 2007-03-28 21:57:53 +00:00
parent 5e6407df7f
commit ce99fce902
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Main.hs
View File

@ -16,7 +16,7 @@
import Data.Bits import Data.Bits
import qualified Data.Map as M import qualified Data.Map as M
import Graphics.X11.Xlib import Graphics.X11.Xlib hiding (refreshKeyboardMapping)
import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib.Extras
import Graphics.X11.Xinerama import Graphics.X11.Xinerama
@ -153,7 +153,7 @@ handle e@(MappingNotifyEvent {window = w}) = do
-- this fromIntegral is only necessary with the old X11 version that uses -- 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 -- Int instead of CInt. TODO delete it when there is a new release of X11
let m = (request e, first_keycode e, fromIntegral $ count e) let m = (request e, first_keycode e, fromIntegral $ count e)
io $ refreshKeyboardMapping m withDisplay $ \d -> io $ refreshKeyboardMapping d m
when (request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w when (request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w
-- click on an unfocussed window -- click on an unfocussed window