color-swatch

Vocabulary

color-table

Definition

IN: color-table

TUPLE: color-swatch color ;

Methods

USING: color-table color-table.private kernel sequences
ui.gadgets.tables.private ui.text ;

M: color-swatch cell-dim
    drop full-block-string text-dim first2 0 ;


USING: accessors color-table color-table.private kernel opengl
ui.gadgets.tables.private ui.text ;

M: color-swatch draw-cell
    [ full-block-string text-dim ] [ color>> gl-color ] bi*
    { 0 0 } swap gl-fill-rect ;