<example-button> ( file -- button )

Vocabulary

gml.ui

Inputs

file

an object

Outputs

button

an object

Definition

USING: io.pathnames kernel ui.gadgets.buttons ;

IN: gml.ui

: <example-button> ( file -- button )
    dup [ [ example-dir ] ] dip
    [ append-path swap find-gml-editor load-input ] curry
    compose <border-button> ;