DIRECTORY Cursors, FeedbackTypes, GGInterfaceTypes, GGModelTypes, Imager, IO, Rope, ViewerClasses; GGUIUtility: CEDAR DEFINITIONS = BEGIN DisplayStyle: TYPE = GGModelTypes.DisplayStyle; FeatureData: TYPE = GGInterfaceTypes.FeatureData; GGData: TYPE = GGInterfaceTypes.GGData; GravityType: TYPE = GGInterfaceTypes.GravityType; DescribeFeature: PROC [feature: FeatureData, hitData: REF ANY, ggData: GGData] RETURNS [rope: Rope.ROPE]; DescribeSourceFeature: PROC [feature: FeatureData, ggData: GGData] RETURNS [rope: Rope.ROPE]; GravityTypeToRope: PROC [gravityType: GravityType] RETURNS [rope: Rope.ROPE]; GravityTypeFromRope: PROC [rope: Rope.ROPE] RETURNS [gravityType: GravityType]; DisplayStyleToRope: PROC [displayStyle: DisplayStyle] RETURNS [rope: Rope.ROPE]; DisplayStyleFromRope: PROC [rope: Rope.ROPE] RETURNS [displayStyle: DisplayStyle]; SafeClose: PROC [stream: IO.STREAM, router: FeedbackTypes.MsgRouter _ NIL]; GGHomeDirectory: PROC RETURNS [Rope.ROPE]; GetSpecialColor: PROC RETURNS [color: Imager.Color]; ParseFeedbackRope: PROC [rope: Rope.ROPE] RETURNS [val: REF ANY]; END. ŽGGUIUtility.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Bier, October 31, 1988 11:16:12 pm PST Contents: Utility routines for the user interface level of Gargoyle. Close "stream". If there are problems, report them to router and continue anyway. Returns directory name in which help material and auxiliary files may be found SetCursorType: PROC [actionArea: ViewerClasses.Viewer, cursor: Cursors.CursorType]; -- No longer needed, Bier, August 29, 1991 set the cursor type for an action area. get a special color that tracks the ColorTool color patch (formerly in GGUtility) parses a token with the "EBMesaLisp" parser ΚΛ˜J˜Icodešœ™Kšœ Οmœ1™