<> <> <> <<>> DIRECTORY PointDefs USING [ScrPt], ObjectDefs USING [Object]; GriffinGrid: CEDAR DEFINITIONS ~ BEGIN 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; END.