steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-09-01 22:44:43 -05:00
parent c99ac86a3f
commit fbe6dd9b63
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/packs/packs.factor
View File

@ -32,7 +32,7 @@ TUPLE: pack < gadget
: pack-layout ( pack sizes -- ) : pack-layout ( pack sizes -- )
round-dims over children>> round-dims over children>>
>r dupd packed-dims r> 2dup [ (>>dim) ] 2each >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> ( orientation -- pack )
pack new-gadget pack new-gadget