<minesweeper-gadget> ( -- gadget )

Vocabulary

minesweeper

Inputs

None

Outputs

gadget

an object

Definition

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

IN: minesweeper

: <minesweeper-gadget> ( -- gadget )
    vertical minesweeper-gadget new-track 8 8 10 <grid-gadget>
    [ <toolbar> format-toolbar f track-add ] [ 1 track-add ] bi
    ;