grid
Factor handbook » UI framework » Building user interfaces » Gadget hierarchy and layouts » Grid layouts

Next:

<grid> ( children -- grid )

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 ;