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 22, 1984 2:40:07 pm PDT
DIRECTORY
CD USING [DesignPosition, Level, ObjectProcs, ObPtr];
CDRects: CEDAR DEFINITIONS =
BEGIN
CreateRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr];
UseAsCreateRect: PROC [
l: CD.Level,
createRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr],
hangExtensionsOn: REF CD.ObjectProcs←NIL
];
CreateBareRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr];
CreateSaveRect: PROC [size: CD.DesignPosition, l: CD.Level] RETURNS [CD.ObPtr];
-- x is considered width, y is considered length
END.