run-minesweeper ( -- )

Vocabulary

minesweeper

Inputs

None

Outputs

None

Definition

USING: accessors kernel ui ui.gadgets.worlds ;

IN: minesweeper

: run-minesweeper ( -- )
    [
        f
        T{ world-attributes
            { title "Minesweeper" }
            { window-controls
                {
                    normal-title-bar
                    close-button
                    minimize-button
                }
            }
        }
        clone
        <minesweeper-gadget>
        >>gadgets
        open-window
    ] with-ui ;