CDTexts.mesa A ChipNDale module
Copyright © 1983 by Xerox Corporation. All rights reserved.
by Christian Jacobi, July 29, 1983 10:42 am
last edited by Christian Jacobi, May 30, 1985 5:24:39 pm PDT
DIRECTORY
CD,
Rope USING [ROPE],
Imager USING [Font, VEC];
CDTexts: CEDAR DEFINITIONS =
BEGIN
TextPtr: TYPE = REF TextRec;
TextRec:
TYPE =
RECORD [
text: Rope.ROPE,
cdFont: CDFont
];
CDFont: TYPE = REF READONLY FontRec;
FontRec:
TYPE =
RECORD [
font: Imager.Font,
xy: Imager.VEC, --after scaling
scaleR: REAL ← 1.0,
scaleI: INT ← 1,
origin: CD.Position,
height: CD.Number ← -1, --after scaling
isPlaceHolder: BOOL ← FALSE,
supposedKey: Rope.ROPE,
supposedName: Rope.ROPE,
format: PRIVATE INT,
data: PRIVATE REF ANY ← NIL, --for CDTextsImpl
properties: CD.Properties ← NIL
];
CreateText: PROC [text: Rope.ROPE, font: REF READONLY ANY, layer: CD.Layer ← CD.combined] RETURNS [CD.Object];
MakeFont1: PROC [name: Rope.ROPE, scale: CD.Number ← CD.lambda] RETURNS [CDFont];
MakeFontR: PROC [name: Rope.ROPE, scale: REAL] RETURNS [CDFont];
END.