DIRECTORYInputFocus USING [GetInputFocus],Rope USING [ROPE],ViewerClasses USING [Viewer, ViewerRec],ViewerOps USING [CreateViewer, FindViewer],ViewerTools USING [SelPos, TiogaContents];ViewerToolsImpl: CEDAR PROGRAMIMPORTS InputFocus, ViewerOpsEXPORTS ViewerTools= BEGIN OPEN ViewerTools;ROPE: TYPE ~ Rope.ROPE;Viewer: TYPE ~ ViewerClasses.Viewer;ViewerRec: TYPE ~ ViewerClasses.ViewerRec;FindExistingViewer: PUBLIC PROC [fileName: Rope.ROPE] RETURNS [viewer: Viewer] = {RETURN[ViewerOps.FindViewer[fileName]]};MakeNewTextViewer: PUBLIC PROC [info: ViewerClasses.ViewerRec _ [], paint: BOOL _ TRUE] RETURNS [viewer: Viewer] = {RETURN[ViewerOps.CreateViewer[flavor: $Text, info: info, paint: paint]];};SetSelection: PUBLIC PROC [viewer: Viewer, selection: SelPos _ NIL] = {IF viewer=NIL OR viewer.class.set=NIL THEN RETURN;viewer.class.set[viewer, selection, TRUE, $SelPos]};GetSelectedViewer: PUBLIC PROC RETURNS [viewer: Viewer] = {RETURN[InputFocus.GetInputFocus[].owner]};GetSelectionContents: PUBLIC PROC RETURNS [ROPE] = {v: Viewer ~ GetSelectedViewer[];IF v=NIL OR v.class.get=NIL THEN RETURN[NIL];WITH v.class.get[v, $SelChars] SELECT FROMcontents: ROPE => RETURN[contents];ENDCASE => RETURN[NIL];};GetSelection: PUBLIC PROC [viewer: Viewer] RETURNS [selection: SelPos] = {IF viewer=NIL OR viewer.class.get=NIL THEN RETURN[NIL];WITH viewer.class.get[viewer, $SelPos] SELECT FROMselPos: SelPos => RETURN[selPos];ENDCASE => RETURN[NIL];};GetContents: PUBLIC PROC [viewer: Viewer] RETURNS [ROPE] = {IF viewer=NIL OR viewer.class.get=NIL THEN RETURN[NIL];WITH viewer.class.get[viewer] SELECT FROMcontents: ROPE => RETURN[contents];ENDCASE => RETURN[NIL];};SetContents: PUBLIC PROC [viewer: Viewer, contents: ROPE, paint: BOOL _ TRUE] = {IF viewer=NIL OR viewer.class.set=NIL THEN RETURN;viewer.class.set[viewer, contents, paint];};GetTiogaContents: PUBLIC PROC [viewer: Viewer] RETURNS [TiogaContents] = {IF viewer=NIL OR viewer.class.get=NIL THEN RETURN[NIL];WITH viewer.class.get[viewer, $TiogaContents] SELECT FROMcontents: TiogaContents => RETURN[contents];ENDCASE => RETURN[NIL];};SetTiogaContents: PUBLIC PROC [viewer: Viewer, contents: TiogaContents, paint: BOOL _ TRUE] = {IF viewer=NIL OR viewer.class.set=NIL THEN RETURN;viewer.class.set[viewer, contents, paint, $TiogaContents];};InhibitUserEdits: PUBLIC PROC [viewer: Viewer] = {IF viewer=NIL OR viewer.class.set=NIL THEN RETURN;viewer.class.set[viewer, NIL, FALSE, $ReadOnly];};EnableUserEdits: PUBLIC PROC [viewer: Viewer] = {IF viewer=NIL OR viewer.class.set=NIL THEN RETURN;viewer.class.set[viewer, NIL, FALSE, $ReadWrite];};END.   *  ViewerToolsImpl.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Doug Wyatt, March 28, 1985 5:10:33 pm PSTRuss Atkinson (RRA) June 17, 1985 3:18:15 pm PDTFinding and Creating ViewersOperations on SelectionsContents of ViewersWorks for text and maybe some other classesЭ╩╫  Ц"Mesa" styleШ codeЪ╧cЩKЪЬ
╧mЬ1Щ<KЩ)KЩ0ЧKЩ Ъ╧k	Ш	KЪЬЯЬШ!KЪЬЯЬЯЬШKЪЬЯЬШ(KЪЬ
ЯЬШ+KЪЬЯЬШ*ЧKШ Ъ╨blЬЯЬЯШKЪЯЬШKЪЯЬШKЪЬЯЬЯЬШKШ KЪЯЬЯЬЯЬШKЪЬЯЬШ$KЪЬЯЬШ*KШ ЧheadЪЬЩЪ
╧nЬЯЬЯЬЯЬЯЬШRKЪЯЬ Ш&KЪЬШKШ ЧЪбЬЯЬЯЬ.ЯЬЯЬЯЬШuKЪЯЬBШHKЪЬШЧЧЪЬЩЪбЬЯЬЯЬ&ЯЬШGKЪЯЬЯЬЯЬЯЬЯЬЯЬШ2KЪЬ$ЯЬ
Ш2KЪЬШKШ ЧЪбЬЯЬЯЬЯЬШ;KЪЯЬ"Ш(KЪЬШKШ ЧЪ
бЬЯЬЯЬЯЬЯЬШ4KШ KЪЯЬЯЬЯЬЯЬЯЬЯЬЯЬШ-ЪЯЬЯЬЯШ*KЪЬ
ЯЬЯЬШ#KЪЯЬЯЬЯЬШЧKЪЬШKШ ЧЪбЬЯЬЯЬЯЬШJKЪЯЬЯЬЯЬЯЬЯЬЯЬЯЬШ7ЪЯЬ#ЯЬЯШ2KЪЬЯЬ	Ш!KЪЯЬЯЬЯЬШЧKЪЬШЧЧЪЬЩKЪЭ+Щ+KШ Ъ
бЬЯЬЯЬЯЬЯЬШ<KЪЯЬЯЬЯЬЯЬЯЬЯЬЯЬШ7ЪЯЬЯЬЯШ)KЪЬ
ЯЬЯЬШ#KЪЯЬЯЬЯЬШЧKЪЬШKШ ЧЪбЬЯЬЯЬЯЬ	ЯЬЯЬШQKЪЯЬЯЬЯЬЯЬЯЬЯЬШ2KЪЬ*Ш*KЪЬШKШ ЧЪбЬЯЬЯЬЯЬШJKЪЯЬЯЬЯЬЯЬЯЬЯЬЯЬШ7ЪЯЬ*ЯЬЯШ9KЪЬЯЬШ,KЪЯЬЯЬЯЬШЧKЪЬШKШ ЧЪ
бЬЯЬЯЬ3ЯЬЯЬШ`KЪЯЬЯЬЯЬЯЬЯЬЯЬШ2KЪЬ:Ш:KЪЬШKШ ЧЪбЬЯЬЯЬШ2KЪЯЬЯЬЯЬЯЬЯЬЯЬШ2KЪЬЯЬЯЬШ0KЪЬШKШ ЧЪбЬЯЬЯЬШ1KЪЯЬЯЬЯЬЯЬЯЬЯЬШ2KЪЬЯЬЯЬШ1KЪЬШЧKШ ЧKЪЯЬШЧ ЕЧ    
|  }  