From 8beeac644447001032a623d3f1283672062e1e1b Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Thu, 6 Oct 2011 21:14:21 -0700 Subject: [PATCH] Fixed one of resizer's width limits. --- src/gtk/fix-layout.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 2.25.1