aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2009-12-28 00:37:05 +0100
committerAdam Vogt <vogt.adam@gmail.com>2009-12-28 00:37:05 +0100
commit8b173f193edf10e9a9bbc71d9b48d8455095748b (patch)
tree849919fb94d3a9fb968c908fc1b42f95c87c6eb3
parent290191a2f3073ec58b54ba9c00b56d85e7a7a1db (diff)
downloadXMonadContrib-8b173f193edf10e9a9bbc71d9b48d8455095748b.tar.gz
XMonadContrib-8b173f193edf10e9a9bbc71d9b48d8455095748b.tar.xz
XMonadContrib-8b173f193edf10e9a9bbc71d9b48d8455095748b.zip
Use imported xC_bottom_right_corner in A.MouseResize
Ignore-this: 52794f788255159b91e68f2762c5f6a1 darcs-hash:20091227233705-1499c-e433de75a2abd78621d158e6edbc19fc92bcce4d.gz
-rw-r--r--XMonad/Actions/MouseResize.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/XMonad/Actions/MouseResize.hs b/XMonad/Actions/MouseResize.hs
index de0ec65..0716c58 100644
--- a/XMonad/Actions/MouseResize.hs
+++ b/XMonad/Actions/MouseResize.hs
@@ -108,9 +108,6 @@ handleResize st ButtonEvent { ev_window = ew, ev_event_type = et }
getWin _ [] = Nothing
handleResize _ _ = return ()
-brCursorBottomRightCorner :: Glyph
-brCursorBottomRightCorner = 14
-
createInputWindow :: ((Window,Rectangle), Maybe Rectangle) -> X ((Window,Rectangle),Maybe Window)
createInputWindow ((w,r),mr) = do
case mr of
@@ -118,7 +115,7 @@ createInputWindow ((w,r),mr) = do
tw <- mkInputWindow d tr
io $ selectInput d tw (exposureMask .|. buttonPressMask)
- cursor <- io $ createFontCursor d brCursorBottomRightCorner
+ cursor <- io $ createFontCursor d xC_bottom_right_corner
io $ defineCursor d tw cursor
io $ freeCursor d cursor