new accessors

2008-09-01 22:43:56 -05:00 · 2008-09-01 22:43:56 -05:00 · 04d2f95536
parent 5d1da809b6
commit 04d2f95536
1 changed files with 2 additions and 2 deletions
--- a/basis/ui/gadgets/incremental/incremental.factor
+++ b/basis/ui/gadgets/incremental/incremental.factor
@ -37,8 +37,8 @@ M: incremental pref-dim*
    [ next-cursor ] keep (>>cursor) ;

 : incremental-loc ( gadget incremental -- )
-    dup cursor>> swap orientation>> v*
-    swap set-rect-loc ;
+    [ cursor>> ] [ orientation>> ] bi v*
+    >>loc drop ;

 : prefer-incremental ( gadget -- )
    dup forget-pref-dim dup pref-dim >>dim drop ;