aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Actions
diff options
context:
space:
mode:
authorTomas Janousek <tomi@nomi.cz>2009-12-27 22:21:40 +0100
committerTomas Janousek <tomi@nomi.cz>2009-12-27 22:21:40 +0100
commit290191a2f3073ec58b54ba9c00b56d85e7a7a1db (patch)
tree5d904406d46e71aa405e25ccaed5d2c57fb4189f /XMonad/Actions
parentd100f1a335b4366b99f49c6594c63a5e3a40c2bd (diff)
downloadXMonadContrib-290191a2f3073ec58b54ba9c00b56d85e7a7a1db.tar.gz
XMonadContrib-290191a2f3073ec58b54ba9c00b56d85e7a7a1db.tar.xz
XMonadContrib-290191a2f3073ec58b54ba9c00b56d85e7a7a1db.zip
X.A.MouseResize: assign an appropriate cursor for the resizing inpuwin
Ignore-this: d9ce96c2cd0312b6b5be4acee30a1da3 darcs-hash:20091227212140-c9ff5-ade651be3ca32df9cdb4a26df777a34829df9fe8.gz
Diffstat (limited to 'XMonad/Actions')
-rw-r--r--XMonad/Actions/MouseResize.hs8
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)