<match-button> ( -- button )

Vocabulary

color-picker-game

Inputs

None

Outputs

button

an object

Definition

USING: accessors formatting kernel models sequences ui.gadgets
ui.gadgets.buttons ;

IN: color-picker-game

: <match-button> ( -- button )
    "Match Color" [
        dup find-color-previews [ model>> compute-model ] bi@
        color-score
        "Your score: %d" sprintf over children>> first text<<
        relayout
    ] <border-button> ;