<> <> <> <> <> <<>> DIRECTORY CD, PW, Rope; MCPadFrame: CEDAR DEFINITIONS = BEGIN <<>> OPEN Rope; padFrameInnerSize: CD.Position; padNames: LIST OF ROPE; -- Descriptors for the pad frame PadFrame: PROC [design: CD.Design] RETURNS [frame: PW.ObPtr]; Shell: PROC [design: CD.Design, obj: CD.ObPtr] RETURNS [shell: CD.ObPtr]; END.