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, October 7, 1985 10:26:56 am PDT
DIRECTORY
CD USING [Position, Layer, ObjectClass, Object];
CDRects: CEDAR DEFINITIONS =
BEGIN
Basic module for creation of rectangle objects.
--vanilla procedures
CreateRect:
PROC [size:
CD.Position, l:
CD.Layer]
RETURNS [
CD.Object];
--Create a rect-object
-- x is considered width, y is considered length
--technology implementors
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];
bareRectClass: PRIVATE READONLY REF CD.ObjectClass;
END.