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

ui.gadgetes.grids: cell -> grid-cell. it's private and hardly used and loaded by default, let's not confuse the tools with the layouts:cell.

db4
Doug Coleman 2015-07-20 01:23:00 -07:00
parent af90d77fc2
commit dfc5be9e43
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,14 +35,14 @@ PRIVATE>
<PRIVATE
TUPLE: cell pref-dim baseline cap-height ;
TUPLE: grid-cell pref-dim baseline cap-height ;
: <cell> ( gadget -- cell )
[ pref-dim ] [ baseline ] [ cap-height ] tri cell boa ;
: <grid-cell> ( gadget -- cell )
[ pref-dim ] [ baseline ] [ cap-height ] tri grid-cell boa ;
M: cell baseline baseline>> ;
M: grid-cell baseline baseline>> ;
M: cell cap-height cap-height>> ;
M: grid-cell cap-height cap-height>> ;
TUPLE: grid-layout-tuple grid gap fill? row-heights column-widths ;
@ -61,7 +61,7 @@ TUPLE: grid-layout-tuple grid gap fill? row-heights column-widths ;
: <grid-layout> ( grid -- grid-layout )
\ grid-layout-tuple new
swap
[ grid>> [ [ <cell> ] map ] map >>grid ]
[ grid>> [ [ <grid-cell> ] map ] map >>grid ]
[ fill?>> >>fill? ]
[ gap>> >>gap ]
tri