CDSimpleOps.mesa (part of ChipNDale)
Copyright © 1984, 1985 by Xerox Corporation. All rights reserved.
by Christian Jacobi, February 24, 1984 2:53 pm
last edited by Christian Jacobi, September 19, 1985 3:53:11 am PDT
DIRECTORY
CD,
Rope USING [ROPE];
CDSimpleOps: CEDAR DEFINITIONS =
BEGIN
Implements some basic interactive commands.
All procedures do not queue; proper synchronization by the caller is assumed.
RenameDesign: PROC [design: CD.Design, name: Rope.ROPE];
Select: PROC [design: CD.Design, pos: CD.Position, verbose: BOOL←TRUE];
DeSelect: PROC [design: CD.Design, pos: CD.Position, verbose: BOOL←TRUE];
SelectAll: PROC [design: CD.Design];
DeselectAll: PROC [design: CD.Design];
AreaSelect: PROC [design: CD.Design, area: CD.Rect, includePartial: BOOL←FALSE];
AreaDeSelect: PROC [design: CD.Design, area: CD.Rect, includePartial: BOOL←FALSE];
DeleteSelected: PROC [design: CD.Design, verbose: BOOL←TRUE];
FlushDeletedCache: PROC [design: CD.Design];
Undelete: PROC [design: CD.Design, n: INT𡤀];
StretchyMode: TYPE = {yes, no, option};
MoveSelected: PROC [design: CD.Design, offset: CD.Position, stretchy: StretchyMode←no];
CopySelected:
PROC [design:
CD.Design, offset:
CD.Position];
--the copied instances point to the original object instances
TransformSelected: PROC [design: CD.Design, transform: CD.Orientation];
BaseTransformSelected:
PROC [design:
CD.Design, transform:
CD.Orientation,
base: CD.Rect];
END.