DIRECTORY TEditDocument USING [Selection, TEditDocumentData], Tioga USING [Node, Event], ViewerClasses USING [Viewer]; TEditInput: CEDAR DEFINITIONS ~ BEGIN interpreterNesting: INTEGER; interrupt: REF BOOL; Event: TYPE ~ Tioga.Event; currentEvent: Event; EditState: TYPE = { reset, -- no edit specified abort, -- edit aborted tolimbo, -- delete primary toprimary, -- copy/move secondary selection to/onto primary tosecondary, -- copy/move primary to/onto secondary toboth -- transpose primary and secondary }; editState: EditState; repeatList: LIST OF REF ANY; chars: REF TEXT; -- buffer for typein charsClosed, charsUsed, closeEvent: BOOL; CloseEvent: PROC = INLINE { closeEvent ¬ TRUE }; CurrentEvent: PROC RETURNS [Event] = INLINE { RETURN [currentEvent] }; CloseEventNow: PROC; CommandProc: TYPE = PROC [viewer: ViewerClasses.Viewer ¬ NIL] RETURNS [recordAtom: BOOL ¬ TRUE, quit: BOOL ¬ FALSE]; Register: PROC [name: ATOM, proc: CommandProc, before: BOOL ¬ TRUE]; UnRegister: PROC [name: ATOM, proc: CommandProc]; IsRegistered: PROC [name: ATOM, proc: CommandProc] RETURNS [BOOL]; RecordInt: PROC [i: LONG INTEGER]; RecordChar: PROC [c: CHAR]; RecordRef: PROC [ref: REF ANY]; GetRepeatSequence: PROC RETURNS [params: LIST OF REF ANY]; ComIndex: TYPE = [0..9]; SetCommand: PROC [num: ComIndex, params: LIST OF REF ANY]; GetCommand: PROC [num: ComIndex] RETURNS [params: LIST OF REF ANY]; InterpInput: PROC [viewer: ViewerClasses.Viewer, params: LIST OF REF ANY, increaseNestingCount: BOOL ¬ TRUE]; Interpret: PROC [viewer: ViewerClasses.Viewer, params: LIST OF REF ANY]; DontDoIt: SIGNAL; -- raised if user category is too low BadMouse: SIGNAL; -- raised if mouse "color" is wrong InterpretAtom: PROC [viewer: ViewerClasses.Viewer, atom: ATOM]; ResetInputStuff: PROC; SaveCoords: PROC [x,y: INTEGER]; ReadTipTables: PROC; CheckSelection: PROC [sel: TEditDocument.Selection] RETURNS [BOOL]; FreeTree: PROC [root: Tioga.Node]; AllLevels: CommandProc; FirstLevelOnly: CommandProc; MoreLevels: CommandProc; FewerLevels: CommandProc; MaxLevelShown: PROC [tdd: TEditDocument.TEditDocumentData] RETURNS [level: INTEGER]; MakePointSelection: CommandProc; Normalize: CommandProc; Cancel: CommandProc; Repeat: CommandProc; RestoreSelectionA: CommandProc; SaveSelectionA: CommandProc; RestoreSelectionB: CommandProc; SaveSelectionB: CommandProc; END. Τ TEditInput.mesa Copyright Σ 1985, 1986, 1991, 1992 by Xerox Corporation. All rights reserved. Edited by Paxton on October 29, 1982 9:58 am Doug Wyatt, February 27, 1992 5:41 pm PST Set by EditAbort, reset and tested by long running operations such as searches. used by anyone who needs to save info for Undo/Cancel If before is true, proc goes at front of list. Else goes at end of list. Remove the proc from the list for the atom. as if input from TIP Κ|•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ ΟeœC™NKšœ,™,K™)—K˜šΟk ˜ Kšœžœ ˜3Kšœžœ˜Kšœžœ ˜—K˜šΟn œžœž œž˜%K™—šœžœ˜K™—šœ žœžœ˜K™OK™—šœžœ˜K™—šœ˜Kšœ5™5K™—šœ žœ˜KšœΟc˜Kšœ ˜Kšœ  ˜Kšœ  0˜;Kšœ  &˜3Kšœ "˜)K˜K˜—K˜K˜Kš œ žœžœžœžœ˜K˜Kšœžœžœ ˜%K˜Kšœ$žœ˜)K˜KšŸ œžœžœžœ˜0K˜Kš Ÿ œžœžœ žœžœ˜FK˜KšŸ œžœ˜K˜šŸ œžœžœ!žœ˜=Kš žœžœžœžœžœ˜6K˜—š Ÿœžœžœžœžœ˜DK™I—K˜šŸ œžœžœ˜1K™+K˜—Kš Ÿ œžœžœžœžœ˜BK˜KšŸ œžœžœžœ˜"K˜KšŸ œžœžœ˜K˜KšŸ œžœžœžœ˜K˜KšŸœžœžœ žœžœžœžœ˜:K˜Kšœ žœ ˜K˜Kš Ÿ œžœžœžœžœžœ˜:K˜KšŸ œžœžœ žœžœžœžœ˜CK˜šŸ œžœ(žœžœžœžœžœžœ˜nK˜—Kš Ÿ œžœ(žœžœžœžœ˜HK˜KšŸœžœ %˜7K˜KšŸœžœ #˜5K˜šŸ œžœ&žœ˜?Kšœ™K˜—KšŸœžœ˜K˜KšŸ œžœžœ˜ K˜KšŸ œžœ˜K˜KšŸœžœ žœžœ˜CK˜KšŸœžœ˜"K˜KšŸ œ˜KšŸœ˜KšŸ œ˜KšŸ œ˜K˜KšŸ œžœ(žœ žœ˜TK˜KšŸœ˜ KšŸ œ˜K˜KšŸœ˜KšŸœ˜KšŸœ˜KšŸœ˜KšŸœ˜KšŸœ˜K˜Kšžœ˜—…— Lœ