<counter> ( -- counter )

Vocabulary

ui-demo

Inputs

None

Outputs

counter

an object

Definition

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

IN: ui-demo

: <counter> ( -- counter )
    vertical counter new-track 0 <model> >>count { 8 8 } >>gap
    dup <toolbar> format-toolbar f track-add
    dup count>> <readout> "Count:" swap <labeled-row>
    f track-add ;