1 -- Created on: 1997-04-11
2 -- Created by: VAUTHIER Jean-Claude
3 -- Copyright (c) 1997-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
8 -- This library is free software; you can redistribute it and/or modify it under
9 -- the terms of the GNU Lesser General Public License version 2.1 as published
10 -- by the Free Software Foundation, with special exception defined in the file
11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 -- distribution for complete text of the license and disclaimer of any warranty.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 class NamedShape from PNaming inherits Attribute from PDF
19 ---Purpose: This is the persistent attribute of the
20 -- topological naming.
24 HArray1OfShape1 from PTopoDS,
25 HArray1OfInteger from PColStd
31 Create returns NamedShape from PNaming;
32 ---Purpose: Creates a mutable NamedShape from PNaming.
35 NbShapes(me) returns Integer;
36 ---Purpose: Returns the number of shapes.
39 OldShapes(me : mutable; theShapes : HArray1OfShape1 from PTopoDS);
40 ---Purpose: Sets the field <myOldShapes>.
42 OldShapes(me) returns HArray1OfShape1 from PTopoDS;
43 ---Purpose: Returns the field <myOldShapes>.
46 NewShapes(me : mutable; theShapes : HArray1OfShape1 from PTopoDS);
47 ---Purpose: Sets the field <myNewShapes>.
49 NewShapes(me) returns HArray1OfShape1 from PTopoDS;
50 ---Purpose: Returns the field <myNewShapes>.
53 ShapeStatus(me : mutable; theShapeStatus : Integer from Standard);
54 ---Purpose: Sets the field <myShapeStatus>.
56 ShapeStatus(me) returns Integer from Standard;
57 ---Purpose: Returns the field <myShapeStatus>.
59 Version (me : mutable; theVersion : Integer from Standard);
60 ---Purpose: Sets the field <myVersion>.
62 Version (me) returns Integer from Standard;
63 ---Purpose: Returns the field <myVersion>.
67 myOldShapes : HArray1OfShape1 from PTopoDS;
68 myNewShapes : HArray1OfShape1 from PTopoDS;
69 myShapeStatus : Integer from Standard;
70 myVersion : Integer from Standard;