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. Ò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, May 30, 1985 5:24:39 pm PDT ʘšœ"™"Jšœ Ïmœ1™