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.
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;
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
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];
Interpress Menu
ToIP: UserInputProc; -- GGEventImplA.ToIP
MergeIPEditable: UserInputProc; -- GGEventImplA.MergeIPEditable
MergeIPSlice: UserInputProc; -- GGEventImplA.MergeIPSlice
Area and Line Colors
AreaColorFromColorTool: UserInputProc; -- GGEventImplD.AreaColorFromColorTool
LineColorFromColorTool: UserInputProc; -- GGEventImplD.LineColorFromColorTool
AreaColorAux: PROC [ggData: GGData, color: Imager.Color, name: Rope.ROPE, noisy: BOOL ¬ TRUE, setHow: ATOM];
Sets the fill color of all selected slices in ggData.scene to be "color".
LineColorAux: PROC [ggData: GGData, color: Imager.Color, name: Rope.ROPE, noisy: BOOL ¬ TRUE, setHow: ATOM];
FillColorFromSelectedIntensity: UserInputProc;
StrokeColorFromSelectedIntensity: UserInputProc;
Sets the line color of all selected parts in ggData.scene to be "color".
Select Operations
AreaSelectNewAndDelete: UserInputProc; -- GGEventImplC.AreaSelectNewAndDelete
in GGEventImplE.SelectEntireSlice
SelectEntireSlice: PROC [slice: Slice, scene: Scene, selectClass: SelectionClass, ggData: GGData];
SelectSlice: PROC [sliceD: SliceDescriptor, scene: Scene, selectClass: SelectionClass, ggData: GGData];
Alignments
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];
name may be an alternate string, like "1/2 "for radius= 0.5
AddDistanceInternal: PROC [ggData: GGData, name: Rope.ROPE, distance: REAL, on: BOOL ¬ FALSE];
name may be an alternate string, like "1/2" for distance= 0.5
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
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
DescribeCaretObject: UserInputProc; -- GGEventImplD.DescribeCaretObject
PrintAllInput: UserInputProc; -- GGEventImplD.PrintAllInput
Miscellaneous
AddChar: UserInputProc;
OpenAutoScript: PROC [ggData: GGData, openNoMatterWhat: BOOL ¬ FALSE];
DeleteCaretSegment: UserInputProc; -- GGEventImplB.DeleteCaretSegment
SawTextFinish: UserInputProc; -- GGEventImplC.SawTextFinish
Defaults
ShowDefaultFillColor: UserInputProc; -- GGEventImplD.ShowDefaultFillColor
ShowDefaultFontValues: UserInputProc; -- GGEventImplA.ShowDefaultFontValues
ShowDefaultLineColor: UserInputProc; -- GGEventImplD.ShowDefaultLineColor
ShowDefaultStrokeValues: UserInputProc; -- GGEventImplB.ShowDefaultStrokeValues
ShowDefaultTextLooks: UserInputProc; -- GGEventImplA.ShowDefaultTextLooks
END.