DIRECTORYGraphics USING [Context],Rope USING [ROPE],ViewerClasses USING [Viewer];PEViewer: CEDAR DEFINITIONS = BEGINRedrawProc: TYPE = PROCEDURE [clientData: REF ANY];QuitProc: TYPE = PROCEDURE [clientData: REF ANY];ButtonProc: TYPE = PROCEDURE [clientData: REF ANY, event: ATOM, x, y: REAL];MenuLabelRec: TYPE = RECORD [label: ATOM,guarded: BOOLEAN _ FALSE];BuildViewer: PROCEDURE [name: Rope.ROPE, menuLabels: LIST OF MenuLabelRec, clientData: REF ANY, redrawProc: RedrawProc, quitProc: QuitProc, buttonProc: ButtonProc] RETURNS [pathViewer: ViewerClasses.Viewer, biasViewer: ViewerClasses.Viewer, tensionViewer: ViewerClasses.Viewer];DrawProc: TYPE = PROCEDURE [context: Graphics.Context];DrawInViewer: PROCEDURE [pathViewer: ViewerClasses.Viewer, drawProc: DrawProc];END.  Ü  PEViewer.mesaCopyright (C) 1984 by Xerox Corporation.  All rights reserved.Last Edited by: Plebon, August 18, 1983 1:45 pmThis routine makes a viewer with the supplied name and menu labels.   The supplied redrawProc is called when the screen must be redrawn (because the viewer changes size, etc.).  The supplied quitProc is called to clean up on program termination (which occurs when the viewer is destroyed.This routine calls the PaintProc to draw in the viewer.Êk  ˜ Jšœ™J™>Jšœ/™/J˜ šÏk	˜	Jšœ	œ˜Jšœœœ˜Jšœœ
˜J˜ —Jšœ
œ˜J˜ Jš˜J˜ Jš
Ïn
œœ	œœœ˜3J˜ Jš
žœœ	œœœ˜1J˜ Jšž
œœ	œœœ	œœ˜LJ˜ šœœœ˜Jšœœ˜Jšœ	œ˜J˜J˜ —šžœ
œœœœœœFœk˜–Jšœ ™ —J˜ Jšžœœ	œ˜7J˜ šžœ	œ8˜OJ™7—J˜ Jšœ˜J˜ J˜ — …—    &  m  