DIRECTORYIcons, SV2d, SVInterfaceTypes, SVViewersOnScene, SVViewerTool, ViewerClasses, ViewerOps;SVViewerToolImpl: CEDAR PROGRAMIMPORTS Icons, SVViewersOnScene, ViewerOpsSHARES ViewerOps =BEGIN OPEN ViewerClasses;Point2d: TYPE = SV2d.Point2d;SVData: TYPE = SVInterfaceTypes.SVData;SolidViewerToolPaint: PRIVATE PaintProc = TRUSTED {svData: SVData _ NARROW[self.data];v: Viewer;update: BOOL _ FALSE;hdiff, wdiff: INTEGER;FOR l: LIST OF Viewer _ svData.xBounded, l.rest UNTIL l=NIL DOv _ l.first;IF v.destroyed THEN {update _ TRUE; LOOP};wdiff _ v.ww-v.cw;v.ww _ MAX[v.parent.cw-v.wx-1, 5];v.cw _ v.ww-wdiff;ENDLOOP;FOR l: LIST OF Viewer _ svData.yBounded, l.rest UNTIL l=NIL DOv _ l.first;IF v.destroyed THEN {update _ TRUE; LOOP};hdiff _ v.wh-v.ch;v.wh _ MAX[v.parent.ch-v.wy-1, 5];v.ch _ v.wh-hdiff;ENDLOOP;IF update THEN {oldx: LIST OF Viewer _ svData.xBounded;oldy: LIST OF Viewer _ svData.yBounded;svData.xBounded _ svData.yBounded _ NIL;FOR l: LIST OF Viewer _ oldx, l.rest UNTIL l=NIL DOIF ~l.first.destroyedTHEN svData.xBounded _ CONS[l.first, svData.xBounded];ENDLOOP;FOR l: LIST OF Viewer _ oldy, l.rest UNTIL l=NIL DOIF ~l.first.destroyedTHEN svData.yBounded _ CONS[l.first, svData.yBounded];ENDLOOP;};};SolidViewerToolDestroy: PRIVATE DestroyProc = TRUSTED {SVViewersOnScene.NotifyDestroy[self];};SolidViewerToolSet: PRIVATE SetProc = TRUSTED {svData: SVData _ NARROW[self.data];child: Viewer = NARROW[data];IF child.parent#self THEN ERROR;IF op=$YBound THEN svData.yBounded _ CONS[child, svData.yBounded]ELSE IF op=$XBound THEN svData.xBounded _ CONS[child, svData.xBounded]ELSE ERROR;};SolidViewerToolInit: PRIVATE InitProc = CHECKED {};solidViewerToolClass: ViewerClasses.ViewerClass _ NEW[ViewerClasses.ViewerClassRec _ [init: SolidViewerToolInit,paint: SolidViewerToolPaint,destroy: SolidViewerToolDestroy,set: SolidViewerToolSet,topDownCoordSys: TRUE,icon: Icons.NewIconFromFile["SolidViews.icons", 0]]];ViewerOps.RegisterViewerClass[$SolidViewerTool, solidViewerToolClass];-- plug in to ViewersEND.    ì  File: SVViewerToolImpl.mesaLast edited by Bier on February 2, 1987 6:50:03 pm PSTCopyright c 1984 by Xerox Corporation.  All rights reserved.Created on March 22, 1983 2:29 pmMy very own container-type class for solid viewers Êy  ˜ Iheadšœ™Jšœ6™6Jšœ
Ïmœ1™<Jšœ!™!Jšœ2™2J˜ šÏk	˜	JšœX˜X—J˜ Jšœž˜J˜ Jšžœ#˜*Jšžœ˜J˜ Jšžœžœ˜J˜ Jšœ	žœ˜Jšœžœ˜'J˜ šÏnœžœžœ˜3Jšœžœ˜#Jšœ
˜
Jšœžœžœ˜Jšœžœ˜šžœžœžœ"žœžœž˜>Jšœ˜Jšžœžœžœžœ˜*Jšœ˜Jšœžœ˜"Jšœ˜—Jšžœ˜šžœžœžœ"žœžœž˜>Jšœ˜Jšžœžœžœžœ˜*Jšœ˜Jšœžœ˜"Jšœ˜—Jšžœ˜šžœžœ˜Jšœžœžœ˜'Jšœžœžœ˜'Jšœ$žœ˜(šžœžœžœžœžœž˜3Jšžœ˜Jšžœžœ˜6—Jšžœ˜šžœžœžœžœžœž˜3Jšžœ˜Jšžœžœ˜6—Jšžœ˜Jšœ˜—Jšœ˜—J˜ šŸœžœžœ˜7Jšœ%˜%Jšœ˜—J˜ šŸœžœžœ˜/Jšœžœ˜#Jšœžœ˜Jšžœžœžœ˜ Jšžœžœžœ˜AJšžœžœžœžœ˜FJšžœžœ˜Jšžœ˜—J˜ JšŸœžœžœžœ˜3J˜ šœ2žœ!˜VJšœ˜Jšœ˜Jšœ ˜ Jšœ˜Jšœžœ˜Jšœ2˜2Jšœ˜J˜ —JšœFÏc˜[J˜ Jšžœ˜J˜ J˜ J˜ J˜ J˜ J˜ J˜ — …—    4  ™  