<> <> <<>> DIRECTORY IO USING [STREAM], Rope USING [ROPE]; FileViewerOps: CEDAR DEFINITIONS = BEGIN OPEN IO, Rope; SourceFromSelection: PROC [which: SelectionOption _ primary] RETURNS [fileName: ROPE _ NIL, index: INT _ -1]; <<... returns the file name and position within the file for the selected Tioga viewer (returns [NIL, -1] if no valid Tioga viewer is selected).>> SelectionOption: TYPE = {primary, feedback}; < use primary selection>> < use feedback selection>> OpenSource: PROC [fileName: ROPE, index: INT, chars: INT _ 2, feedBack: STREAM _ NIL]; <<... opens a viewer on the source file. If index >= 0, then also set the feedback selection to the given index (for "chars" characters).>> ShowLog: PROC [ fileName: ROPE, destroyIt: BOOL _ FALSE, createIconic: BOOL _ FALSE, blinkIfIconic: BOOL _ TRUE]; WaitUntilSaved: PROC [fileName: ROPE, feedBack: STREAM _ NIL]; <> <> <> <<>> AttachErrorLog: PROC[sourceFileName: Rope.ROPE]; <> RemoveErrorLog: PROC[sourceFileName: Rope.ROPE]; <> <<>> <<>> END.