new accessors

2008-09-01 22:43:40 -05:00 · 2008-09-01 22:43:40 -05:00 · 5d1da809b6
parent 191a8b3206
commit 5d1da809b6
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/grids/grids.factor
+++ b/basis/ui/gadgets/grids/grids.factor
@ -62,7 +62,7 @@ M: grid pref-dim*
 : position-grid ( grid horiz vert -- )
    pick >r
    >r over r> grid-positions >r grid-positions r>
-    pair-up r> [ set-rect-loc ] do-grid ;
+    pair-up r> [ (>>loc) ] do-grid ;

 : resize-grid ( grid horiz vert -- )
    pick fill?>> [