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

ui.gadgets: Rename grid-layout.

db4
Doug Coleman 2013-03-23 16:41:02 -07:00
parent b83af8c5d2
commit 0b5c1b79c1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/grids/grids.factor
View File

@ -44,7 +44,7 @@ M: cell baseline baseline>> ;
M: cell cap-height cap-height>> ; M: cell cap-height cap-height>> ;
TUPLE: grid-layout grid gap fill? row-heights column-widths ; TUPLE: grid-layout-tuple grid gap fill? row-heights column-widths ;
: iterate-cell-dims ( cells quot -- seq ) : iterate-cell-dims ( cells quot -- seq )
'[ [ pref-dim>> @ ] [ max ] map-reduce ] map ; inline '[ [ pref-dim>> @ ] [ max ] map-reduce ] map ; inline
@ -59,7 +59,7 @@ TUPLE: grid-layout grid gap fill? row-heights column-widths ;
grid>> flip [ first ] iterate-cell-dims ; grid>> flip [ first ] iterate-cell-dims ;
: <grid-layout> ( grid -- grid-layout ) : <grid-layout> ( grid -- grid-layout )
\ grid-layout new \ grid-layout-tuple new
swap swap
[ grid>> [ [ <cell> ] map ] map >>grid ] [ grid>> [ [ <cell> ] map ] map >>grid ]
[ fill?>> >>fill? ] [ fill?>> >>fill? ]