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

Ignore-this: d9ce96c2cd0312b6b5be4acee30a1da3

darcs-hash:20091227212140-c9ff5-ade651be3ca32df9cdb4a26df777a34829df9fe8.gz

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)