From efb0b107d0402ed31f796c3eb36c07d70c77e0e6 Mon Sep 17 00:00:00 2001 From: Tomas Janousek Date: Mon, 26 Oct 2009 16:49:18 +0100 Subject: fix window rectangle calculation in X.A.UpdatePointer Ignore-this: ad0c3a020b802854919c7827faa001ad darcs-hash:20091026154918-c9ff5-bc661b0a4bb11698032ad92d9e873e97931aa1ad.gz --- XMonad/Actions/UpdatePointer.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'XMonad/Actions') 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 -- cgit v1.2.3