<life-gadget> ( -- gadget )

Vocabulary

game-of-life

Inputs

None

Outputs

gadget

an object

Definition

USING: kernel ui.gadgets ui.gadgets.toolbar ui.gadgets.tracks ;

IN: game-of-life

: <life-gadget> ( -- gadget )
    vertical life-gadget new-track 20 20 make-grid <grid-gadget>
    [ <toolbar> format-toolbar f track-add ] [ 1 track-add ] bi
    ;