diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 08:19:30 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-11 08:19:30 +0200 |
| commit | aadaee9f01ca8d5382bfb1fdd31cc99a1c1dbefe (patch) | |
| tree | e844c1da6257e1486d3302128618c28a5b2cdf96 | |
| parent | 6245a4779ad57997bb0b44c65511fbffcd024a85 (diff) | |
| download | metatile-aadaee9f01ca8d5382bfb1fdd31cc99a1c1dbefe.tar metatile-aadaee9f01ca8d5382bfb1fdd31cc99a1c1dbefe.zip | |
Ensure windows get at least 1 pixel for width/height
darcs-hash:20070611061930-a5988-a427df20194b8b0aa53507676dc5d882b20de0b6
| -rw-r--r-- | Operations.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 -- --------------------------------------------------------------------- |