<> <> <> <> <<>> DIRECTORY GriffinPoint USING [ObjPt, ScrPt], GriffinStyle USING [InternalFont, StyleHandle], Rope USING [ROPE]; GriffinText: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; InternalFont: TYPE = GriffinStyle.InternalFont; StyleHandle: TYPE = GriffinStyle.StyleHandle; EditCaption: PROC [caption: ROPE]; GetBoundingBox: PROC [text: ROPE, style: StyleHandle, anchor: GriffinPoint.ObjPt] RETURNS [tl, br : GriffinPoint.ScrPt]; GetCaption: PROC RETURNS [ROPE]; GetFileName: PROC [initialName, wDir, ext: ROPE] RETURNS [name, explanation: ROPE]; END.