<grid-layout> ( grid -- grid-layout )

Vocabulary

ui.gadgets.grids.private

Inputs

grid

an object

Outputs

grid-layout

an object

Definition

USING: accessors kernel sequences ;

IN: ui.gadgets.grids.private

: <grid-layout> ( grid -- grid-layout )
    grid-layout new swap
    [ grid>> [ [ <grid-cell> ] map ] map >>grid ]
    [ fill?>> >>fill? ] [ gap>> >>gap ] tri
    dup row-heights >>row-heights
    dup column-widths >>column-widths ;