twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use imported xC_bottom_right_corner in A.MouseResize

Browse Source
This commit is contained in:
Adam Vogt 2009-12-27 23:37:05 +00:00
parent 311994f9ef
commit 2f0e880ccd
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Actions/MouseResize.hs
View File

@ -108,9 +108,6 @@ handleResize st ButtonEvent { ev_window = ew, ev_event_type = et }
getWin _ [] = Nothing getWin _ [] = Nothing
handleResize _ _ = return () handleResize _ _ = return ()
brCursorBottomRightCorner :: Glyph
brCursorBottomRightCorner = 14
createInputWindow :: ((Window,Rectangle), Maybe Rectangle) -> X ((Window,Rectangle),Maybe Window) createInputWindow :: ((Window,Rectangle), Maybe Rectangle) -> X ((Window,Rectangle),Maybe Window)
createInputWindow ((w,r),mr) = do createInputWindow ((w,r),mr) = do
case mr of case mr of
@ -118,7 +115,7 @@ createInputWindow ((w,r),mr) = do
tw <- mkInputWindow d tr tw <- mkInputWindow d tr
io $ selectInput d tw (exposureMask .|. buttonPressMask) 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 $ defineCursor d tw cursor
io $ freeCursor d cursor io $ freeCursor d cursor