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

comments only

Browse Source
This commit is contained in:
Don Stewart
2007-06-03 07:15:56 +00:00
parent 0226ba3441
commit 8f3258a348
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Operations.hs
View File

@@ -475,9 +475,18 @@ mouseResizeWindow :: Window -> X ()
mouseResizeWindow w = withDisplay $ \d -> do
io $ raiseWindow d w
wa <- io $ getWindowAttributes d w
io $ warpPointer d none w 0 0 0 0 (fromIntegral (wa_width wa))
(fromIntegral (wa_height wa))
io $ warpPointer d none w 0 0 0 0 (fromIntegral (wa_width wa)) (fromIntegral (wa_height wa))
mouseDrag $ \(_, _, _, ex, ey, _, _, _, _, _) ->
resizeWindow d w (fromIntegral (max 1 (ex - fromIntegral (wa_x wa))))
(fromIntegral (max 1 (ey - fromIntegral (wa_y wa))))
float w
--
-- generic handler, but too complex:
--
-- mouseModifyWindow f g w = withDisplay $ \d -> do
-- io $ raiseWindow d w
-- wa <- io $ getWindowAttributes d w
-- x <- f d w wa
-- mouseDrag $ \(_,_,_,ex,ey,_,_,_,_,_) -> g x ex ey d w wa
-- float w