diff options
| -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 |