new accessors

2008-09-01 22:45:04 -05:00 · 2008-09-01 22:45:04 -05:00 · 5798940ee9
parent 065c9eb93e
commit 5798940ee9
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/sliders/sliders.factor
+++ b/basis/ui/gadgets/sliders/sliders.factor
@ -104,7 +104,7 @@ elevator H{

 : layout-thumb-loc ( slider -- )
    dup thumb-loc (layout-thumb)
-    >r [ floor ] map r> set-rect-loc ;
+    >r [ floor ] map r> (>>loc) ;

 : layout-thumb-dim ( slider -- )
    dup dup thumb-dim (layout-thumb) >r