<<>> <> <> <> DIRECTORY Commander, Rope, VFonts; ColumnLs: CEDAR DEFINITIONS ~ BEGIN <> ColumnateMode: TYPE ~ { ragged, -- uses fixed width spaces; very fast but uneven tabbed, -- uses tabs; fast, uneven, but spacing may be less efficient spaced, -- uses variable width spaces; slow, even, and space efficient fixed}; -- uses fixed pitch font; very fast and even ColumnateNames: PROC [ cmd: Commander.Handle, names: LIST OF Rope.ROPE, reverseOrder: BOOL ¬ FALSE, mode: ColumnateMode ¬ tabbed, columnOrder: BOOL ¬ FALSE, font: VFonts.Font ¬ NIL, rowIndentation: Rope.ROPE ¬ NIL]; <> <> <> <> <<>> ColumnWidth: PROC [ cmd: Commander.Handle, names: LIST OF Rope.ROPE, mode: ColumnateMode ¬ tabbed, font: VFonts.Font ¬ NIL] RETURNS [columnWidth: NAT]; <> <<>> ColumnateGivenColumnWidth: PROC [ cmd: Commander.Handle, names: LIST OF Rope.ROPE, columnWidth: NAT, reverseOrder: BOOL ¬ FALSE, mode: ColumnateMode ¬ tabbed, columnOrder: BOOL ¬ FALSE, font: VFonts.Font ¬ NIL, rowIndentation: Rope.ROPE ¬ NIL]; <> END.