row-rect ( table row -- rect )

Vocabulary

ui.gadgets.tables.private

Inputs

table	an object
row	an object

Outputs

rect

an object

Definition

USING: accessors arrays kernel math math.rectangles sequences
ui.gadgets.line-support ;

IN: ui.gadgets.tables.private

: row-rect ( table row -- rect )
    [ [ line-height ] dip * 0 swap 2array ]
    [ drop [ dim>> first ] [ line-height ] bi 2array ] 2bi
    <rect> ;