From 7bd9e2260bdb4001f8ef892714792a2804bef760 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Sun, 3 Jun 2007 09:15:56 +0200 Subject: comments only darcs-hash:20070603071556-9c5c1-244aeb0d684f78ae0d3495547064a1203cd36762 --- Operations.hs | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) diff --git a/Operations.hs b/Operations.hs index 42c3b84..81df02a 100644 --- a/Operations.hs +++ b/Operations.hs @@ -467,17 +467,26 @@ mouseMoveWindow w = withDisplay $ \d -> do wa <- io $ getWindowAttributes d w (_, _, _, ox, oy, _, _, _) <- io $ queryPointer d w mouseDrag $ \(_, _, _, ex, ey, _, _, _, _, _) -> - moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox))) - (fromIntegral (fromIntegral (wa_y wa) + (ey - oy))) + moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox))) + (fromIntegral (fromIntegral (wa_y wa) + (ey - oy))) float w 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 -- cgit v1.2.3