<> <> <> DIRECTORY Pipal, PipalInt, PipalPaint; PipalMask: CEDAR DEFINITIONS = BEGIN <> <> <> Layer: TYPE = PipalPaint.Color; -- enough for now <> <> boxClass: Pipal.Class; Box: TYPE = REF BoxRec; BoxRec: TYPE = RECORD [ size: PipalInt.Size, layer: Layer]; CreateBox: PROC [size: PipalInt.Size, layer: Layer] RETURNS [box: Box]; <> END.