diff options
| -rw-r--r-- | XMonad/Actions/MouseResize.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/XMonad/Actions/MouseResize.hs b/XMonad/Actions/MouseResize.hs index aeb248a..de0ec65 100644 --- a/XMonad/Actions/MouseResize.hs +++ b/XMonad/Actions/MouseResize.hs @@ -108,12 +108,20 @@ 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 Just tr -> withDisplay $ \d -> do tw <- mkInputWindow d tr io $ selectInput d tw (exposureMask .|. buttonPressMask) + + cursor <- io $ createFontCursor d brCursorBottomRightCorner + io $ defineCursor d tw cursor + io $ freeCursor d cursor + showWindow tw return ((w,r), Just tw) Nothing -> return ((w,r), Nothing) |