<> <> <> DIRECTORY SirPress; SirPressExtras: CEDAR DEFINITIONS = BEGIN PressHandle: TYPE = SirPress.PressHandle; mica: INT = SirPress.mica; PutRectangleHere: PROC [p: PressHandle, xlen, ylen: INT, unit: INT _ mica]; <> END. <> <>