From b821819d4ba485ffa04fc3f8faef9af57a860409 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Wed, 10 Oct 2007 08:26:04 +0200
Subject: 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.gz
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

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
 
-- 
cgit v1.2.3