table

Vocabulary

ui.gadgets.controls

Definition

USING: ui.gadgets.tables ;

IN: ui.gadgets.controls

TUPLE: table < table
    { quot initial: [ ] } { val-quot initial: [ ] } color-quot
    column-titles column-alignment actions ;

Methods

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

M: table column-alignment column-alignment>> ;


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

M: table column-titles column-titles>> ;


USING: accessors kernel ui.gadgets.controls ;

M: table output-model
    dup val-quot>> [ selection>> ] [ selection-index>> ] if ;


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 combinators kernel ui.gadgets.controls
ui.gadgets.tables ;

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


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

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