DIRECTORY GGInterfaceTypes; GGEvent: CEDAR DEFINITIONS = BEGIN GGData: TYPE = GGInterfaceTypes.GGData; PaintActionArea: PROC [clientData: REF ANY, event: LIST OF REF ANY]; 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]; 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]; 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]; 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]; 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]; 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]; 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]; 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]; 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]; DisableRefresh: PROC [clientData: REF ANY, event: LIST OF REF ANY]; EnableRefresh: PROC [clientData: REF ANY, event: LIST OF REF ANY]; 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: 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: PROC [clientData: REF ANY, event: LIST OF REF ANY]; 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]; 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]; AreaSelectNew: PROC [clientData: REF ANY, event: LIST OF REF ANY]; AreaSelectExtend: PROC [clientData: REF ANY, event: LIST OF REF ANY]; AreaSelectNewAndDelete: PROC [clientData: REF ANY, event: LIST OF REF ANY]; AreaSelectDegenerate: PROC [clientData: REF ANY, event: LIST OF REF ANY]; SelectAll: PROC [clientData: REF ANY, event: LIST OF REF ANY]; 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]; 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]; 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]; 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]; 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]; 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]; AllAlignmentsOff: PROC [clientData: REF ANY, event: LIST OF REF ANY]; InitializeAlignments: PROC [clientData: REF ANY, event: LIST OF REF ANY]; 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]; 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]; 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]; 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]; 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]; 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]; 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]; 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 DeleteCaretSegment: PROC [clientData: REF ANY, event: LIST OF REF ANY]; END. pGGEvent.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 NOTE: ALL THE clientData IN THIS INTERFACE SHOULD BE GGInterfaceTypes.GGData WHENEVER THESE PROC ARE CALLED !! In GGEventImplD.PaintActionArea File Operations In GGEventImplD.Clear Interpress Menu In GGEventImplA.MergeIPEditable In GGEventImplC.StuffIt Hierarchy Menu In GGEventImplA.Delete Edit Menu In GGEventImplC.Weld In GGEventImplA.Close Transform Menu In GGEventImplC.TransRotScale Shapes Menu In GGEventImplC.PolygonInCircle Overlap Menu In GGEventImplB.Top View Menu In GGEventImplA.Refresh Debug Menu In GGEventImplD.TestGravity LineWidth menu. In GGEventImplB.LineWidth Arrows menu. In GGEventImplB.Arrows Area and Line Colors In GGEventImplD.AreaColorFromColorTool In GGEventImplD.AreaColorBlack AreaSelect Operations In GGEventImplC.AreaSelectNew Select all objects within area bounded by original selection and deselect original selection Add all objects within area bounded by original selection to current selection Select all objects within area bounded by original selection and delete original selection Select all degenerate (i.e. segments having co-located endpoints) segments. Select all objects. Curve Menu In GGEventImplA.SetStraight Group Menu In GGEventImplD.AddToGroup Text Menu In GGEventImplA.AddText Fonts Menu In GGEventImplA.SetPressFont Alignment Operations In GGEventImplB.MakeHot Alignment Controls In GGEventImplB.ToggleMidpoints In GGEventImplB.AllAlignmentsOff Turns off slope, radius, angle, line distance, and midpoint alignments. 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 Slope Line In GGEventImplB.SlopePrompt Angle Line In GGEventImplB.AnglePrompt Radius Line In GGEventImplB.RadiusPrompt Distance Line In GGEventImplB.DistancePrompt Coordinate Line In GGEventImplB.MeasureAngleHit Setting Parts of the Gargoyle State Miscellaneous In GGEventImplC.ReloadTipTable In GGEventImplB.DeleteCaretSegment ��"b�Icode�K��1�k�4��n�x��K�� K��%��(�K�� K�K��K��"K�K��'K�K��bk�b�� nK�� DK��K��K��K�� :K�� :K�� 8K�� :K�� 9K�� :K�� :K��K��K�� DK�� AK�� IK�� EK�� FK��bn�� 9K�� ?K�� K�� BK�� K��K�� EK�� CK�� DK�� EK�� 9K�� DJ�� GJ�� =K�� A�� ;K��K�� :K�� ?K�� ?K��K��K�� BK�� FK�� GK��K��K�� DK�� DK�� >K�� ;K�� =K�� :K��K��K�� 8K�� ;K�� :K�� K�� =K�� ?K�� HK�� >K�� FK�� HK�� IK�� KK�� LK��K��K�� ;K��K��&�&�K�� KK�� KK�� MK�� MK�� IK�� IK�� NK�� NK�� MK�� MK�� LK�� LK�� HK�� I�K��K�� CK�� CK�� CK�� CK�� CK�� CK�� BK�� BK�� BK�� BK�� HK�� IK��K�� BK�\�� EK�N�� KK�Z�� IK��K�K�� >K��K�� K��K�� @K�� ;K�� AK�� =K�� >K�� EK�� ?K�� >K�� K��7K�� >K�� AK�� AK�� K��K�� FK�� CK�� @K��;K�� @K�� CK�� CK��K��K�� DK�� DK�� EK�� GK�K�#K�� EK�� BK�� ?K�� AK�� BK�� CK�� K��K�� CK�� ?K�� >K�� BK�� c;�z�K��"�"�K�� GK�K��:�f�