diff options
| -rw-r--r-- | XMonad/Actions/MouseResize.hs | 5 |
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 |