GGCluster.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Last edited by Bier on January 3, 1986 3:56:21 pm PST
Contents: Implements the various cluster classes in Gargoyle.
DIRECTORY
GGBasicTypes, GGInterfaceTypes, GGModelTypes, Imager, ImagerFont, NodeStyle, Rope;
GGCluster: CEDAR DEFINITIONS = BEGIN
Cluster: TYPE = GGModelTypes.Cluster;
ClusterClass: TYPE = GGModelTypes.ClusterClass;
Point: TYPE = GGBasicTypes.Point;
DisplayStyle: TYPE = GGInterfaceTypes.DisplayStyle;
NotFound: SIGNAL;
FontStringError: SIGNAL;
FetchClusterClass: PROC [type: ATOM] RETURNS [class: ClusterClass];
CopyCluster: PROC [clus: Cluster] RETURNS [copy: Cluster]; -- See GGObjects.CopyCluster
MakeTextCluster:
PROC [text: Rope.
ROPE, fontStyle: DisplayStyle, fontString: Rope.
ROPE, colorName: Rope.
ROPE, worldPt: Point]
RETURNS [clus: Cluster];
A fontstring is a font designation with family, size, and face, like Helvetica23BI or TimesRoman6. A colorName is a name from the color naming system in the Cedar ColorTool.
GetText: PROC [clus: Cluster] RETURNS [text: Rope.ROPE];
AppendText: PROC [clus: Cluster, text: Rope.ROPE];
BackspaceText: PROC [clus: Cluster];
FontParamsFromFontString:
PROC [fontStyle: DisplayStyle, fontString: Rope.
ROPE]
RETURNS [fontPrefix:
ATOM, fontFamily:
ATOM, fontFace: NodeStyle.FontFace, fontSize:
REAL];
may raise FontStringError
SetTextFont: PROC [clus: Cluster, fontStyle: DisplayStyle, fontString: Rope.ROPE];
GetTextFont: PROC [clus: Cluster] RETURNS [font: ImagerFont.Font, fontString: Rope.ROPE];
SetTextColor: PROC [clus: Cluster, color: Imager.Color, colorName: Rope.ROPE];
GetTextColor: PROC [clus: Cluster] RETURNS [color: Imager.Color, colorName: Rope.ROPE];
MakeIPCluster: PROC [fileName: Rope.ROPE, worldPt: Point] RETURNS [clus: Cluster];
END.