twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-08 16:01:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.MouseResize: assign an appropriate cursor for the resizing inpuwin

Browse Source
This commit is contained in:
Tomas Janousek
2009-12-27 21:21:40 +00:00
parent 12c791d02f
commit 311994f9ef
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Actions/MouseResize.hs
View File

@@ -108,12 +108,20 @@ 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
Just tr -> withDisplay $ \d -> do Just tr -> withDisplay $ \d -> 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
io $ defineCursor d tw cursor
io $ freeCursor d cursor
showWindow tw showWindow tw
return ((w,r), Just tw) return ((w,r), Just tw)
Nothing -> return ((w,r), Nothing) Nothing -> return ((w,r), Nothing)