<color-picker-game> ( constructor -- gadget )


Vocabulary
color-picker-game

Inputs
constructoran object


Outputs
gadgetan object


Definition
USING: accessors color-picker models ui.gadgets
ui.gadgets.tracks ui.tools.common ;

IN: color-picker-game

:: <color-picker-game> ( constructor -- gadget )
vertical color-picker-game new-track white-interior
{ 5 5 } >>gap
random-color <model> :> left-model constructor
<color-sliders> :> ( sliders right-model ) horizontal
<track> left-model <color-preview> 1/2 track-add
right-model <color-preview> 1/2 track-add 1 track-add
sliders f track-add right-model <color-status> f track-add
<match-button> f track-add <reset-button> f track-add ;