From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Fri, 7 Oct 2011 04:14:21 +0000 (-0700)
Subject: Fixed one of resizer's width limits.
X-Git-Tag: mit-scheme-pucked-9.2.12~598
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8beeac644447001032a623d3f1283672062e1e1b;p=mit-scheme.git

Fixed one of resizer's width limits.
---

diff --git a/src/gtk/fix-layout.scm b/src/gtk/fix-layout.scm
index 21536d969..44d053070 100644
--- a/src/gtk/fix-layout.scm
+++ b/src/gtk/fix-layout.scm
@@ -880,8 +880,9 @@ USA.
 				(fix:min dx dx-max))
 			      ;; Before should get only so small.
 			      (let ((dx-min
-				     (fix:max 0
-					      (fix:- (car w.h-before) 5))))
+				     (fix:min 0
+					      (fix:*
+					       -1 (fix:- (car w.h-before) 5)))))
 				(fix:max dx-min dx)))))
 		    (adjust! dx-clamped 0)))))
 	  (begin