DIRECTORY CD, Rope USING [ROPE], Imager USING [Font, VEC]; CDTexts: CEDAR DEFINITIONS = BEGIN IsRigidText: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ ob.class=rigidTextClass ] }; IsFlipText: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ ob.class=flipTextClass ] }; IsText: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ ob.class=rigidTextClass OR ob.class=flipTextClass ] }; TextSpecific: TYPE = REF TextRec; TextRec: TYPE = RECORD [ text: Rope.ROPE, cdFont: CDFont ]; CDFont: TYPE = REF --READONLY-- FontRec; FontRec: TYPE = RECORD [ --readonly to clients except properties 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, substitutedFont: Imager.Font, data: PRIVATE REF ANY _ NIL, --for CDTextsImpl properties: CD.PropRef ]; Create: PROC [text: Rope.ROPE, font: REF ANY, layer: CD.Layer _ CD.commentLayer, flip: BOOL_TRUE] RETURNS [CD.Object]; MakeFont: PROC [name: Rope.ROPE, scale: CD.Number _ 2] RETURNS [CDFont]; rigidTextClass: PRIVATE CD.ObjectClass; flipTextClass: PRIVATE CD.ObjectClass; END.  CDTexts.mesa A ChipNDale module Copyright c 1983 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, July 29, 1983 10:42 am Last edited by: Christian Jacobi, September 18, 1986 2:53:08 pm PDT Text objects. --use lambda for good scale Κ§˜codešœ"™"Kšœ Οmœ1™