<> <> <> <> <> <> <> <> <> <> <> <<(1) create it using InsertNode or InsertAsLastChild>> <<(2) set the text contents using SetContents>> <<(3) add looks if any using AddLooks>> <<(4) set the format (if not default) using SetFormat>> <> DIRECTORY Rope USING [ROPE]; TiogaFileOps: CEDAR DEFINITIONS = BEGIN Ref: TYPE = REF NodeBody; NodeBody: TYPE; CreateRoot: PROC RETURNS [root: Ref]; InsertNode: PROC [x: Ref, child: BOOL _ FALSE] RETURNS [new: Ref]; <> <> InsertAsLastChild: PROC [x: Ref, prevLast: Ref _ NIL] RETURNS [new: Ref]; <> SetContents: PROC [x: Ref, txt: Rope.ROPE]; AddLooks: PROC [x: Ref, start, len: INT, look: CHAR ['a..'z], root: Ref _ NIL]; <> <> <> <> <> SetFormat: PROC [x: Ref, format: Rope.ROPE]; <> SetStyle: PROC [x: Ref, style: Rope.ROPE]; <> Store: PROC [x: Ref, filename: Rope.ROPE]; <> <> END.