<range-row> ( title range -- gadget )


Vocabulary
ui-demo

Inputs
titlean object
rangean object


Outputs
gadgetan object


Definition
USING: accessors models.range ui.gadgets ui.gadgets.borders
ui.gadgets.labels ui.gadgets.sliders ;

IN: ui-demo

:: <range-row> ( title range -- gadget )
<shelf-of> title <label> add-gadget
range horizontal <slider> { 0 0 } <filled-border>
{ 200 18 } >>min-dim add-gadget
range range-model <readout> add-gadget ;