From 290191a2f3073ec58b54ba9c00b56d85e7a7a1db Mon Sep 17 00:00:00 2001
From: Tomas Janousek <tomi@nomi.cz>
Date: Sun, 27 Dec 2009 22:21:40 +0100
Subject: X.A.MouseResize: assign an appropriate cursor for the resizing
 inpuwin

Ignore-this: d9ce96c2cd0312b6b5be4acee30a1da3

darcs-hash:20091227212140-c9ff5-ade651be3ca32df9cdb4a26df777a34829df9fe8.gz
---
 XMonad/Actions/MouseResize.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'XMonad')

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)
-- 
cgit v1.2.3