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]; 
SelectionOption: TYPE = {primary, feedback};

OpenSource: PROC [fileName: ROPE, index: INT, chars: INT м 2, feedBack: STREAM м NIL];

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.
  h  
FileViewerOps.mesa
Copyright ╙ 1986, 1987, 1991 by Xerox Corporation.  All rights reserved.
Doug Wyatt, December 17, 1986 11:37:29 am PST
Russ Atkinson (RRA) January 20, 1987 6:23:37 pm PST

... returns the file name and position within the file for the selected Tioga viewer (returns [NIL, -1] if no valid Tioga viewer is selected).
primary => use primary selection
feedback => use feedback selection
... opens a viewer on the source file.  If index >= 0, then also set the feedback selection to the given index (for "chars" characters).
WaitUntilSaved tries to find a viewer (v) such that
Rope.Find[(IF v.name # NIL THEN v.file ELSE v.name), fileName, 0, FALSE] # 0
AND v is in the process of being saved or is marked as a "newVersion".  If such a viewer is found, this prints relevant messages on "feedBack" and waits until v.saveInProgress is TRUE, then until it goes FALSE, then returns.

Find or open a viewer on sourceFileName and put an ErrorLog button in the menu.  Change the icon to show that the file has errors.
Remove the ErrorLog button from the viewer.  Change the icon back.  Destroy the errlog file.


 Э╩ъ  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬ=ЩHKЩ-KЩ3KЩ Ъ╧k	Ш	KЪЮЬЮЬЮЬШKЪЬЮЬЮЬШKШ ЧЧЪ╧nЬЮЬЮЬЮЬЮЬЮЬШ8KШ ЪЯЬЮЬ$ЮЬЮЬЮЬ	ЮЬШnKЪЬОЩОЪ╧bЬЮЬШ,KЪЬ Щ KЪЬ"Щ"KШ ЧЧЪЯ
ЬЮЬЮЬ	ЮЬ	ЮЬЮЬЮЬШVKЪЬИЩИKШ ЧЪЯЬЮЬШKЪЬ
ЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШ>ЪЬ3Щ3KЪЬBЮЬЩLЧKЪЬрЩрЧKЩ ЪЯЬЮЬЮЬШ1KЪЬВЩВЧKШ ЪЯЬЮЬЮЬШ1KЩ\ЧKЩ KЩ ЧKЪЮЬШЧ ЕЧ    |  ╬  