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

17
Operations.hs
View File

@@ -467,17 +467,26 @@ mouseMoveWindow w = withDisplay $ \d -> do
wa <- io $ getWindowAttributes d w wa <- io $ getWindowAttributes d w
(_, _, _, ox, oy, _, _, _) <- io $ queryPointer d w (_, _, _, ox, oy, _, _, _) <- io $ queryPointer d w
mouseDrag $ \(_, _, _, ex, ey, _, _, _, _, _) -> mouseDrag $ \(_, _, _, ex, ey, _, _, _, _, _) ->
moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox))) moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox)))
(fromIntegral (fromIntegral (wa_y wa) + (ey - oy))) (fromIntegral (fromIntegral (wa_y wa) + (ey - oy)))
float w float w
mouseResizeWindow :: Window -> X () mouseResizeWindow :: Window -> X ()
mouseResizeWindow w = withDisplay $ \d -> do mouseResizeWindow w = withDisplay $ \d -> do
io $ raiseWindow d w io $ raiseWindow d w
wa <- io $ getWindowAttributes d w wa <- io $ getWindowAttributes d w
io $ warpPointer d none w 0 0 0 0 (fromIntegral (wa_width wa)) io $ warpPointer d none w 0 0 0 0 (fromIntegral (wa_width wa)) (fromIntegral (wa_height wa))
(fromIntegral (wa_height wa))
mouseDrag $ \(_, _, _, ex, ey, _, _, _, _, _) -> mouseDrag $ \(_, _, _, ex, ey, _, _, _, _, _) ->
resizeWindow d w (fromIntegral (max 1 (ex - fromIntegral (wa_x wa)))) resizeWindow d w (fromIntegral (max 1 (ex - fromIntegral (wa_x wa))))
(fromIntegral (max 1 (ey - fromIntegral (wa_y wa)))) (fromIntegral (max 1 (ey - fromIntegral (wa_y wa))))
float w 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