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

clicked -> dragged

Browse Source
This commit is contained in:
dlahoti
2016-05-15 10:46:14 -04:00
parent b0f7643cc5
commit ad4417c8e0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/XMonad/Operations.hs
View File

@@ -507,7 +507,7 @@ mouseDrag f done = do
clearEvents pointerMotionMask clearEvents pointerMotionMask
return z return z
-- | drag the window under the cursor with the mouse while it is clicked -- | drag the window under the cursor with the mouse while it is dragged
mouseMoveWindow :: Window -> X () mouseMoveWindow :: Window -> X ()
mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do
io $ raiseWindow d w io $ raiseWindow d w
@@ -519,7 +519,7 @@ mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do
(fromIntegral (fromIntegral (wa_y wa) + (ey - oy)))) (fromIntegral (fromIntegral (wa_y wa) + (ey - oy))))
(float w) (float w)
-- | resize the window under the cursor with the mouse while it is clicked -- | resize the window under the cursor with the mouse while it is dragged
mouseResizeWindow :: Window -> X () mouseResizeWindow :: Window -> X ()
mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do
io $ raiseWindow d w io $ raiseWindow d w