-- 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 œžœ'žœžœ žœ Ÿ œžœ žœ Ÿ œžœžœ˜——…—©