compute-column-widths ( table -- total widths )


Vocabulary
ui.gadgets.tables.private

Inputs
tablean object


Outputs
totalan object
widthsan object


Definition
IN: ui.gadgets.tables.private

GENERIC: compute-column-widths ( table -- total widths )


Methods
USING: accessors arrays assocs kernel math.vectors sequences
ui.gadgets.tables.private ui.tools.inspector ;

M: inspector-table compute-column-widths
dup rows>>
[ drop 0 { } ] [
[ drop gap>> ] [ initial-widths ]
[ keys longest "" 2array row-column-widths ] 2tri vmax
[ compute-total-width ] keep
] if-empty ;


USING: accessors kernel math.vectors sequences ui.gadgets.tables
ui.gadgets.tables.private ;

M: table compute-column-widths
dup rows>>
[ drop 0 { } ] [
[ drop gap>> ] [ initial-widths ] [ ] 2tri
[ row-column-widths vmax ] with each
[ compute-total-width ] keep
] if-empty ;