<grid-gadget> ( rows cols mines -- gadget )

Vocabulary

minesweeper

Inputs

rows	an object
cols	an object
mines	an object

Outputs

gadget

an object

Definition

USING: accessors calendar circular colors kernel timers
ui.gadgets ui.pens.solid ;

IN: minesweeper

:: <grid-gadget> ( rows cols mines -- gadget )
    grid-gadget new rows cols make-cells mines place-mines
    update-counts >>cells H{ } clone >>textures dup
    [ relayout-1 ] curry f 1 seconds <timer> >>timer
    COLOR: gray <solid> >>interior "12345" <circular> >>hint? ;