twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-14 19:45:44 -07:00
Code Issues Packages Projects Releases Wiki Activity

Ensure windows get at least 1 pixel for width/height

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-11 06:19:30 +00:00
parent 330179ea20
commit b668133c08
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Operations.hs
View File

@@ -256,8 +256,11 @@ clearEnterEvents = withDisplay $ \d -> io $ do
tileWindow :: Window -> Rectangle -> X () tileWindow :: Window -> Rectangle -> X ()
tileWindow w r = withDisplay $ \d -> do tileWindow w r = withDisplay $ \d -> do
bw <- (fromIntegral . wa_border_width) `liftM` io (getWindowAttributes d w) bw <- (fromIntegral . wa_border_width) `liftM` io (getWindowAttributes d w)
-- give all windows at least 1x1 pixels
let least x | x <= bw*2 = 1
| otherwise = x - bw*2
io $ moveResizeWindow d w (rect_x r) (rect_y r) io $ moveResizeWindow d w (rect_x r) (rect_y r)
(rect_width r - bw*2) (rect_height r - bw*2) (least $ rect_width r) (least $ rect_height r)
reveal w reveal w
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------