<example-buttons> ( -- gadget )

Vocabulary

gml.ui

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors sequences ui.gadgets ui.gadgets.labels
ui.gadgets.packs ;

IN: gml.ui

: <example-buttons> ( -- gadget )
    gml-files <pile> { 5 5 } >>gap
    "Examples:" <label> add-gadget
    [ <example-button> add-gadget ] reduce ;