row-color ( row renderer -- color )
Factor handbook » UI framework » Building user interfaces » Pre-made UI gadgets » Table gadgets » Table row renderer protocol

Prev:	row-columns ( row renderer -- columns )
Next:	row-value ( row renderer -- object )

Vocabulary
ui.gadgets.tables

Inputs

row	an object
renderer	an object

Outputs

color

an object

Definition

IN: ui.gadgets.tables

GENERIC: row-color ( row renderer -- color )

Methods

USING: colors kernel sequences ui.gadgets.tables
ui.tools.listener.completion ;

M: color-completion row-color drop second named-color ;


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

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


USING: kernel ui.gadgets.tables ;

M: object row-color 2drop f ;


USING: accessors combinators kernel ui.gadgets.controls
ui.gadgets.tables ;

M: table row-color
    color-quot>> [ ( a -- b ) call-effect ] [ drop f ] if* ;


USING: accessors colors kernel sequences ui.gadgets.tables
ui.theme ui.tools.listener.completion vocabs ;

M: vocab-completion row-color
    drop first dup vocab?
    [ name>> ".private" tail? COLOR: dark-red text-color ? ]
    [ drop COLOR: dark-gray ] if ;


USING: colors kernel ui.gadgets.tables
ui.tools.listener.completion ;

M: vocab-word-completion row-color 2drop COLOR: black ;


USING: accessors colors combinators kernel sequences sets
ui.gadgets.tables ui.theme ui.tools.listener.completion ;

M: word-completion row-color
    [ first vocabulary>> ] [ manifest>> ] bi* {
        { [ dup not ] [ text-color ] }
        { [ 2dup search-vocab-names>> in? ] [ text-color ] }
        { [ over ".private" tail? ] [ COLOR: dark-red ] }
        [ COLOR: dark-gray ]
    } cond 2nip ;