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
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 CD, CDAtomicObjects, CDBasics, CDCells, CDCurves, CDDirectory, CDImports, CDRects, CDRoutingObjects, CDSatellites, CDSimpleRules, CDSymbolicObjects, CDTexts, CMosB, CMosBExtras, List, Pipal, PipalInt, PipalMos, PW, RefTab, Saguaro
IMPORTS CDDirectory, PipalCD
EXPORTS PipalCDUI =
BEGIN OPEN PipalCDUI;
Foo
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.