DIRECTORY TextNode USING [Ref], TEditDocument USING [Selection, TEditDocumentData], UndoEvent USING [Ref], ViewerClasses USING [Viewer]; TEditInput: CEDAR DEFINITIONS = BEGIN interpreterNesting: INTEGER; currentEvent: UndoEvent.Ref; 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 [UndoEvent.Ref] = 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: TextNode.Ref]; 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. lTEditInput.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Edited by Paxton on October 29, 1982 9:58 am Doug Wyatt, April 14, 1985 5:13:49 pm PST 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 Κ;˜codešœ™Kšœ Οmœ1™