<comboboxes-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: accessors ui.gadgets ui.gadgets.comboboxes ;

IN: ui-demo

:: <comboboxes-section> ( -- gadget )
    { "Small" "Medium" "Large" } <combobox> :> combo <section>
    "Click the dropdown and choose an option. The model below show..."
    <prose> add-gadget combo <pref-width> add-gadget
    "Displayed value:" combo model>> <readout> <labeled-row>
    add-gadget <page> ;