<> <> <> <> <<>> DIRECTORY CD, CDAtomicObjects, CDBasics, CDCells, CDCurves, CDDirectory, CDImports, CDRects, CDRoutingObjects, CDSatellites, CDSimpleRules, CDSymbolicObjects, CDTexts, CMosB, CMosBExtras, List, Pipal, PipalCD, PipalCDUI, PipalInt, PipalMos, PipalPaint, PW, RefTab, Saguaro; PipalCDUIImpl: CEDAR PROGRAM <> IMPORTS CDDirectory, PipalCD EXPORTS PipalCDUI = BEGIN OPEN PipalCDUI; <> Fetch: PUBLIC PROC [design: Design, name: Pipal.ROPE] RETURNS [object: Pipal.Object _ NIL] = { cdObj: CD.Object _ CDDirectory.Fetch[design, name]; IF cdObj=NIL THEN RETURN; object _ PipalCD.CDToPObject[cdObj]; }; <> END.