0024927: Getting rid of "Persistent" functionality -- Storable
[occt.git] / src / XmlMNaming / XmlMNaming_Shape1.cdl
1 -- Created on: 2001-09-14
2 -- Created by: Alexander GRIGORIEV
3 -- Copyright (c) 2001-2014 OPEN CASCADE SAS
4 --
5 -- This file is part of Open CASCADE Technology software library.
6 --
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License version 2.1 as published
9 -- by the Free Software Foundation, with special exception defined in the file
10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 -- distribution for complete text of the license and disclaimer of any warranty.
12 --
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
15
16 class Shape1 from XmlMNaming
17
18     ---Purpose: The XmlMNaming_Shape1 is the Persistent view of a TopoDS_Shape.
19     --          
20     --  a  Shape1 contains :
21     --          - a reference to a TShape
22     --          - a reference to Location
23     --          - an Orientation.
24     
25 uses
26     Shape         from TopoDS,
27     Orientation   from TopAbs,
28     Document      from XmlObjMgt,
29     Element       from XmlObjMgt,
30     DOMString     from XmlObjMgt
31
32 is
33     Create(Doc : out Document from XmlObjMgt) returns Shape1 from XmlMNaming;
34     ---Level: Internal 
35
36     Create(E : Element from XmlObjMgt) returns Shape1 from XmlMNaming;
37     ---Level: Internal 
38
39     Element (me) returns Element from XmlObjMgt;
40       ---Purpose: return myElement
41       ---C++: return const &
42
43     Element (me:in out) returns Element from XmlObjMgt;
44       ---Purpose: return myElement
45       ---C++: return &
46
47     TShapeId(me) returns Integer from Standard
48     ---Level: Internal 
49     is static;
50
51     LocId(me) returns Integer from Standard
52     ---Level: Internal 
53     is static;
54
55     Orientation(me) returns Orientation from TopAbs
56     ---Level: Internal 
57     is static;
58
59     SetShape (me: in out; ID, LocID : Integer from Standard;
60                           Orient    : Orientation from TopAbs)
61     ---Level: Internal 
62     is static;
63
64
65     SetVertex (me: in out; theVertex : Shape from TopoDS)
66     ---Level: Internal 
67     is static;
68
69 fields
70     myElement     : Element     from XmlObjMgt;
71     myTShapeID    : Integer     from Standard;
72     myLocID       : Integer     from Standard;
73     myOrientation : Orientation from TopAbs;
74
75 end Shape1;