Fix regression in ui.gadgets:screen-rect

2009-01-24 20:17:21 -06:00 · 2009-01-24 20:17:21 -06:00 · 622015adab
parent 60f36cd9c8
commit 622015adab
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/gadgets.factor
+++ b/basis/ui/gadgets/gadgets.factor
@ -315,7 +315,7 @@ SYMBOL: in-layout?
 : (screen-rect) ( gadget -- loc ext )
    dup parent>> [
        [ rect-extent ] dip (screen-rect)
-        [ [ nip ] [ v+ ] 2bi ] dip [ vmin ] [ v+ ] 2bi*
+        [ [ nip ] [ v+ ] 2bi ] dip [ v+ ] [ vmin ] 2bi*
    ] [
        rect-extent
    ] if* ;