-- 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.