mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-31 20:21:52 -07:00
Compatibility with CInt'ified X11
This commit is contained in:
8
Main.hs
8
Main.hs
@@ -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
|
||||
|
Reference in New Issue
Block a user