row-column-widths ( table row -- widths )


Vocabulary
ui.gadgets.tables.private

Inputs
tablean object
rowan object


Outputs
widthsan object


Definition
USING: accessors kernel math sequences ;

IN: ui.gadgets.tables.private

: row-column-widths ( table row -- widths )
[ font>> ] dip [ cell-dim nip + ] with map ;