DIRECTORYIO, Rope, PieViewers, PressScreen, PseudoCursors, ViewerClasses;TSViewer: CEDAR DEFINITIONS = BEGINROPE: TYPE = Rope.ROPE;RemoteOrLocalState: TYPE = {bestPerformance, localOnly, remoteOnly};Tool: TYPE = REF ToolRec;ToolRec: TYPE = RECORD [stop: BOOLEAN _ FALSE,stopSending: BOOLEAN _ FALSE,selfDestruct: BOOLEAN _ FALSE,pause: BOOLEAN _ FALSE,idle: CONDITION,process: PROCESS _ NIL,nameButton: ViewerClasses.Viewer _ NIL,nameBox: ViewerClasses.Viewer _ NIL,currentName: ROPE _ NIL,pressName: ROPE _ NIL,messageBox: ViewerClasses.Viewer _ NIL,messageRope: ROPE _ NIL,messageLog: ROPE _ NIL,miniDisplay: PseudoCursors.PseudoCursor _ NIL,pie: PieViewers.PieViewer _ NIL,singleOutputFile: BOOLEAN _ FALSE,debug: BOOLEAN _ FALSE,tempPressLabel: ViewerClasses.Viewer _ NIL,tempPress: BOOLEAN _ FALSE,remoteBox: ViewerClasses.Viewer _ NIL,remoteState: RemoteOrLocalState _ bestPerformance,serverName: ROPE _ NIL,serverPie: PieViewers.PieViewer _ NIL,serverMsg: ViewerClasses.Viewer _ NIL,serverProcess: PROCESS _ NIL,serverIdle: CONDITION,copiesBox: ViewerClasses.Viewer _ NIL,feedBack: IO.STREAM _ NIL];NewTool: PROCEDURE [server: ROPE, feedBack: IO.STREAM] RETURNS [data: Tool];QueueRequest: PROCEDURE [tool: Tool, documentName: ROPE];WaitForIdle: PROCEDURE [tool: Tool];Stop: PROCEDURE [tool: Tool];Pause: PROCEDURE [tool: Tool];StopSending: PROCEDURE [tool: Tool];Print: PROCEDURE [tool: Tool];PrintAll: PROCEDURE [tool: Tool];Screen: PROCEDURE [tool: Tool, side: PressScreen.Side];Copies: PROCEDURE [tool: Tool, copies: NAT];TempPress: PROCEDURE [tool: Tool, temporaryPressFiles: BOOLEAN _ TRUE];END.Michael Plass, November 15, 1982 2:49 pm. Added StopSending and Screen.  ╩  TSViewer.mesaMichael Plass,  November 15, 1982 2:50 pmLast Edited by: Beach, May 7, 1984 3:56:31 pm PDTBob Hagmann November 21, 1985 4:24:52 pm PSTcreates a new viewerAdds the named document to the tool's queue Waits until the typesetter stops runningLike clicking the Stop buttonLike clicking the Pause buttonLike clicking the StopSending buttonLike clicking the Print buttonTypesets the whole queue, producing a single output fileLike clicking one of < Screen > ; side is leftSide, bothSides, or rightSide.Sets the 'Copies' parameterSets the 'Temporary Press Files' parameterBob Hagmann November 22, 1985 7:49:41 am PSTadded remoteBox and remoteState to ToolRec; added RemoteOrLocalStateЭ╩h  Ц"cedar" styleШ JЪ╧cЩJЪЭЬЩ)Щ1IcodeЩ,ЧЪ╧k	Ш	JЪЬ@Ш@JШ ЧJЪЬ
ЮЬШJЪЮШJШ JЪЮЬЮЬЮЬШJШ JЪЬЮЬ,ШDJШ JЪЬЮЬЮЬ	ШЪЬ	ЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬЮ	ЬШJЪЬ	ЮЬЮЬШJЪЬ#ЮЬШ'JЪЬ ЮЬШ$JЪЬЮ
ЬШJЪЬЮ
ЬШJЪЬ#ЮЬШ'JЪЬЮЬЮЬШJЪЬЮЬЮЬШJЪЬ*ЮЬШ.JЪЬЮЬШ JЪЬЮЬЮЬШ"JЪЬЮЬЮЬШJЪЬ'ЮЬШ+JЪЬЮЬЮЬШJЪЬ"ЮЬШ&JШ2JЪЬЮ
ЬШJЪЬ"ЮЬШ&JЪЬ"ЮЬШ&JЪЬЮЬЮЬШJЪЬЮ	ЬШJЪЬ"ЮШ&JЪЬ
ЮЬЮЬЮШJШJШ ЧJШ Ъ╧nЬЮ	Ь
ЮЬЮЬЮЬЮЬШLJЪЭЩJШ ЧЪЯЬЮ	ЬЮЬШ9JЪЭ,Щ,JШ ЧЪЯЬЮ	ЬШ$JЪЭ(Щ(JШ ЧЪЯЬЮ	ЬШJЪЭЩJШ ЧЪЯЬЮ	ЬШJЪЭЩJШ ЧЪЯЬЮ	ЬШ$JЪЭ$Щ$JШ ЧЪЯЬЮ	ЬШJЪЭЩJШ ЧЪЯЬЮ	ЬШ!JЪЭ8Щ8JШ ЧЪЯЬЮ	Ь&Ш7JЪЭЬ5ЩLJШ ЧЪЯЬЮ	ЬЮЬШ,JЪЭЩJШ ЧЪЯ	ЬЮ	Ь#ЮЬЮЬШGJЪЭ*Щ*JШ ЧJЪЮЬШJЪЬ0ЯЬЯЬШGЩ,KЪЬDЩDKЩ ЧKЩ Ч ЕЧ    ╥    