-- TEditImpl.mesa; Edited by Paxton on November 3, 1982 8:26 am
DIRECTORY
TIPUser USING [TIPTable],
Rope USING [ROPE],
TEditDocument USING [Selection],
ViewerClasses USING [InitProc, NotifyProc, PaintProc, SaveProc];
TEditImpl: CEDAR DEFINITIONS = BEGIN
SaveTEditDocument: ViewerClasses.SaveProc ;
-- in TEditDocumentsImpl
InitTEditDocument: ViewerClasses.InitProc ;
-- in TEditDocumentsImpl
PaintTEditDocument: ViewerClasses.PaintProc ;
-- in TEditDisplayImpl
TEditNotifyProc: ViewerClasses.NotifyProc ;
-- in TEditInputImpl
CaretAtEnd:
PROC [sel: TEditDocument.Selection]
RETURNS [
BOOL];
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.
tiogaTIP: TIPUser.TIPTable ;
ReloadTipTable: PROC ; -- for $Text viewers
ReloadReadonlyTipTable: PROC ; -- for readonly $Text viewers
typeScriptTIP: TIPUser.TIPTable;
ReloadTypeScriptTipTable: PROC ; -- for $Typescript viewers
ReloadTable:
PROC [oldTIP: TIPUser.TIPTable, profileKey, default: Rope.
ROPE]
RETURNS [newTIP: TIPUser.TIPTable];
END.