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.Start[]; TextNode.Start[]; NodeProps.StartNodeProps[]; NodeAddrs.StartNodeAddrs[]; TextLooks.Start[]; UndoEvent.Start[]; 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. 0-- StartTBaseImpl.Mesa -- written by Paxton. April 1981 -- last written by Paxton. December 28, 1982 11:17 am -- **** Start TBase **** -- RopeEdit must be first to set up finalization process for Chars arrays -- these must come next because they set up exported REFs -- those that can come later Ê…˜JšÏc™Jš!™!Jš6™6J˜Jš™J˜šÏk ˜ J˜ J˜ J˜J˜ J˜J˜ J˜ J˜ J˜ J˜ J˜ J˜ J˜ J˜ J˜ J˜ J˜ J˜J˜ J˜ J˜J˜ J˜—Jšœž ˜šž˜J˜:J˜PJ˜4J˜%—Jšžœ ˜Jšž˜J˜Jšœ žœžœ˜J˜JšÏnœžœžœ˜˜Jšžœ žœžœ˜Jšœ žœ˜J˜JšI™IJ˜J˜J˜Jš9™9J˜J˜J˜J˜J˜J˜J˜Jš™J˜J˜J˜J˜J˜J˜J˜J˜Jšœ˜3J˜J˜J˜J˜J˜J˜J˜)J˜J˜J˜—J˜J˜Jšžœ˜J˜—…—€5