new accessors

2008-09-01 22:44:43 -05:00 · 2008-09-01 22:44:43 -05:00 · fbe6dd9b63
parent c99ac86a3f
commit fbe6dd9b63
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/packs/packs.factor
+++ b/basis/ui/gadgets/packs/packs.factor
@ -32,7 +32,7 @@ TUPLE: pack < gadget
 : pack-layout ( pack sizes -- )
    round-dims over children>>
    >r dupd packed-dims r> 2dup [ (>>dim) ] 2each
-    >r packed-locs r> [ set-rect-loc ] 2each ;
+    >r packed-locs r> [ (>>loc) ] 2each ;

 : <pack> ( orientation -- pack )
    pack new-gadget