GGEvent.mesa
Last edited by Bier on January 29, 1987 10:58:58 am PST
Contents: Once an event reaches the front of the slack-process queue, it is dispatched to one of the procedures in this module.
Pier, February 12, 1987 8:16:39 pm PST
Kurlander August 24, 1986 1:13:59 pm PDT
DIRECTORY
GGInterfaceTypes;
GGEvent: CEDAR DEFINITIONS = BEGIN
GargoyleData: TYPE = GGInterfaceTypes.GargoyleData;
NOTE: ALL THE clientData IN THIS INTERFACE SHOULD BE GGInterfaceTypes.GargoyleData WHENEVER THESE PROC ARE CALLED !!
PaintActionArea: PROC [event: LIST OF REF ANY, clientData: REF ANY];
In GGEventImplD.PaintActionArea
File Operations
In GGEventImplD.Clear
Clear: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Reset: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Get: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Merge: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Save: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Store: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Split: PROC [event: LIST OF REF ANY, clientData: REF ANY];
In GGEventImplA.MergeIPEditable
MergeIPEditable: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MergeIPSlice: PROC [event: LIST OF REF ANY, clientData: REF ANY];
IncludeIPByReference: PROC [event: LIST OF REF ANY, clientData: REF ANY];
IncludeIPByValue: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ShowIPIncludeMode: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToIP: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToIPScreen: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToIPLit: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToIPTestGravity: PROC [event: LIST OF REF ANY, clientData: REF ANY];
StuffIt: PROC [event: LIST OF REF ANY, clientData: REF ANY];
In GGEventImplC.StuffIt
StuffItScreen: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Hierarchy Menu
In GGEventImplA.Delete
Delete: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Undelete: PROC [event: LIST OF REF ANY, clientData: REF ANY];
UnionCombine: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SelectAll: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddHoles: PROC [event: LIST OF REF ANY, clientData: REF ANY];
FreeHoles: PROC [event: LIST OF REF ANY, clientData: REF ANY];
In GGEventImplC.Weld
Weld: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SplitSegment: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Transform Menu
In GGEventImplC.TransRotScale
TransRotScale: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SixPointTransform: PROC [event: LIST OF REF ANY, clientData: REF ANY];
FourPointTransform: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Shapes Menu
In GGEventImplC.PolygonInCircle
PolygonInCircle: PROC [event: LIST OF REF ANY, clientData: REF ANY];
NewKnotchedLine: PROC [event: LIST OF REF ANY, clientData: REF ANY];
NewCircle: PROC [event: LIST OF REF ANY, clientData: REF ANY];
NewBox: PROC [event: LIST OF REF ANY, clientData: REF ANY];
NewArrow: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Frame: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Overlap Menu
In GGEventImplB.Top
Top: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Bottom: PROC [event: LIST OF REF ANY, clientData: REF ANY];
UpOne: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DownOne: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Edit Curve Menu
GGEventImplA.Close
Close: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ShowPoints: PROC [event: LIST OF REF ANY, clientData: REF ANY];
HidePoints: PROC [event: LIST OF REF ANY, clientData: REF ANY];
View Menu
In GGEventImplA.Refresh
Refresh: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DisableRefresh: PROC [event: LIST OF REF ANY, clientData: REF ANY];
EnableRefresh: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Debug Menu
In GGEventImplD.TestGravity
TestGravity: PROC [event: LIST OF REF ANY, clientData: REF ANY];
TestMultiGravity: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Statistics: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ResetStatistics: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DrawTouchPoints: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DescribeTouchPoints: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DrawBoundBoxes: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DrawTightBoxes: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DrawOutlineBoxes: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DrawSelectionBox: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DrawMovingBox: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Typescript: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SlackLog: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DescribeCaretObject: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineWidth menu.
In GGEventImplB.LineWidth
LineWidth: PROC [event: LIST OF REF ANY, clientData: REF ANY];
PrintLineWidth: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SelectMatchingWidth: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DashesFromSelection: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DashesOff: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Arrows menu.
In GGEventImplB.Arrows
Arrows: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Area and Line Colors
In GGEventImplD.AreaColorFromColorTool
AreaColorFromColorTool: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorFromColorTool: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AreaColorFollowColorTool: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorFollowColorTool: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AreaColorToColorTool: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorToColorTool: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AreaColorFromSelectedName: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorFromSelectedName: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AreaColorFromSelectedRGB: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorFromSelectedRGB: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SelectMatchingAreaColor: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SelectMatchingLineColor: PROC [event: LIST OF REF ANY, clientData: REF ANY];
In GGEventImplD.AreaColorBlack
AreaColorBlack: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorBlack: PROC [event: LIST OF REF ANY, clientData: REF ANY];
PrintAreaColor: PROC [event: LIST OF REF ANY, clientData: REF ANY];
PrintLineColor: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AreaColorWhite: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorWhite: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AreaColorGray: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorGray: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AreaColorNone: PROC [event: LIST OF REF ANY, clientData: REF ANY];
LineColorNone: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AreaSelect Operations
In GGEventImplC.AreaSelectNew
AreaSelectNew: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Select all objects within area bounded by original selection and deselect original selection
AreaSelectExtend: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Add all objects within area bounded by original selection to current selection
AreaSelectNewAndDelete: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Select all objects within area bounded by original selection and delete original selection
AreaSelectDegenerate: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Select all degenerate (i.e. segments having co-located endpoints) segments.
AreaSelectAll: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Select all objects.
Curve Menu
In GGEventImplA.SetStraight
SetStraight: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetArc: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetSnowflake: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetConic: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetBezier: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetNaturalSpline: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetBSpline: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetCircle: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetDisc: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SelectMatchingCurve: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Other Curve Operations
In GGEventImplC.DescribeCurve
DescribeCurve: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddControlPoint: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DeleteControlPoint: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddJoint: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Group Menu
In GGEventImplD.AddToGroup
AddToGroup: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SelectGroup: PROC [event: LIST OF REF ANY, clientData: REF ANY];
RemoveFromGroup: PROC [event: LIST OF REF ANY, clientData: REF ANY];
PrintGroupsOfSelected: PROC [event: LIST OF REF ANY, clientData: REF ANY];
PrintAllGroups: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Text Menu
In GGEventImplA.AddText
AddChar: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddText: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AmplifySpaceFromSelection: PROC [event: LIST OF REF ANY, clientData: REF ANY];
PrintAmplifySpace: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DropShadowOn: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DropShadowOff: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DropShadowFromSelection: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Fonts Menu
In GGEventImplA.SetPressFont
SetPressFont: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetPrintFont: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetScreenFont: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetFontDetailed: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetFontLiteral: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetDefaultFontValues: PROC [event: LIST OF REF ANY, clientData: REF ANY];
CopyAll: PROC [event: LIST OF REF ANY, clientData: REF ANY];
CopyFont: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ShowFontValues: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ShowFontValuesLiteral: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ShowDefaultFontValues: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MatchAll: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MatchSelectedName: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MatchSelectedNameLiteral: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Alignment Operations
In GGEventImplB.MakeHot
MakeHot: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MakeAllHot: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MakeCold: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MakeAllCold: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ShowHot: PROC [event: LIST OF REF ANY, clientData: REF ANY];
HideHot: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DropAnchor: PROC [event: LIST OF REF ANY, clientData: REF ANY];
KillAnchor: PROC [event: LIST OF REF ANY, clientData: REF ANY];
GravityChoiceChange: PROC [event: LIST OF REF ANY, clientData: REF ANY];
GravityExtentChange: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetGravityExtent: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToggleAlwaysOn: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToggleShowColors: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ScreenChoiceChange: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Alignment Controls
In GGEventImplB.ToggleMidpoints
ToggleMidpoints: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SetMidpointsInternal: PROC [gargoyleData: GargoyleData, on: BOOL];
ToggleHeuristics: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToggleGravity: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToggleAlignments: PROC [event: LIST OF REF ANY, clientData: REF ANY];
StandardAlignments: PROC [event: LIST OF REF ANY, clientData: REF ANY];
In GGEventImplB.AllAlignmentsOff
AllAlignmentsOff: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Turns off slope, radius, angle, line distance, and midpoint alignments.
InitializeAlignments: PROC [event: LIST OF REF ANY, clientData: REF ANY];
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.
Unit Line
In GGEventImplB.ScaleUnitFromSegment
ScaleUnitFromSegment: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ScaleUnitFromValue: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ScaleUnitFromSelection: PROC [event: LIST OF REF ANY, clientData: REF ANY];
InchScaleUnit: PROC [event: LIST OF REF ANY, clientData: REF ANY];
CentimeterScaleUnit: PROC [event: LIST OF REF ANY, clientData: REF ANY];
PrintScaleUnit: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Slope Line
In GGEventImplB.SlopePrompt
StandardSlopes: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SlopePrompt: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddSlope: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddSlopeInternal: PROC [gargoyleData: GargoyleData, degrees: REAL];
GetSlope: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToggleSlope: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DeleteSlope: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Angle Line
In GGEventImplB.AnglePrompt
StandardAngles: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AnglePrompt: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddAngle: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddAngleInternal: PROC [gargoyleData: GargoyleData, degrees: REAL];
GetAngle: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToggleAngle: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DeleteAngle: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Radius Line
In GGEventImplB.RadiusPrompt
StandardRadii: PROC [event: LIST OF REF ANY, clientData: REF ANY];
RadiusPrompt: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddRadius: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddRadiusInternal: PROC [gargoyleData: GargoyleData, radius: REAL];
GetRadius: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToggleRadius: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DeleteRadius: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Distance Line
In GGEventImplB.DistancePrompt
StandardDistances: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DistancePrompt: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddDistance: PROC [event: LIST OF REF ANY, clientData: REF ANY];
AddDistanceInternal: PROC [gargoyleData: GargoyleData, distance: REAL];
GetDistance: PROC [event: LIST OF REF ANY, clientData: REF ANY];
ToggleDistance: PROC [event: LIST OF REF ANY, clientData: REF ANY];
DeleteDistance: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Coordinate Line
In GGEventImplB.MeasureAngleHit
MeasureSlopeHit: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MeasureAngleHit: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MeasureRadiusHit: PROC [event: LIST OF REF ANY, clientData: REF ANY];
MeasureLineDistHit: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Miscellaneous
In GGEventImplC.ReloadTipTable
ReloadTipTable: PROC [event: LIST OF REF ANY, clientData: REF ANY];
IPSnapShot: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SawEdited: PROC [event: LIST OF REF ANY, clientData: REF ANY];
SawTextFinish: PROC [event: LIST OF REF ANY, clientData: REF ANY];
Splice: PROC [event: LIST OF REF ANY, clientData: REF ANY]; -- for debugging GGSelect.ForEachOutlineRun
In GGEventImplB.DeleteCaretSegment
DeleteCaretSegment: PROC [event: LIST OF REF ANY, clientData: REF ANY];
END.