DIRECTORY GGBasicTypes, GGCoreTypes, GGFont, GGHistoryTypes, GGInterfaceTypes, GGModelTypes, Imager, ImagerTransformation, Rope; GGStateExtras: CEDAR DEFINITIONS = BEGIN Caret: TYPE = GGInterfaceTypes.Caret; DefaultData: TYPE = GGModelTypes.DefaultData; DisplayStyle: TYPE = GGModelTypes.DisplayStyle; ExtendMode: TYPE = GGModelTypes.ExtendMode; FeatureCycler: TYPE = GGInterfaceTypes.FeatureCycler; FontData: TYPE = GGFont.FontData; GGData: TYPE = GGInterfaceTypes.GGData; GravityType: TYPE = GGInterfaceTypes.GravityType; HistoryEvent: TYPE = GGHistoryTypes.HistoryEvent; SelectMode: TYPE = GGModelTypes.SelectMode; SequenceOfReal: TYPE = GGCoreTypes.SequenceOfReal; SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor; StrokeEnd: TYPE = GGModelTypes.StrokeEnd; StrokeJoint: TYPE = GGModelTypes.StrokeJoint; Transformation: TYPE = ImagerTransformation.Transformation; ROPE: TYPE = Rope.ROPE; Vector: TYPE = GGBasicTypes.Vector; RegisterViewportProc: PROC [ggData: GGData, proc: ViewportProc, clientData: REF ¬ NIL]; ViewportProc: TYPE = PROC [ggData: GGData, clientData: REF ¬ NIL] RETURNS [rect: Imager.Rectangle]; DefaultViewport: ViewportProc; -- gets the viewport size from the BiScroller GetWorkingDirectory: PROC [ggData: GGData] RETURNS [ROPE]; SetWorkingDirectory: PROC [ggData: GGData, directory: ROPE]; END.  GGStateExtras.mesa Contents: Routines for getting and setting values in the Gargoyle user interface state. Copyright Σ 1986, 1987, 1992 by Xerox Corporation. All rights reserved. Pier, September 18, 1990 11:09 am PDT Bier, March 19, 1993 4:00 pm PST Gargoyle can call this routine to find out how large its window is. This ViewportProc is registered automatically when Gargoyle starts up. Κέ–(cedarcode) style•NewlineDelimiter ™codešœ™KšœX™XKšœ Οeœ=™HKšœ%™%K™ K™—šΟk ˜ J˜vK˜—Kšœžœž œž˜(˜Kšœžœ˜%Kšœ žœ˜-Kšœžœ˜/Kšœ žœ˜+Kšœžœ"˜5Kšœ žœ˜!Kšœžœ˜'Kšœ žœ ˜1Kšœžœ˜1Kšœ žœ˜+Kšœžœ˜2Kšœžœ ˜5Kšœ žœ˜)Kšœ žœ˜-Kšœžœ'˜;Kšžœžœžœ˜Kšœžœ˜#K˜—KšΟnœžœ2žœžœ˜Wš œžœžœžœžœžœ˜cK™CK™—šŸœΟc-˜LKšœF™F—K˜KšŸœžœžœžœ˜:KšŸœžœžœ˜