DIRECTORY CD, Rope USING [ROPE], Imager USING [Font, VEC]; CDTexts: CEDAR DEFINITIONS = BEGIN IsText: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ ob.class = textClass ] }; 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, scaleR: REAL _ 1.0, scaleI: INT _ 1, origin: CD.Position, height: CD.Number _ -1, isPlaceHolder: BOOL _ FALSE, supposedKey: Rope.ROPE, supposedName: Rope.ROPE, format: PRIVATE INT, data: PRIVATE REF ANY _ NIL, --for CDTextsImpl properties: CD.PropRef ]; CreateText: PROC [text: Rope.ROPE, font: REF READONLY ANY, layer: CD.Layer _ CD.combined] RETURNS [CD.Object]; MakeFont: PROC [name: Rope.ROPE, scale: CD.Number _ 2] RETURNS [CDFont]; textClass: PRIVATE READONLY REF CD.ObjectClass; END. CDTexts.mesa A ChipNDale module Copyright c 1983 by Xerox Corporation. All rights reserved. by Christian Jacobi, July 29, 1983 10:42 am last edited by Christian Jacobi, October 7, 1985 11:08:54 am PDT Text objects. --use lambda for good scale Κ7˜codešœ"™"Kšœ Οmœ1™