[Cyan]<Gargoyle>GGEvent.mesa!83

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 3, 1987 12:51:26 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 GGEventImplA.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.SetLookAlikes

SetLookAlikes: PROC [event: LIST OF REF ANY, clientData: REF ANY];

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];

ChangeFont: 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];

FindTextMatchingSelected: PROC [event: LIST OF REF ANY, clientData: REF ANY];

FindTextMatchingValues: PROC [event: LIST OF REF ANY, clientData: REF ANY];

FindTextMatchingFamily: 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.