set-col-widths ( canvas rows -- )

Vocabulary

pdf.layout

Inputs

canvas	an object
rows	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: pdf.layout

: set-col-widths ( canvas rows -- )
    [ max-col-widths ] keep [
        dupd cells>>
        [ [ swap >>width drop ] [ drop ] if* ] 2each
    ] each drop ;