diff options
| -rw-r--r-- | MetaTile/Operations.hs | 25 |
1 files changed, 0 insertions, 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 |