From 5d1da809b6e8b38d48f17eb710831e1d235d2253 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 22:43:40 -0500
Subject: [PATCH] new accessors

---
 basis/ui/gadgets/grids/grids.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/ui/gadgets/grids/grids.factor b/basis/ui/gadgets/grids/grids.factor
index 83e5e73662..42e8cfdfdf 100644
--- 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?>> [