From af0b6ef4c85538d66741406359ff05261033c7fd Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 20 Feb 2009 20:53:25 -0600
Subject: [PATCH] Fix scroll>rect flaw
---
basis/ui/gadgets/scrollers/scrollers.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/ui/gadgets/scrollers/scrollers.factor b/basis/ui/gadgets/scrollers/scrollers.factor
index 38986e5657..aed3d32fc5 100644
--- a/basis/ui/gadgets/scrollers/scrollers.factor
+++ b/basis/ui/gadgets/scrollers/scrollers.factor
@@ -54,7 +54,7 @@ M: viewport pref-dim* gadget-child pref-viewport-dim ;
2dup control-value = [ 2drop ] [ set-control-value ] if ;
: (scroll>rect) ( rect scroller -- )
- [ [ loc>> ] [ dim>> ] bi <rect> ] dip
+ [ [ loc>> ] [ dim>> { 1 1 } v+ ] bi <rect> ] dip
{
[ scroller-value vneg offset-rect ]
[ viewport>> dim>> rect-min ]