<labeled-row> ( string gadget -- gadget )

Vocabulary

ui-demo

Inputs

string	an object
gadget	an object

Outputs

gadget

an object

Definition

USING: ui.gadgets ui.gadgets.labels ;

IN: ui-demo

:: <labeled-row> ( string gadget -- gadget )
    <shelf-of> string <label> add-gadget gadget add-gadget ;