draw-column ( font column width align gap -- )

Vocabulary

ui.gadgets.tables.private

Inputs

font	an object
column	an object
width	an object
align	an object
gap	an object

Outputs

None

Definition

USING: kernel opengl ;

IN: ui.gadgets.tables.private

: draw-column ( font column width align gap -- )
    [
        over [
            [ 2dup ] 2dip column-loc
            [ draw-cell ] with-translation
        ] dip
    ] dip translate-column ;