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. ¶PipalCDUIImpl.mesa Copyright Ó 1988 by Xerox Corporation. All rights reserved. Louis Monier January 18, 1988 10:05:47 am PST Bertrand Serlet April 14, 1988 11:34:57 pm PDT IMPORTS CD, CDAtomicObjects, CDBasics, CDCells, CDCurves, CDDirectory, CDImports, CDRects, CDRoutingObjects, CDSatellites, CDSimpleRules, CDSymbolicObjects, CDTexts, CMosB, CMosBExtras, List, Pipal, PipalInt, PipalMos, PW, RefTab, Saguaro Foo Initialization Ê8– "cedar" style˜codešœ™Kšœ<™