DIRECTORY BiScrollers, 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 by Xerox Corporation. All rights reserved. Pier, September 18, 1990 11:09 am PDT Bier, January 27, 1992 2:29 pm PST Gargoyle can call this routine to find out how large its window is. This ViewportProc is registered automatically when Gargoyle starts up. ΚΝ•NewlineDelimiter ™Icodešœ™šœX™XKšœB™BKšœ%™%Kšœ"™"—K™šΟk ˜ Jšœƒ˜ƒ—K˜Kšœœ œ˜(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šžœœœ˜—