twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

pointWithin has moved to the core

Browse Source
This commit is contained in:
Joachim Breitner 2008-10-08 15:42:45 +00:00
parent 15df01705f
commit 521bb48ad9
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Actions/UpdatePointer.hs
View File

@ -90,12 +90,6 @@ moveWithin now lower upper =
then upper then upper
else now else now
pointWithin :: Position -> Position -> Rectangle -> Bool
pointWithin x y r = x >= rect_x r &&
x < rect_x r + fi (rect_width r) &&
y >= rect_y r &&
y < rect_y r + fi (rect_height r)
fi :: (Num b, Integral a) => a -> b fi :: (Num b, Integral a) => a -> b
fi = fromIntegral fi = fromIntegral