<> <> <> <> DIRECTORY CD, Rope USING [ROPE]; CDCommands: CEDAR DEFINITIONS = BEGIN RenameDesign: PROC [design: CD.Design, name: Rope.ROPE]; Select: PROC [design: CD.Design, pos: CD.DesignPosition, verbose: BOOL_TRUE]; DeSelect: PROC [design: CD.Design, pos: CD.DesignPosition, verbose: BOOL_TRUE]; SelectAll: PROC [design: CD.Design]; DeselectAll: PROC [design: CD.Design]; AreaSelect: PROC [design: CD.Design, area: CD.DesignRect, includePartial: BOOL_FALSE]; AreaDeSelect: PROC [design: CD.Design, area: CD.DesignRect, includePartial: BOOL_FALSE]; DeleteSelected: PROC [design: CD.Design, verbose: BOOL_TRUE]; Undelete: PROC [design: CD.Design]; StretchyMode: TYPE = {yes, no, option}; MoveSelected: PROC [design: CD.Design, offset: CD.DesignPosition, stretchy: StretchyMode_no]; CopySelected: PROC [design: CD.Design, offset: CD.DesignPosition]; <<--the copied applications point to the original object instances>> TransformSelected: PROC [design: CD.Design, transform: CD.Orientation]; BaseTransformSelected: PROC [design: CD.Design, transform: CD.Orientation, base: CD.DesignRect]; END. <<--Remark>> <<--All procedures do not queue; proper synchronization by the calle is assumed.>> <<>>