<color-sliders> ( constructor -- gadget model )


Vocabulary
color-picker

Inputs
constructoran object


Outputs
gadgetan object
modelan object


Definition
USING: accessors classes.tuple inverse kernel models.product
models.range sequences ui.gadgets ui.gadgets.labels
ui.gadgets.packs ;

IN: color-picker

:: <color-sliders> ( constructor -- gadget model )
constructor def>> first ?wrapped :> color-class color-class
all-slots [ name>> ] map
but-last :> slot-names slot-names length
[ <color-range> ] replicate [
slot-names <filled-pile> { 5 5 } >>gap [
[ <color-slider> ]
[ <color-label> label-on-left add-gadget ] bi*
] 2reduce
]
[ [ range-model ] map <product> color-class <color-model> ]
bi ;