<radio-buttons-section> ( -- gadget )

Vocabulary

ui-demo

Inputs

None

Outputs

gadget

an object

Definition

USING: models ui.gadgets ui.gadgets.buttons ;

IN: ui-demo

:: <radio-buttons-section> ( -- gadget )
    "medium" <model> :> size <section>
    "Radio buttons set one model to the value of whichever button ..."
    <prose> add-gadget size {
        { "small" "Small" }
        { "medium" "Medium" }
        { "large" "Large" }
    } <radio-buttons> add-gadget
    "Selected:" size <readout> <labeled-row> add-gadget <page> ;