aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTomas Janousek <tomi@nomi.cz>2009-10-26 16:49:18 +0100
committerTomas Janousek <tomi@nomi.cz>2009-10-26 16:49:18 +0100
commitefb0b107d0402ed31f796c3eb36c07d70c77e0e6 (patch)
tree9ac4e92fedbc73120e983bcb42c326732243eaeb
parent26b6c952ff6c61b29cb2c4f38f91f1dc3bc4220b (diff)
downloadXMonadContrib-efb0b107d0402ed31f796c3eb36c07d70c77e0e6.tar.gz
XMonadContrib-efb0b107d0402ed31f796c3eb36c07d70c77e0e6.tar.xz
XMonadContrib-efb0b107d0402ed31f796c3eb36c07d70c77e0e6.zip
fix window rectangle calculation in X.A.UpdatePointer
Ignore-this: ad0c3a020b802854919c7827faa001ad darcs-hash:20091026154918-c9ff5-bc661b0a4bb11698032ad92d9e873e97931aa1ad.gz
-rw-r--r--XMonad/Actions/UpdatePointer.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/XMonad/Actions/UpdatePointer.hs b/XMonad/Actions/UpdatePointer.hs
index 2068e33..7fff869 100644
--- a/XMonad/Actions/UpdatePointer.hs
+++ b/XMonad/Actions/UpdatePointer.hs
@@ -91,8 +91,10 @@ updatePointer p = do
where fraction x y = floor (x * fromIntegral y)
windowAttributesToRectangle :: WindowAttributes -> Rectangle
-windowAttributesToRectangle wa = Rectangle (fi (wa_x wa)) (fi (wa_y wa))
- (fi (wa_width wa)) (fi (wa_height wa))
+windowAttributesToRectangle wa = Rectangle (fi (wa_x wa))
+ (fi (wa_y wa))
+ (fi (wa_width wa + 2 * wa_border_width wa))
+ (fi (wa_height wa + 2 * wa_border_width wa))
moveWithin :: Ord a => a -> a -> a -> a
moveWithin now lower upper =
if now < lower