Copyright © 1984, 1985 by Xerox Corporation. All rights reserved.

by Ch. Jacobi, September 10, 1984 9:20:09 am PDT

last edited by Ch. Jacobi, May 22, 1985 3:09:34 pm PDT

CD;

BEGIN

--implementing the origin

--Object class implementors business; calling these procedures for other purposes

-- (except if explicitely allowed by the comment of a procedure) will typically

-- produce chaos. These procedure implement an origin feature by using properties.

SimpleGetOrigin: PRIVATE PROC[ob: CD.Object] RETURNS [CD.Position];

SimpleSetOrigin: PRIVATE PROC[ob: CD.Object, new: CD.Position];

END.