<> <> <> <> <> <> <<>> DIRECTORY FeedbackTypes, GGInterfaceTypes, GGSegmentTypes, GGUserInput, Imager, Rope; GGEvent: CEDAR DEFINITIONS = BEGIN MsgRouter: TYPE = FeedbackTypes.MsgRouter; GGData: TYPE = GGInterfaceTypes.GGData; SelectionClass: TYPE = GGSegmentTypes.SelectionClass; Slice: TYPE = GGInterfaceTypes.Slice; SliceDescriptor: TYPE = GGInterfaceTypes.SliceDescriptor; Scene: TYPE = GGInterfaceTypes.Scene; UserInputProc: TYPE = GGUserInput.UserInputProc; <<>> <> <<>> <> <<>> <> <<>> Get: UserInputProc; -- GGEventImplD.Get Clear: UserInputProc; -- GGEventImplD.Clear Store: UserInputProc; -- GGEventImplD.Store FileNameFromEvent: PROC [opName: Rope.ROPE, event: LIST OF REF ANY, currentWDir: Rope.ROPE, router: MsgRouter, emergency: BOOL _ FALSE] RETURNS [fileName, fullName: Rope.ROPE _ NIL, success: BOOL _ FALSE, versionSpecified: BOOL _ FALSE, noName: BOOL _ FALSE]; <<>> <> <<>> ToIP: UserInputProc; -- GGEventImplA.ToIP MergeIPEditable: UserInputProc; -- GGEventImplA.MergeIPEditable MergeIPSlice: UserInputProc; -- GGEventImplA.MergeIPSlice <<>> <> <<>> AreaColorFromColorTool: UserInputProc; -- GGEventImplD.AreaColorFromColorTool LineColorFromColorTool: UserInputProc; -- GGEventImplD.LineColorFromColorTool AreaColorAux: PROC [ggData: GGData, color: Imager.Color, name: Rope.ROPE, noisy: BOOL _ TRUE, setHow: ATOM]; <> LineColorAux: PROC [ggData: GGData, color: Imager.Color, name: Rope.ROPE, noisy: BOOL _ TRUE, setHow: ATOM]; FillColorFromSelectedIntensity: UserInputProc; StrokeColorFromSelectedIntensity: UserInputProc; <> <<>> <> <<>> AreaSelectNewAndDelete: UserInputProc; -- GGEventImplC.AreaSelectNewAndDelete <> SelectEntireSlice: PROC [slice: Slice, scene: Scene, selectClass: SelectionClass, ggData: GGData]; SelectSlice: PROC [sliceD: SliceDescriptor, scene: Scene, selectClass: SelectionClass, ggData: GGData]; <<>> <> <<>> AddSlopeInternal: PROC [ggData: GGData, degrees: REAL, on: BOOL _ FALSE]; AddAngleInternal: PROC [ggData: GGData, degrees: REAL, on: BOOL _ FALSE]; AddRadiusInternal: PROC [ggData: GGData, name: Rope.ROPE, radius: REAL, on: BOOL _ FALSE]; <> AddDistanceInternal: PROC [ggData: GGData, name: Rope.ROPE, distance: REAL, on: BOOL _ FALSE]; <> ClearAlignments: UserInputProc; -- GGEventImplB.ClearAlignments InitializeAlignments: UserInputProc; -- GGEventImplB.InitializeAlignments StandardAlignments: UserInputProc; -- GGEventImplB.StandardAlignments StandardAngles: UserInputProc; -- GGEventImplB.StandardAngles StandardDistances: UserInputProc; -- GGEventImplB.StandardDistances StandardRadii: UserInputProc; -- GGEventImplB.StandardRadii StandardSlopes: UserInputProc; -- GGEventImplB.StandardSlopes <> <<>> <> <<>> DescribeCaretObject: UserInputProc; -- GGEventImplD.DescribeCaretObject PrintAllInput: UserInputProc; -- GGEventImplD.PrintAllInput <<>> <> <<>> AddChar: UserInputProc; OpenAutoScript: PROC [ggData: GGData, openNoMatterWhat: BOOL _ FALSE]; DeleteCaretSegment: UserInputProc; -- GGEventImplB.DeleteCaretSegment SawTextFinish: UserInputProc; -- GGEventImplC.SawTextFinish <<>> <> <<>> ShowDefaultFillColor: UserInputProc; -- GGEventImplD.ShowDefaultFillColor ShowDefaultFontValues: UserInputProc; -- GGEventImplA.ShowDefaultFontValues ShowDefaultLineColor: UserInputProc; -- GGEventImplD.ShowDefaultLineColor ShowDefaultStrokeValues: UserInputProc; -- GGEventImplB.ShowDefaultStrokeValues ShowDefaultTextLooks: UserInputProc; -- GGEventImplA.ShowDefaultTextLooks END.