Vocabulary
ui.gadgets.grids

Class description
A grid gadget lays out its children so that all gadgets in a column have equal width and all gadgets in a row have equal height.

The gap slot stores a pair of integers, the horizontal and vertical gap between children, respectively.

The fill? slot stores a boolean, indicating if grid cells should assume their preferred size, or if they should fill the dimensions of the cell. The default is t.

Grids are created by calling <grid> and children are managed with grid-add and grid-remove.

The add-gadget, unparent and clear-gadget words should not be used to manage child gadgets of grids.

See also
frame

Definition

USING: ui.gadgets ;

IN: ui.gadgets.grids

TUPLE: grid < gadget
grid { gap initial: { 0 0 } } { fill? initial: t } ;

Methods

USING: accessors kernel math.vectors sequences ui.gadgets
ui.gadgets.grids ;

M: grid children-on
dup children>> empty?
[ 2drop f ] [
[ { 0 1 } ] dip [ grid>> ] [ dim>> ] bi
[ [ loc>> vmin ] reduce ] curry fast-children-on concat
] if ;

USING: accessors make sequences strings.tables ui.gadgets
ui.gadgets.grids ;

M: grid gadget-text*
grid>> [ [ gadget-text ] map ] map format-table
[ 10 , ] [ % ] interleave ;

USING: accessors kernel ui.gadgets ui.gadgets.grids
ui.gadgets.grids.private ;

M: grid layout* [ grid>> ] [ <grid-layout> ] bi layout-grid ;

USING: ui.gadgets ui.gadgets.grids ui.gadgets.grids.private ;

M: grid pref-dim* <grid-layout> grid-pref-dim ;