<layout-controls> ( width gap align fill -- gadget )


Vocabulary
ui-demo

Inputs
widthan object
gapan object
alignan object
fillan object


Outputs
gadgetan object


Definition
USING: ui.gadgets ui.gadgets.buttons ;

IN: ui-demo

:: <layout-controls> ( width gap align fill -- gadget )
<section> "Width" width <range-row> add-gadget
"Gap" gap <range-row> add-gadget align
{ { 0 "Start" } { 1/2 "Center" } { 1 "End" } }
<radio-buttons> add-gadget
"Alignment:" align <readout> <labeled-row> add-gadget
fill "Fill available space" <checkbox> add-gadget
"Fill:" fill <readout> <labeled-row> add-gadget ;