ui.gadgets: Rename grid-layout.
parent
b83af8c5d2
commit
0b5c1b79c1
|
@ -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? ]
|
||||||
|
|
Loading…
Reference in New Issue