color-renderer

Vocabulary

color-table

Definition

IN: color-table

SINGLETON: color-renderer

Methods

USING: color-table kernel ui.gadgets.tables ;

M: color-renderer column-titles
    drop { "Color" "Name" "Red" "Green" "Blue" "Hex" } ;


USING: color-table kernel ui.gadgets.tables ;

M: color-renderer filled-column drop 0 ;


USING: color-table colors kernel ui.gadgets.tables ;

M: color-renderer row-color drop named-color ;


USING: accessors color-table color-table.private colors
combinators combinators.smart formatting kernel
ui.gadgets.tables ;

M: color-renderer row-columns
    drop [
        full-block-string swap dup named-color {
            [ red>> "%.5f" sprintf ]
            [ green>> "%.5f" sprintf ]
            [ blue>> "%.5f" sprintf ]
            [ color>hex ]
        } cleave
    ] output>array ;


USING: color-table colors kernel ui.gadgets.tables ;

M: color-renderer row-value drop named-color ;