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