0024927: Getting rid of "Persistent" functionality -- Code
[occt.git] / src / PNaming / PNaming_NamedShape.cdl
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
5 --
6 -- This file is part of Open CASCADE Technology software library.
7 --
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.
13 --
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
16
17 class NamedShape from PNaming inherits Attribute from PDF
18
19         ---Purpose: This is the persistent attribute of the
20         --          topological naming.
21
22 uses
23
24     HArray1OfShape1 from PTopoDS,
25     HArray1OfInteger from PColStd
26
27
28 is
29
30
31     Create returns NamedShape from PNaming;
32         ---Purpose: Creates a mutable NamedShape from PNaming.
33
34     
35     NbShapes(me) returns Integer;
36         ---Purpose: Returns the number of shapes.
37
38
39     OldShapes(me : mutable; theShapes : HArray1OfShape1 from PTopoDS);
40         ---Purpose: Sets the field <myOldShapes>.
41     
42     OldShapes(me) returns HArray1OfShape1 from PTopoDS;
43         ---Purpose: Returns the field <myOldShapes>.
44     
45
46     NewShapes(me : mutable; theShapes : HArray1OfShape1 from PTopoDS);
47         ---Purpose: Sets the field <myNewShapes>.
48     
49     NewShapes(me) returns HArray1OfShape1 from PTopoDS;
50         ---Purpose: Returns the field <myNewShapes>.
51     
52
53     ShapeStatus(me : mutable; theShapeStatus : Integer from Standard);
54         ---Purpose: Sets the field <myShapeStatus>.
55     
56     ShapeStatus(me) returns Integer from Standard;
57         ---Purpose: Returns the field <myShapeStatus>.
58     
59     Version (me : mutable; theVersion : Integer from Standard);
60         ---Purpose: Sets the field <myVersion>.
61     
62     Version (me) returns Integer from Standard;
63         ---Purpose: Returns the field <myVersion>.
64             
65 fields
66
67     myOldShapes    : HArray1OfShape1 from PTopoDS;
68     myNewShapes    : HArray1OfShape1 from PTopoDS;
69     myShapeStatus  : Integer         from Standard;
70     myVersion      : Integer         from Standard;
71
72 end NamedShape;