<color-label> ( text -- label )


Vocabulary
color-picker

Inputs
textan object


Outputs
labelan object


Definition
USING: accessors colors kernel ui.gadgets.labels ;

IN: color-picker

: <color-label> ( text -- label )
[ <label> dup font>> ]
[ ?named-color [ >>foreground ] when* drop ] bi ;