<> <> <> <> <<>> 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.