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

Only adjust floating windows that are actually larger than the screen

Browse Source 
Also, fix a typo caught by Xiao-Yong Jin on the mailing list.
This commit is contained in:
Spencer Janssen
2007-10-10 06:26:04 +00:00
parent 41063f2e57
commit d348f2ae72
1 changed files with 1 additions and 1 deletions

2
Operations.hs

@@ -56,7 +56,7 @@ manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do
(sc, rr) <- floatLocation w
-- ensure that float windows don't go over the edge of the screen
let adjust (W.RationalRect x y wid h) | x + wid >= 1 || y + wid >= 1 || x <= 0 || y <= 0
let adjust (W.RationalRect x y wid h) | x + wid > 1 || y + h > 1 || x < 0 || y < 0
= W.RationalRect (0.5 - wid/2) (0.5 - h/2) wid h
adjust r = r