diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2008-10-08 17:42:45 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2008-10-08 17:42:45 +0200 |
| commit | bae0fedfce838edd85637fa3a0a7f3a1ee5f17b5 (patch) | |
| tree | 7e5806efe60b0c2626947c417b5ec77913e01e7e | |
| parent | a53a4fb237430f088d6e51c805ad14f03f1a18c5 (diff) | |
| download | XMonadContrib-bae0fedfce838edd85637fa3a0a7f3a1ee5f17b5.tar.gz XMonadContrib-bae0fedfce838edd85637fa3a0a7f3a1ee5f17b5.tar.xz XMonadContrib-bae0fedfce838edd85637fa3a0a7f3a1ee5f17b5.zip | |
pointWithin has moved to the core
darcs-hash:20081008154245-23c07-30a58c257a61f3be5d001f238e6989e02c8b84c6.gz
| -rw-r--r-- | XMonad/Actions/UpdatePointer.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/XMonad/Actions/UpdatePointer.hs b/XMonad/Actions/UpdatePointer.hs index 1caf3c2..d66f1a4 100644 --- a/XMonad/Actions/UpdatePointer.hs +++ b/XMonad/Actions/UpdatePointer.hs @@ -90,12 +90,6 @@ moveWithin now lower upper = then upper 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 = fromIntegral |