-- TiogaImpl.mesa; Edited by Paxton on November 3, 1982 8:26 am
DIRECTORY
TIPUser USING [TIPTable],
Rope USING [ROPE],
TiogaDocument USING [Selection],
ViewerClasses USING [InitProc, NotifyProc, PaintProc, SaveProc];
TiogaImpl: CEDAR DEFINITIONS = BEGIN
SaveTiogaDocument: ViewerClasses.SaveProc ;
-- in TiogaDocumentsImpl
InitTiogaDocument: ViewerClasses.InitProc ;
-- in TiogaDocumentsImpl
PaintTiogaDocument: ViewerClasses.PaintProc ;
-- in TiogaDisplayImpl
TiogaNotifyProc: ViewerClasses.NotifyProc ;
-- in TiogaInputImpl
CaretAtEnd:
PROC [sel: TiogaDocument.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.