<> <> <> <> DIRECTORY CD; CDImportsExtras: CEDAR DEFINITIONS = BEGIN OneLevelIncludedCopy: PROC [impObject: CD.ObPtr, design: CD.Design] RETURNS [CD.ObPtr]; <<--impObject: is imported and bound (from any importee) .>> <<--design: design where impObject is imported to, and where the result lies.>> <<--Warning: by importing the childs of impObject you might create imports of >> <<--internal sub-objects which the designer really had not thought of exporting...>> <<--Mostly, (but not always), usage of this procedure is a bad idea.>> END.