column-loc ( font column width align -- loc )


Vocabulary
ui.gadgets.tables.private

Inputs
fontan object
columnan object
widthan object
alignan object


Outputs
locan object


Definition
USING: arrays kernel math namespaces ui.gadgets.line-support ;

IN: ui.gadgets.tables.private

:: column-loc ( font column width align -- loc )
font column cell-dim
:> ( cell-width cell-height cell-padding ) cell-width width
swap - align * cell-padding 2 / 1 align - * +
cell-height \ line-height get swap - 2 / [ >integer ] bi@
2array ;