CDCreateLabels.mesa
Copyright (C) 1985 by Xerox Corporation. All rights reserved.
Created by: Jacobi, March 1, 1985 4:52:57 pm PST
Last Edited by: Jacobi, September 23, 1985 5:43:24 pm PDT
DIRECTORY
CD,
Imager,
Rope;
CDCreateLabels: CEDAR DEFINITIONS =
BEGIN
FindOrCreateCharCell: PROC [design: CD.Design, font: Imager.Font, char: CHAR, scale: INT ← -1, lev: CD.Layer] RETURNS [cell: CD.Object];
CreateTextCell: PROC [design: CD.Design, text: Rope.ROPE, font: Imager.Font, scale: INT ← -1, lev: CD.Layer] RETURNS [cell: CD.Object];