GGUIUtility.mesa
Copyright Ó 1986, 1992 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.
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];
Close "stream". If there are problems, report them to router and continue anyway.
GGHomeDirectory:
PROC
RETURNS [Rope.
ROPE];
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.
GetSpecialColor:
PROC
RETURNS [color: Imager.Color];
get a special color that tracks the ColorTool color patch (formerly in GGUtility)
ParseFeedbackRope:
PROC [rope: Rope.
ROPE]
RETURNS [val:
REF
ANY];
parses a token with the "EBMesaLisp" parser
END.