GriffinText.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Written by: Maureen Stone, September 20, 1985 1:15:31 pm PDT
DIRECTORY
GriffinStyle USING [InternalFont],
StyleDefs USING [StyleHandle, Font],
PointDefs USING [ScrPt,ObjPt],
Rope USING [ROPE];
GriffinText: CEDAR DEFINITIONS
~ BEGIN
ROPE: TYPE = Rope.ROPE;
InternalFont: TYPE = GriffinStyle.InternalFont;
ScrPt: TYPE = PointDefs.ScrPt;
StyleHandle: TYPE = StyleDefs.StyleHandle;
GetFileName: PROC[wDir: ROPE] RETURNS[ROPE];
Called from PreStore and Restore. Return a full file path name
Called by FileOps
GetCaption: PROC RETURNS[ROPE];
GetBoundingBox: PROC[text: ROPE, style: StyleHandle, anchor: PointDefs.ObjPt] RETURNS[tl,br: ScrPt];
Called by Caption (DrawOps)
EditCaption: PROC[caption: ROPE];
Hand the selected caption to the editing routine. Called by Modify (DrawOps)
GetFont: PROC RETURNS[StyleDefs.Font];
called when? need to update current style when appropriate.
SetFont: PROC [font: StyleDefs.Font];
Called by SetCurrentStyle (GriffinStyleImpl)
END.