DIRECTORY TIPTypes USING [TIPTable], Rope USING [ROPE], TEditDocument USING [Selection], ViewerClasses USING [InitProc, NotifyProc, PaintProc, SaveProc]; TEditPrivate: CEDAR DEFINITIONS = BEGIN SaveTEditDocument: ViewerClasses.SaveProc; InitTEditDocument: ViewerClasses.InitProc; PaintTEditDocument: ViewerClasses.PaintProc; TEditNotifyProc: ViewerClasses.NotifyProc; TypeScriptNotifyProc: ViewerClasses.NotifyProc; CaretAtEnd: PROC [sel: TEditDocument.Selection] RETURNS [BOOL]; TIPTable: TYPE ~ TIPTypes.TIPTable; tiogaTIP: TIPTable; ReloadTipTable: PROC; -- for $Text viewers ReloadReadonlyTipTable: PROC; -- for readonly $Text viewers typeScriptTIP: TIPTable; ReloadTypeScriptTipTable: PROC; -- for $Typescript viewers ReloadTable: PROC [oldTIP: TIPTable, profileKey, default: Rope.ROPE] RETURNS [newTIP: TIPTable]; END. ะ TEditPrivate.mesa Copyright ำ 1985, 1986, 1987, 1988, 1991, 1992 by Xerox Corporation. All rights reserved. Edited by Paxton on November 3, 1982 8:26 am Doug Wyatt, April 23, 1992 11:21 am PDT in TEditDocumentsImpl in TEditDocumentsImpl in TEditDisplayImpl in TEditInputImpl in TEditTypeScriptImpl Returns true if insertion point for this selection is at end of document. For use with typescripts to decide if editing like regular Tioga document or not. สถ•NewlineDelimiter –(cedarcode) style™code™Kšœ ฯeœO™ZKšœ,™,K™'—K˜šฯk ˜ Kšœ žœ ˜Kšœžœžœ˜Kšœžœ ˜ Kšœžœ-˜@—K˜Kšฯn œžœž œž˜'K˜šŸœ˜*Kšœ™K˜—šŸœ˜*Kšœ™K˜—šŸœ˜,Kšœ™K˜—šŸœ˜*Kšœ™K˜—šŸœ˜/K™K˜—šŸ œžœ žœžœ˜?K™œ—K˜Kšœ žœ˜#K˜šœ˜K˜—šŸœžœฯc˜*K˜—šŸœžœ ˜;K˜—šœ˜K˜—šŸœžœ ˜:K˜—šŸ œžœ.žœžœ˜aK˜—K˜Kšžœ˜—…—Lา