summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2013-09-17 05:35:13 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2013-09-17 05:35:13 +0200
commit8a7e4c5fd4bab32e99ff594c34d4d464d9d17f85 (patch)
treef5f57524b65fee919192546d74d07987dcbb1fa4
parentf3b1977043a8736ac856d4477b485ee441a4342f (diff)
downloadmetatile-8a7e4c5fd4bab32e99ff594c34d4d464d9d17f85.zip
metatile-8a7e4c5fd4bab32e99ff594c34d4d464d9d17f85.tar
Remove some comments containing old functions moved elsewhere
-rw-r--r--MetaTile/Operations.hs25
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