twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-02 05:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

Make pointWithin a top-level binding

Browse Source
This commit is contained in:
Spencer Janssen
2008-10-07 09:02:29 +00:00
parent 8881e2ac78
commit cc60fa73ad
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
XMonad/Operations.hs
View File

@@ -423,11 +423,14 @@ floatLocation w = withDisplay $ \d -> do
return (W.screen $ sc, rr) return (W.screen $ sc, rr)
where fi x = fromIntegral x where fi x = fromIntegral x
pointWithin :: Integer -> Integer -> Rectangle -> Bool
pointWithin x y r = x >= fi (rect_x r) && -- | 'pointWithin x y r' returns 'True' if the '(x, y)' co-ordinate is within
x < fi (rect_x r) + fi (rect_width r) && -- the 'Rectangle'.
y >= fi (rect_y r) && pointWithin :: Position -> Position -> Rectangle -> Bool
y < fi (rect_y r) + fi (rect_height r) pointWithin x y r = x >= rect_x r &&
x < rect_x r + fromIntegral (rect_width r) &&
y >= rect_y r &&
y < rect_y r + fromIntegral (rect_height r)
-- | Make a tiled window floating, using its suggested rectangle -- | Make a tiled window floating, using its suggested rectangle
float :: Window -> X () float :: Window -> X ()