From 585b545ddb27e708ccf4825cddbf98851c71044e Mon Sep 17 00:00:00 2001 From: Dougal Stanton Date: Sat, 20 Oct 2007 11:25:09 +0200 Subject: Comments for ConstrainedResize darcs-hash:20071020092509-1b04a-59beb1b1109ca1f513115f15538a669b4d55df50.gz --- ConstrainedResize.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'ConstrainedResize.hs') diff --git a/ConstrainedResize.hs b/ConstrainedResize.hs index 7a553aa..6baf471 100644 --- a/ConstrainedResize.hs +++ b/ConstrainedResize.hs @@ -34,9 +34,13 @@ import Graphics.X11.Xlib.Extras -- > [ ... -- > , ((modMask, button3), (\w -> focus w >> Sqr.mouseResizeWindow w False)) -- > , ((modMask .|. shiftMask, button3), (\w -> focus w >> Sqr.mouseResizeWindow w True )) ] +-- +-- The line without the shiftMask replaces the standard mouse resize function call, so it's +-- not completely necessary but seems neater this way. -- %import qualified XMonadContrib.ConstrainedResize as Sqr -- %mousebind , ((modMask, button3), (\\w -> focus w >> Sqr.mouseResizeWindow w False)) +-- %mousebind , ((modMask .|. shiftMask, button3), (\\w -> focus w >> Sqr.mouseResizeWindow w True)) -- | Resize (floating) window with optional aspect ratio constraints. mouseResizeWindow :: Window -> Bool -> X () -- cgit v1.2.3