DIRECTORYRope USING [ROPE],CD USING [Instance, Design];CDCellsInteractions: CEDAR DEFINITIONS = BEGINCreateCellSelected: PROC [design: CD.Design, interactiveName: BOOL_FALSE] RETURNS [done: BOOL, cellInst: CD.Instance];PushInCellInstance: PROC [design: CD.Design, inst: CD.Instance, convertIfNecessary: BOOL _ TRUE] RETURNS [done: BOOL];PopFromCell: PROC [design: CD.Design, m: Method_interactive, name: Rope.ROPE_NIL] RETURNS [done: BOOL];Method: TYPE = {flush, newcell, replace, interactive};PushedCellName: PROC [design: CD.Design] RETURNS [Rope.ROPE];PopToTopLevel: PROC [design: CD.Design];MakeTopInstance: PROC [design: CD.Design] RETURNS [inst: CD.Instance];END.   Ü  CDCellsInteractions.mesa   (a ChipNDale module)Copyright c 1983, 1987 by Xerox Corporation.  All rights reserved.Created by Christian Jacobi, 23-Aug-83Last edited by: Christian Jacobi, February 3, 1987 3:34:51 pm PST--Creates cell from selection [if not empty].--inst must be an instance of the currently toplevel pushed in cell of design--message of problem if not done--message of problem if not done--returns name of pushed in cell for printing purposes--if design is pushed-in: pop out to the top level--returns instance of top level object of design, or NIL if no top level object--if design is pushed-in, it will be popped out first.--if design has multiple objects on to level, a new cell will be created. Ê”  ˜ codešœ/™/Kšœ
Ïmœ7™BKšœ&™&K™AK˜ —šÏk	˜	Kšœžœžœ˜Kšžœžœ˜—K˜ KšÏnœžœžœ˜)Kšž˜K˜ šŸœžœ
žœžœžœžœžœžœ˜vKšÏc-™-K˜ —šŸœžœ
žœžœžœžœžœžœ˜vKšœM™MKšœ ™ K˜ —šŸœžœ
žœ+žœžœžœžœ˜gKšœ ™ Kšœžœ*˜6—K˜ š
Ÿœžœ
žœ	žœžœ˜=K™6K˜ —šŸœžœ
žœ	˜(K™2—K˜ š
Ÿœžœ
žœ	žœžœ˜FK™OKšœ6™6KšœI™I—K˜ Kšžœ˜K˜ — …—    ¶  &  