diff --git a/basis/ui/gadgets/grids/grids.factor b/basis/ui/gadgets/grids/grids.factor index 93d8e8a867..3686413933 100644 --- a/basis/ui/gadgets/grids/grids.factor +++ b/basis/ui/gadgets/grids/grids.factor @@ -35,14 +35,14 @@ PRIVATE> ( gadget -- cell ) - [ pref-dim ] [ baseline ] [ cap-height ] tri cell boa ; +: ( 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 -- grid-layout ) \ grid-layout-tuple new swap - [ grid>> [ [ ] map ] map >>grid ] + [ grid>> [ [ ] map ] map >>grid ] [ fill?>> >>fill? ] [ gap>> >>gap ] tri