7guis-counter ( -- )

Vocabulary

7guis

Inputs

None

Outputs

None

Definition

USING: accessors arrays kernel math math.parser models
models.arrow ui ui.gadgets ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.labels ui.gadgets.packs ui.gadgets.worlds ;

IN: 7guis

: 7guis-counter ( -- )
    [
        f
        T{ world-attributes { title "Counter" } }
        clone
        0
        <model>
        dup
        [ >dec ]
        <arrow>
        <label-control>
        swap
        [ nip [ 1 + ] change-model ]
        curry
        "Count"
        <label>
        swap
        <border-button>
        2array
        <shelf>
        swap
        add-gadgets
        { 10 0 }
        >>gap
        0.5
        >>align
        { 5 5 }
        <border>
        >>gadgets
        open-window
    ] with-ui ;