-- File: NutPrivate.mesa-- Contents: handy access to Nut viewers; implemented by NutPrivateImpl-- Created by: Rick & Willie-Sue on July 8, 1982-- Last edited by:--   Rick on August 11, 1982 12:01 pm--   Willie-Sue on January 21, 1983 8:48 am-- Last Edited by: Donahue, March 21, 1983 8:45 amDIRECTORY  DB USING[Domain, Segment],  Nut USING[NutType],  Rope USING[ROPE],  ViewerClasses USING[Viewer];NutPrivate: CEDAR DEFINITIONS =BEGINOPEN DB, Nut, Rope, ViewerClasses;-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *-- handy access to Nut ViewersFindViewer: PROC[type: NutType, domain: Domain, eName: ROPE, seg: DB.Segment]RETURNS[Viewer];FindSpawned: PROC[v: Viewer] RETURNS[Viewer];SetSpawned: PROC[parent, spawned: Viewer];END.      Ê ‰  ˜ Jš3ÏcaœÉœÏk	œžœžœžœžœžœžœžœžœžœžœžœjÏn
œžœ'žœžœ
žœŸœžœžœŸ
œžœžœ˜—— …—      ©  