From 8b173f193edf10e9a9bbc71d9b48d8455095748b Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Mon, 28 Dec 2009 00:37:05 +0100 Subject: Use imported xC_bottom_right_corner in A.MouseResize Ignore-this: 52794f788255159b91e68f2762c5f6a1 darcs-hash:20091227233705-1499c-e433de75a2abd78621d158e6edbc19fc92bcce4d.gz --- XMonad/Actions/MouseResize.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'XMonad/Actions') 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 -- cgit v1.2.3