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. pGGEvent.mesa Copyright Ó 1987, 1988 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 Êý˜code™K™BKšœ%™%Kšœ&™&Kšœ(Ïk™+—KšÏnœx™€K™š ˜ Jšœ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šœ˜—…—ÔA