twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 12:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Compatibility with CInt'ified X11

Browse Source
This commit is contained in:
Spencer Janssen
2007-03-28 07:14:36 +00:00
parent e7e46afc02
commit 18a1fe776d
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Main.hs
View File

@@ -142,7 +142,9 @@ handle (UnmapEvent {window = w}) = do b <- isClient w; when b $ unmanage
-- set keyboard mapping -- set keyboard mapping
handle e@(MappingNotifyEvent {window = w}) = do 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 io $ refreshKeyboardMapping m
when (request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w when (request e == mappingKeyboard) $ withDisplay $ io . flip grabKeys w
@@ -176,7 +178,9 @@ handle e@(ConfigureRequestEvent {window = w}) = do
, wcHeight = height e , wcHeight = height e
, wcBorderWidth = border_width e , wcBorderWidth = border_width e
, wcSibling = above 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 io $ sync dpy False