<run-vocab-button> ( vocab-name -- button )

Vocabulary

demos

Inputs

vocab-name

an object

Outputs

button

an object

Definition

USING: kernel ui.gadgets.buttons ui.tools.listener vocabs.loader
;

IN: demos

: <run-vocab-button> ( vocab-name -- button )
    dup [ run ] curry [ [ drop ] ] dip
    [ \ run call-listener ] curry compose <border-button> ;