Fix scroll>rect flaw

2009-02-20 20:53:25 -06:00 · 2009-02-20 20:53:25 -06:00 · af0b6ef4c8
parent 1bf9b3b49e
commit af0b6ef4c8
1 changed files with 1 additions and 1 deletions
--- 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 ]