From 8a7e4c5fd4bab32e99ff594c34d4d464d9d17f85 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Tue, 17 Sep 2013 05:35:13 +0200 Subject: Remove some comments containing old functions moved elsewhere --- MetaTile/Operations.hs | 25 ------------------------- 1 file changed, 25 deletions(-) diff --git a/MetaTile/Operations.hs b/MetaTile/Operations.hs index acd9898..32b33fb 100644 --- a/MetaTile/Operations.hs +++ b/MetaTile/Operations.hs @@ -482,31 +482,6 @@ mouseDrag f done = do clearEvents pointerMotionMask return z --- | XXX comment me -{-mouseMoveWindow :: Window -> X () -mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do - io $ raiseWindow d w - wa <- io $ getWindowAttributes d w - (_, _, _, ox', oy', _, _, _) <- io $ queryPointer d w - let ox = fromIntegral ox' - oy = fromIntegral oy' - mouseDrag (\ex ey -> io $ moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox))) - (fromIntegral (fromIntegral (wa_y wa) + (ey - oy)))) - (float w) - --- | XXX comment me -mouseResizeWindow :: Window -> X () -mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do - io $ raiseWindow d w - wa <- io $ getWindowAttributes d w - sh <- io $ getWMNormalHints d w - io $ warpPointer d none w 0 0 0 0 (fromIntegral (wa_width wa)) (fromIntegral (wa_height wa)) - mouseDrag (\ex ey -> - io $ resizeWindow d w `uncurry` - applySizeHintsContents sh (ex - fromIntegral (wa_x wa), - ey - fromIntegral (wa_y wa))) - (float w)-} - -- --------------------------------------------------------------------- -- | Support for window size hints -- cgit v1.2.3