twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-21 23:13:48 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix window rectangle calculation in X.A.UpdatePointer

Browse Source
This commit is contained in:
Tomas Janousek
2009-10-26 15:49:18 +00:00
parent 9180666302
commit bfdfb2297e
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Actions/UpdatePointer.hs
View File

@@ -91,8 +91,10 @@ updatePointer p = do
where fraction x y = floor (x * fromIntegral y) where fraction x y = floor (x * fromIntegral y)
windowAttributesToRectangle :: WindowAttributes -> Rectangle windowAttributesToRectangle :: WindowAttributes -> Rectangle
windowAttributesToRectangle wa = Rectangle (fi (wa_x wa)) (fi (wa_y wa)) windowAttributesToRectangle wa = Rectangle (fi (wa_x wa))
(fi (wa_width wa)) (fi (wa_height 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 :: Ord a => a -> a -> a -> a
moveWithin now lower upper = moveWithin now lower upper =
if now < lower if now < lower