From aadaee9f01ca8d5382bfb1fdd31cc99a1c1dbefe Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 11 Jun 2007 08:19:30 +0200
Subject: Ensure windows get at least 1 pixel for width/height

darcs-hash:20070611061930-a5988-a427df20194b8b0aa53507676dc5d882b20de0b6
---
 Operations.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 7b8576b..9a47d55 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -256,8 +256,11 @@ clearEnterEvents = withDisplay $ \d -> io $ do
 tileWindow :: Window -> Rectangle -> X ()
 tileWindow w r = withDisplay $ \d -> do
     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)
-                              (rect_width  r - bw*2) (rect_height r - bw*2)
+                              (least $ rect_width r) (least $ rect_height r)
     reveal w
 
 -- ---------------------------------------------------------------------
-- 
cgit v1.2.3