DIRECTORYCD USING [Rect, Position, Design],CDSequencer USING [Command],Rope USING [ROPE],ViewerClasses USING [Viewer];CDViewer: CEDAR DEFINITIONS =BEGINCreateViewer: PROC [design: CD.Design, openPanel: BOOL_TRUE] RETURNS [ViewerClasses.Viewer];GetViewer: PROC [comm: CDSequencer.Command] RETURNS [ViewerClasses.Viewer];LastViewer: PROC  [] RETURNS [ViewerClasses.Viewer];ShowPosition: PROC [viewer: ViewerClasses.Viewer, pos: CD.Position];ShowAndScale: PROC [viewer: ViewerClasses.Viewer, rect: CD.Rect];VisibleRect: PROC [viewer: ViewerClasses.Viewer] RETURNS [r: CD.Rect];ViewerList: TYPE = LIST OF ViewerClasses.Viewer;ViewersOf: PROC [design: REF] RETURNS [ViewerList];DesignOf: PROC [viewer: ViewerClasses.Viewer] RETURNS [design: CD.Design];FindDesign: PROC [name: Rope.ROPE, case: BOOL _ FALSE] RETURNS [design: CD.Design];END.    8  CDViewer.mesa        (part of ChipNDale)Copyright c 1983, 1987 by Xerox Corporation.  All rights reserved.Created by Christian Jacobi, October 13, 1983 2:51 pm Last edited by: Christian Jacobi, February 26, 1987 12:21:28 pm PST--Accessing viewers of ChipNDale designs--Creates a viewer and displays the design,--If already a viewer exists, this split's the viewer--Returns the viewer from which the command was issued, if detectable--Might return NIL--The last ChipNDale design viewer which had the input focus--Might return NIL--Scaling and paning--Moves viewer such that pos is in visible area (does not open closed viewer)--Approximative only--Moves and scales viewer such that rect is in visible area (does not open closed viewer)--Approximative only--Undefined if viewer is not open or does not represent a ChipNDale design--Transfer--Returns the viewers which might display the design--NIL if not a ChipNDale design--Might not find designs which do not have viewers--If multiple designs have the same name, find arbitrary one--NIL if not foundÊ  ˜ codešœ(™(Kšœ
Ïmœ7™BKšœ6™6K™C—K˜ šÏk	˜	Kšžœžœ˜"Kšœžœ˜Kšœžœžœ˜Kšœžœ
˜K˜ —KšÏnœžœžœ˜Kšž˜K˜ K™(K˜ šŸœžœ
žœžœžœžœ˜\Kšœ+™+K™5—K˜ šŸ	œžœžœ	žœ˜KKšœE™EK™—K˜ šŸ
œžœžœ˜4K™<K™K™ —K˜ K™K˜ šŸœžœ$žœ˜DKšœM™MKšœ™K˜ —šŸœžœ%žœ˜AKšœY™YKšœ™—K˜ šŸœžœžœžœ˜FKšœJ™J—K˜ K™ K™
K˜ Kšœžœžœžœ˜0K˜ šŸ	œžœ	žœžœ˜3Kšœ4™4—K˜ šŸœžœžœ
žœ	˜JKšœ™K˜ —šŸ
œžœžœžœžœžœ
žœ	˜SKšœ2™2K™<K™—K˜ Kšžœ˜K˜ K˜ K˜ — …—    j  	¼  