<color-tabs> ( quot: ( constructor -- gadget ) -- gadget )

Vocabulary

color-picker

Inputs

quot	a quotation with stack effect ( constructor -- gadget )

Outputs

gadget

an object

Definition

USING: accessors colors colors.cmyk colors.gray colors.hsl
colors.hsv colors.hwb colors.ryb colors.xyy colors.xyz
colors.yiq colors.yuv kernel sequences splitting
ui.gadgets.tabbed ;

IN: color-picker

:: <color-tabs>
    ( quot: ( constructor -- gadget ) -- gadget )
    <tabbed-gadget> {
        <rgba>
        <hsla>
        <hsva>
        <hwba>
        <ryba>
        <cmyka>
        <gray>
        <xyza>
        <xyYa>
        <yiqa>
        <yuva>
    }
    [ quot [ name>> "<" ?head drop ">" ?tail drop add-tab ] bi ]
    each ; inline