-- File: TDataXtd_Shape.cdl -- Created: Mon Apr 6 18:16:04 2009 -- Author: Sergey ZARITCHNY -- ---Copyright: Open CasCade SA 2009 class Shape from TDataXtd inherits Attribute from TDF ---Purpose: A Shape is associated in the framework with : -- a NamedShape attribute uses Attribute from TDF, Label from TDF, NamedShape from TNaming, GUID from Standard, DataSet from TDF, RelocationTable from TDF, Shape from TopoDS is ---Purpose: class methods -- ============= Find (myclass; current : Label from TDF; S : in out Shape from TDataXtd) ---Purpose: try to retrieve a Shape attribute at label -- or in fathers label of . Returns True if -- found and set . returns Boolean from Standard; New (myclass; label : Label from TDF) ---Purpose: Find, or create, a Shape attribute. the Shape attribute -- is returned. Raises if