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. x GGEvent.mesa Copyright ำ 1987, 1988, 1992 by Xerox Corporation. All rights reserved. Bier, November 7, 1989 5:04:19 pm PST Pier, December 12, 1988 5:09:02 pm PST Kurlander, September 1, 1987 3:54:04 pm PDT Contents: Once an event reaches the front of the slack-process queue, it is dispatched to one of the procedures in this module. NOTE: Most of the UserInputProcs which used to appear here are no longer in an interface. File GGDirectory.tioga is documentation for the non-interface UserInputProcs and should be maintained by implementors as if it were an interface. NOTE: Following procs appear in this interface because they are called from other places in Gargoyle File Operations Interpress Menu Area and Line Colors Sets the fill color of all selected slices in ggData.scene to be "color". Sets the line color of all selected parts in ggData.scene to be "color". Select Operations in GGEventImplE.SelectEntireSlice Alignments name may be an alternate string, like "1/2 "for radius= 0.5 name may be an alternate string, like "1/2" for distance= 0.5 Does AllAlignmentsOff, turns alignment processing on, sets the gravity extent to a default value, turns gravity on, sets gravity type to PreferPoints, resets the radius unit and turns heuristics on. This is done before creating or playing a session log to get repeatable results. Debugging Miscellaneous Defaults ส.•NewlineDelimiter –(cedarcode) style™code™ Kšœ ฯeœ=™HKšœ%™%Kšœ&™&Kšœ(ฯk™+Kšฯnœx™€K™—šž ˜ KšœK˜KK˜—KšŸœžœž œž˜"K˜Kšœ žœ˜*Kšœžœ˜'Kšœžœ!˜5Kšœžœ˜%Kšœžœ$˜9Kšœžœ˜%Kšœžœ˜0K˜K™Kšะbkฯb่™์K™Kš ก`™dK™™K™—KšŸœฯc˜'KšŸœข˜+KšŸœข˜+Kš&Ÿœžœžœ žœžœžœžœžœ žœžœžœžœžœ žœžœžœžœ žœžœ˜ƒK™™K™—KšŸœข˜)KšŸœข˜?KšŸ œข˜9K™™K™—KšŸฯtœขะctข˜MKšŸฃœขคข˜Mš Ÿ œžœ2žœ žœžœ žœ˜lKšœI™I—Kš Ÿ œžœ2žœ žœžœ žœ˜lKšŸœ˜.šŸ œ˜0KšœH™H—K™™K™—šŸœข&˜MKšœŸ™!—KšŸœžœK˜bKšŸ œžœV˜gK™™ K™—Kš Ÿœžœžœžœžœ˜IKš Ÿœžœžœžœžœ˜Iš Ÿœžœžœ žœžœžœ˜ZK™;—š Ÿœžœžœ žœžœžœ˜^Kšœ=™=—KšŸฃœขคข˜?KšŸœข$˜IKšŸœข"˜EKšŸœข˜=KšŸœข!˜CKšŸ œข˜;šŸœข˜=Kšœ˜™˜—K™™ K™—KšŸฃœขคข˜GKšŸ œข˜;K™™ K™—KšŸœ˜KšŸœžœ$žœžœ˜FKšŸœข"˜EKšŸ ฃœขคข ˜;K™™K™—KšŸฃœขคข˜IKšŸฃœข%˜KKšŸฃœขคข˜IKšŸฃœขคข˜OKšŸฃœขคข˜IK˜Kšžœ˜—…— าx