[Cyan]<Gargoyle>GGEvent.mesa!98

GGEvent.mesa

Last edited by Bier on April 16, 1987 1:13:13 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.

Pier, May 5, 1987 6:12:22 pm PDT

Kurlander August 24, 1986 1:13:59 pm PDT

DIRECTORY

GGInterfaceTypes;

GGEvent: CEDAR DEFINITIONS = BEGIN

GGData: TYPE = GGInterfaceTypes.GGData;

NOTE: ALL THE clientData IN THIS INTERFACE SHOULD BE GGInterfaceTypes.GGData WHENEVER THESE PROC ARE CALLED !!

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

In GGEventImplD.PaintActionArea

File Operations

In GGEventImplD.Clear

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

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

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

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

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

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

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

Interpress Menu

In GGEventImplA.MergeIPEditable

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

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

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

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

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

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

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

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

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

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

In GGEventImplC.StuffIt

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

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

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

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

Hierarchy Menu

In GGEventImplA.Delete

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

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

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

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

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

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

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

Edit Menu

In GGEventImplC.Weld

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

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

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

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

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

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

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

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

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

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

In GGEventImplA.Close

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

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

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

Transform Menu

In GGEventImplC.TransRotScale

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

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

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

Shapes Menu

In GGEventImplC.PolygonInCircle

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

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

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

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

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

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

Overlap Menu

In GGEventImplB.Top

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

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

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

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

View Menu

In GGEventImplA.Refresh

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

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

Debug Menu

In GGEventImplD.TestGravity

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

LineWidth menu.

In GGEventImplB.LineWidth

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

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

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

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

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

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

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

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

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

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

Arrows menu.

In GGEventImplB.Arrows

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

Area and Line Colors

In GGEventImplD.AreaColorFromColorTool

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

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

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

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

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

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

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

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

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

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

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

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

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

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

In GGEventImplD.AreaColorBlack

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

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

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

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

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

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

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

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

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

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

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

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

AreaSelect Operations

In GGEventImplC.AreaSelectNew

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

Select all objects within area bounded by original selection and deselect original selection

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

Add all objects within area bounded by original selection to current selection

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

Select all objects within area bounded by original selection and delete original selection

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

Select all degenerate (i.e. segments having co-located endpoints) segments.

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

Select all objects.

Curve Menu

In GGEventImplA.SetStraight

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

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

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

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

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

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

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

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

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

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

Group Menu

In GGEventImplD.AddToGroup

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

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

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

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

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

Text Menu

In GGEventImplA.AddText

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

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

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

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

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

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

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

Fonts Menu

In GGEventImplA.SetPressFont

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Alignment Operations

In GGEventImplB.MakeHot

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

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

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

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

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

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

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

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

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

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

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

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

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

Alignment Controls

In GGEventImplB.ToggleMidpoints

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

SetMidpointsInternal: PROC [ggData: GGData, on: BOOL];

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

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

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

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

In GGEventImplB.AllAlignmentsOff

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

Turns off slope, radius, angle, line distance, and midpoint alignments.

InitializeAlignments: PROC [clientData: REF ANY, event: LIST OF 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 [clientData: REF ANY, event: LIST OF REF ANY];

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

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

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

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

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

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

Slope Line

In GGEventImplB.SlopePrompt

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

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

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

AddSlopeInternal: PROC [ggData: GGData, degrees: REAL];

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

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

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

Angle Line

In GGEventImplB.AnglePrompt

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

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

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

AddAngleInternal: PROC [ggData: GGData, degrees: REAL];

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

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

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

Radius Line

In GGEventImplB.RadiusPrompt

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

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

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

AddRadiusInternal: PROC [ggData: GGData, radius: REAL];

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

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

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

Distance Line

In GGEventImplB.DistancePrompt

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

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

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

AddDistanceInternal: PROC [ggData: GGData, distance: REAL];

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

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

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

Coordinate Line

In GGEventImplB.MeasureAngleHit

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

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

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

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

Setting Parts of the Gargoyle State

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

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

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

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

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

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

Miscellaneous

In GGEventImplC.ReloadTipTable

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

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

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

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

PrintRope: PROC [clientData: REF ANY, event: LIST OF REF ANY]; -- for printing the name of a script onto the feedback line

In GGEventImplB.DeleteCaretSegment

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

END.