From a50a6bbd2919c8e54dc73b75bb45d35a27b7bf5a Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 26 Mar 2007 09:50:34 +0000 Subject: [PATCH] Restrain leftWidth --- Operations.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Operations.hs b/Operations.hs index 393c25b..b70f151 100644 --- a/Operations.hs +++ b/Operations.hs @@ -64,7 +64,8 @@ switchLayout = do -- | changeWidth. Change the width of the main window in tiling mode. changeWidth :: Rational -> X () changeWidth delta = do - modify (\s -> s {leftWidth = leftWidth s + delta}) + -- the min/max stuff is to make sure that 0 <= leftWidth <= 1 + modify (\s -> s {leftWidth = min 1 $ max 0 $ leftWidth s + delta}) refresh -- | windows. Modify the current window list with a pure function, and refresh