diff options
| author | Tomas Janousek <tomi@nomi.cz> | 2009-10-26 16:49:18 +0100 |
|---|---|---|
| committer | Tomas Janousek <tomi@nomi.cz> | 2009-10-26 16:49:18 +0100 |
| commit | efb0b107d0402ed31f796c3eb36c07d70c77e0e6 (patch) | |
| tree | 9ac4e92fedbc73120e983bcb42c326732243eaeb | |
| parent | 26b6c952ff6c61b29cb2c4f38f91f1dc3bc4220b (diff) | |
| download | XMonadContrib-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.hs | 6 |
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 |