<<>> <> <> <> <> <<>> 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.