Copyright © 1985 by Xerox Corporation. All rights reserved.

Maureen Stone July 4, 1985 1:41:30 pm PDT

PointDefs USING [ScrPt],

ObjectDefs USING [Object];

ScrPt: TYPE = PointDefs.ScrPt;

Object: TYPE = ObjectDefs.Object;

GridOn: PROC;

GridOff: PROC;

Grid: PROCEDURE[pt: ScrPt] RETURNS[ScrPt];

MoveGrid: PROCEDURE[grid: REF token Object, dx,dy: INT];

Initialize: PROC;