TEditInputPrivate.mesa
Copyright Ó 1989, 1991 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 31, 1989 12:03:00 pm PDT
Bier, April 22, 1990 1:02 pm PDT
DIRECTORY
TEditInputExtras USING [CommandClosure, CommandClosureProc],
ViewerClasses USING [Viewer];
TEditInputPrivate: CEDAR DEFINITIONS
~ BEGIN
InternalID: TYPE ~ {
ApplyCaretLook, ApplyLook, ClearCaretLooks, ClearLooks, BackSpace, BackWord, DeleteNextChar, DeleteNextWord, GoToPreviousWord, GoToNextWord, GoToPreviousChar, GoToNextChar, GoToPreviousNode, GoToNextNode, GoToEndOfNode, GoToBeginningOfNode, Copy, Delete, ExpandAbbrev, Move, NormalizeToStart, NormalizeToEnd, RemoveCaretLook, RemoveLook, SetStyle, Time, RedSplit, YellowSplit, BlueSplit, Transpose, ToBoth, ToLimbo, ToPrimary, ToSecondary, EditReset, EditAbort, EditText, EditFormat, EditLooks, GetSecondary, MakePDel, FindNext, FindAny, FindPrev, FindNextDef, FindAnyDef, FindPrevDef, FindNextWord, FindAnyWord, FindPrevWord, FindNextCaseless, FindAnyCaseless, FindPrevCaseless, FindNextDefCaseless, FindAnyDefCaseless, FindPrevDefCaseless, FindNextWordCaseless, FindAnyWordCaseless, FindPrevWordCaseless, PushSelection, PopSelection, SaveSelection, RestoreSelection, Position, PositionIncludingComments, MsgPosition, MsgPositionIncludingComments, StuffPosition, RedMouse, YellowMouse, BlueMouse, RedDown, YellowDown, BlueDown, SelBranch, SelChar, SelExpand, SelExtend, SelStartExtend, SelNode, SelNotPendDel, SelPendDel, ForceSelPendDel, ForceSelNotPendDel, SelSamePendDel, SelPrimary, SelReduce, SelSame, SelSameEnd, SelSecondary, SelUpdate, SelWord, IntermediateUser, AdvancedUser, ExpertUser, Break, Join, Nest, Paste, SaveForPaste, SetFormat, GetFormat, UnNest, AllCaps, AllLower, FirstCap, InitialCaps, CaretAfter, CaretBefore, Everything, GrowSel, GrowSelToBlanks, InsertLineBreak, InsertNewline, MakeNotPendingDelete, MakePendingDelete, MakeControlCharacter, MakeOctalCharacter, UnMakeControlCharacter, UnMakeOctalCharacter, MakePrimaryOp, MakeSecondaryOp, CancelPrimaryOp, CancelSecondaryOp, Paint, PlaceholderBrackets, ReadTip, ReloadStyle, SelectMatchingPlaceholderBrackets, SelectMatchingSingleQuotes, SelectMatchingDoubleQuotes, SelectMatchingDashBrackets, PreviousPlaceholder, PreviousViewer, NextPlaceholder, NextViewer, ReadAbbreviations, SelectMatchingParens, SelectMatchingAngleBrackets, SelectMatchingCurlyBrackets, SelectMatchingSquareBrackets, ParenBrackets, DashBrackets, DoubleQuoteBrackets, AngleBrackets, SingleQuoteBrackets, CurlyBrackets, SquareBrackets, Command0, Command1, Command2, Command3, Command4, Command5, Command6, Command7, Command8, Command9, SetComment, SetNotComment, CutToWorld, CutToWorldFormatted, PasteFromWorld, PasteFromWorldFormatted, CopyToWorld, CopyToWorldFormatted, PARAM};
DispatchCommandProc: TEditInputExtras.CommandClosureProc;
DispatchInternalCommand: TEditInputExtras.CommandClosureProc;
TraceProcs: TYPE ~ REF TraceProcsRep;
TraceProcsRep: TYPE ~ RECORD [
TraceInput: PROC [viewer: ViewerClasses.Viewer,
params: LIST OF REF ANY, increaseNestingCount: BOOL],
TraceAtom: PROC [viewer: ViewerClasses.Viewer,
atom: ATOM, param: REF, closureList: LIST OF TEditInputExtras.CommandClosure]
];
SetTraceProcs: PROC [TraceProcs];
InternalCommandCounts: TYPE ~ REF InternalCommandCountsRep;
InternalCommandCountsRep: TYPE ~ ARRAY InternalID OF INT;
GetInternalCommandCounts: PROC RETURNS [InternalCommandCounts];
END.