diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-12-28 00:37:05 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-12-28 00:37:05 +0100 |
| commit | 8b173f193edf10e9a9bbc71d9b48d8455095748b (patch) | |
| tree | 849919fb94d3a9fb968c908fc1b42f95c87c6eb3 /XMonad/Actions | |
| parent | 290191a2f3073ec58b54ba9c00b56d85e7a7a1db (diff) | |
| download | XMonadContrib-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
Diffstat (limited to 'XMonad/Actions')
| -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 |