CDRects.mesa A module of ChipNDale
Copyright © 1983, 1986 by Xerox Corporation. All rights reserved.
by Christian Jacobi, May 3, 1983 10:44 am
last edited by Christian Jacobi, March 25, 1986 1:35:47 pm PST
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: CD.ObjectClass←NIL
];
CreateBareRect: PROC [size: CD.Position, l: CD.Layer] RETURNS [CD.Object];
bareRectClass: PRIVATE READONLY CD.ObjectClass;
END.