CDRects.mesa A module of Chipndale
by Christian Jacobi May 3, 1983 10:44 am
last edited by Christian Jacobi February 16, 1984 11:33 am
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 length, y is considered width
END.