<> <> <> <> <<>> DIRECTORY CD, Pipal; PipalCDUI: CEDAR DEFINITIONS = BEGIN <> Design: TYPE = REF DesignRec; DesignRec: PRIVATE TYPE = CD.DesignRec; Fetch: PROC [design: Design, name: Pipal.ROPE] RETURNS [object: Pipal.Object _ NIL]; CDToPProc: TYPE = PROC [cdobj: CD.Object] RETURNS [obj: Pipal.Object]; <<>> END.