diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-03-28 09:14:36 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-03-28 09:14:36 +0200 |
commit | e776043d34998ae95bbba57c91e6828372d2acb7 (patch) | |
tree | 32ef8eb52287f2d3f7ba2c2a9934b05704fc964d /Main.hs | |
parent | b461c1019ac4668b0d6235fba1905ee5399f8840 (diff) | |
download | xmonad-e776043d34998ae95bbba57c91e6828372d2acb7.tar.gz xmonad-e776043d34998ae95bbba57c91e6828372d2acb7.tar.xz xmonad-e776043d34998ae95bbba57c91e6828372d2acb7.zip |
Compatibility with CInt'ified X11
darcs-hash:20070328071436-a5988-247885dd8c1711b4739921fc4082e6a4ecf2b3d6.gz
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -142,7 +142,9 @@ handle (UnmapEvent {window = w}) = do b <- isClient w; when b $ unmanage -- set keyboard mapping handle e@(MappingNotifyEvent {window = w}) = do - let m = (request e, first_keycode e, count e) + -- 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 = (request e, first_keycode e, fromIntegral $ count e) io $ refreshKeyboardMapping m when (request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w @@ -176,7 +178,9 @@ handle e@(ConfigureRequestEvent {window = w}) = do , wcHeight = height e , wcBorderWidth = border_width e , wcSibling = above e - , wcStackMode = detail e + -- 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 + , wcStackMode = fromIntegral $ detail e } io $ sync dpy False |