
<<-- StartTBaseImpl.Mesa>>
<<-- written by Paxton.  April 1981>>
<<-- last written by Paxton.  December 28, 1982 11:17 am>>

<<-- **** Start TBase ****>>

DIRECTORY
StartTBase,
EditSpan,
GetFile,
InterFile,
GetTree,
NodeProps,
TextEdit,
TextFind,
TextLooks,
TextNode,
CheckNode,
EditNotify,
FileReader,
FileWriter,
LooksReader,
NodeAddrs,
PGSupport,
PutFile,
RopeEdit,
RunReader,
TextLooksSupport,
UndoEvent;

StartTBaseImpl: CEDAR PROGRAM
IMPORTS
GetFile, NodeProps, TextEdit, TextFind, GetTree, EditSpan,
TextLooks, TextNode, CheckNode, EditNotify, FileReader, FileWriter, LooksReader,
NodeAddrs, PGSupport, PutFile, RunReader, InterFile,
TextLooksSupport, RopeEdit, UndoEvent
EXPORTS StartTBase =
BEGIN

started: BOOLEAN _ FALSE;

Start: PUBLIC PROC = {

IF started THEN RETURN;
started _ TRUE;

<<-- RopeEdit must be first to set up finalization process for Chars arrays>>

RopeEdit.Start[];

<<-- these must come next because they set up exported REFs>>

TextNode.Start[];
NodeProps.StartNodeProps[];
NodeAddrs.StartNodeAddrs[];
TextLooks.Start[];
UndoEvent.Start[];

<<-- those that can come later>>

CheckNode.Start[];
EditNotify.Start[];
EditSpan.Start[];
FileReader.Start[];
FileWriter.Start[];
GetFile.StartGetFile[];
GetTree.Start[];
InterFile.StartPutFile[]; -- add StartGetFile later
LooksReader.Start[];
PGSupport.Start[];
PutFile.StartPutFile[];
RunReader.Start[];
TextEdit.Start[];
TextFind.Start[];
TextLooksSupport.StartTextLooksSupport[];

};

Start;

END.