<> <> <> <> DIRECTORY Rope USING [ROPE], CD USING [Instance, Design, Object]; CDCellsInteractions: CEDAR DEFINITIONS = BEGIN CreateCellSelected: PROC [design: CD.Design, name: Rope.ROPE_NIL] RETURNS [done: BOOL, cellOb: CD.Object]; <<--name=NIL: interactive read for name.>> <<--name#NIL: hint for name; may be modified.>> <<--If done: cell is included in directory of design.>> PushInCellInstance: PROC [design: CD.Design, inst: CD.Instance, convertIfNecessary: BOOL _ TRUE] RETURNS [done: BOOL]; <<--inst must be an instance of the currently toplevel pushed in cell of design>> <<--message of problem if not done>> PopFromCell: PROC [design: CD.Design, m: Method_interactive, name: Rope.ROPE_NIL] RETURNS [done: BOOL]; <<--message of problem if not done>> Method: TYPE = {flush, newcell, replace, interactive}; PushedCellName: PROC [design: CD.Design] RETURNS [Rope.ROPE]; END.