twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-16 04:23:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

Wibble

Browse Source
This commit is contained in:
Spencer Janssen
2007-05-22 04:38:44 +00:00
parent 9b52525417
commit 865939b660
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Operations.hs
View File

@@ -160,8 +160,7 @@ tileWindow d w r = do
-- refresh the screen. -- refresh the screen.
rescreen :: X () rescreen :: X ()
rescreen = do rescreen = do
dpy <- asks display xinesc <- withDisplay (io . getScreenInfo)
xinesc <- io $ getScreenInfo dpy
-- TODO: This stuff is necessary because Xlib apparently caches screen -- TODO: This stuff is necessary because Xlib apparently caches screen
-- width/height. Find a better solution later. I hate Xlib. -- width/height. Find a better solution later. I hate Xlib.
let sx = maximum $ map (\r -> rect_x r + fromIntegral (rect_width r)) xinesc let sx = maximum $ map (\r -> rect_x r + fromIntegral (rect_width r)) xinesc