diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-10 08:26:04 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-10 08:26:04 +0200 |
| commit | 4d2017dc2b029fae84465fc664683d4d5bc875f1 (patch) | |
| tree | 0e0db695b16d4331e8b229cb478023a7b629583c /Operations.hs | |
| parent | b1ec70f19a68e3a136ff9565a96c9a76d287ab2b (diff) | |
| download | metatile-4d2017dc2b029fae84465fc664683d4d5bc875f1.tar metatile-4d2017dc2b029fae84465fc664683d4d5bc875f1.zip | |
Only adjust floating windows that are actually larger than the screen
Also, fix a typo caught by Xiao-Yong Jin on the mailing list.
darcs-hash:20071010062604-a5988-7f17c5523557117ebee195088d04ae0eb4e806c8
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index 9acfaf0..fe83754 100644 --- a/Operations.hs +++ b/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 |