CDRects.mesa A module of ChipNDale
Copyright © 1983, 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, May 3, 1983 10:44 am
Last edited by: Christian Jacobi, October 16, 1986 12:02:34 pm 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: CD.ObjectClass←NIL
];
CreateBareRect:
PROC [size:
CD.Position, l:
CD.Layer]
RETURNS [
CD.Object];
--Create rect of class bareRectClass (not going through class mechanism)
bareRectClass: PRIVATE READONLY CD.ObjectClass;
END.