CDRects.mesa A module of ChipNDale
Copyright © 1983, 1984 by Xerox Corporation. All rights reserved.
by Christian Jacobi, May 3, 1983 10:44 am
last edited by Christian Jacobi, May 24, 1985 3:05:23 pm PDT
DIRECTORY
CD USING [Position, Layer, ObjectClass, Object];
CDRects: CEDAR DEFINITIONS =
BEGIN
CreateRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object];
UseAsCreateRect:
PROC [
l: CD.Layer,
createRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object],
hangExtensionsOn: REF CD.ObjectClass←NIL
];
CreateBareRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object];
-- x is considered width, y is considered length
END.