Copyright © 1985 by Xerox Corporation. All rights reversed.

Created by Louis Monier, August 23, 1985 2:34:21 pm PDT

Bertrand Serlet February 6, 1986 11:42:03 am PST

CD USING [Position],

PW USING [Object],

PWDescr USING [Descriptor, PadRef],

PWPins USING [RenameProc];

BEGIN

MakeOuter: PROC [obj: PW.Object, renameProc: PWPins.RenameProc] RETURNS [cell: PW.Object];

MakePadFrame: PROC [padDescr: PWDescr.Descriptor, innerSize: CD.Position ← [0, 0], pack: BOOL ← FALSE] RETURNS [frame: PW.Object];

Single: PROC [where: INT] RETURNS [padRef: PWDescr.PadRef];

Segment: PROC [first, howMany: INT] RETURNS [padRef: PWDescr.PadRef];

END.