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]; MakeTextCluster: PROC [text: Rope.ROPE, fontStyle: DisplayStyle, fontString: Rope.ROPE, colorName: Rope.ROPE, worldPt: Point] RETURNS [clus: Cluster]; 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]; 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. θGGCluster.mesa Copyright c 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. CopyCluster: PROC [clus: Cluster] RETURNS [copy: Cluster]; -- See GGObjects.CopyCluster 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. may raise FontStringError ΚΤ˜J˜codešœ™Kšœ Οmœ1™™>—K™šΟk ˜ KšœR˜R—K˜KšΟn œžœž œž˜$K˜Kšœ žœ˜%Kšœžœ˜/Kšœžœ˜!Kšœžœ!˜3K˜KšŸœžœ˜KšŸœžœ˜K˜KšŸœžœžœžœ˜CKšŸ œžœžœ.™WK˜š Ÿœžœ žœ,žœžœžœ˜–K™­—KšŸœžœžœ žœ˜8KšŸ œžœžœ˜2KšŸ œžœ˜$K˜šŸœžœ,žœžœžœžœ*žœ˜¬K™—KšŸ œžœ;žœ˜RKšŸ œžœžœ*žœ˜YKšŸ œžœ6žœ˜NKšŸ œžœžœ'žœ˜WK˜KšŸ œžœžœžœ˜RK˜Kšžœ˜—…—(δ