draw-line ( line index gadget -- )
Factor handbook » UI framework » Implementing new gadgets » Gadget line support

Prev:	new-line-gadget ( class -- gadget )
Next:	line-height ( gadget -- n )

Vocabulary
ui.gadgets.line-support

Inputs

line	an object
index	an object
gadget	an object

Outputs
None

Definition

IN: ui.gadgets.line-support

GENERIC: draw-line ( line index gadget -- )

Methods

USING: assocs kernel namespaces ui.gadgets.editors
ui.gadgets.editors.private ui.gadgets.line-support ;

M: editor draw-line
    [ selected-lines get at ] dip over
    [ draw-selected-line ] [ nip draw-unselected-line ] if ;


USING: accessors ui.gadgets.line-support ui.gadgets.tables
ui.gadgets.tables.private ;

M:: table draw-line ( row index table -- )
    row table renderer>> row-columns
    table column-widths>> table table-column-alignment row index
    table row-font table gap>> draw-columns ;