1 -- Created on: 1996-12-16
2 -- Created by: Yves FRICAUD
3 -- Copyright (c) 1996-1999 Matra Datavision
4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
6 -- The content of this file is subject to the Open CASCADE Technology Public
7 -- License Version 6.5 (the "License"). You may not use the content of this file
8 -- except in compliance with the License. Please obtain a copy of the License
9 -- at http://www.opencascade.org and read it completely before using this file.
11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
14 -- The Original Code and all software distributed under the License is
15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
16 -- Initial Developer hereby disclaims all such warranties, including without
17 -- limitation, any warranties of merchantability, fitness for a particular
18 -- purpose or non-infringement. Please see the License for the specific terms
19 -- and conditions governing the rights and limitations under the License.
23 class OldShapeIterator from TNaming
25 ---Purpose: Iterates on all the ascendants of a shape
29 NamedShape from TNaming,
30 UsedShapes from TNaming,
31 Iterator from TNaming,
36 NoMoreObject from Standard,
37 NoSuchObject from Standard
41 Create(aShape : Shape from TopoDS;
42 Transaction : Integer from Standard;
43 Shapes : UsedShapes from TNaming)
44 returns OldShapeIterator from TNaming
47 Create(aShape : Shape from TopoDS;
48 Shapes : UsedShapes from TNaming)
49 returns OldShapeIterator from TNaming
52 Create(aShape : Shape from TopoDS;
53 Transaction : Integer from Standard;
54 access : Label from TDF)
55 returns OldShapeIterator from TNaming;
57 Create(aShape : Shape from TopoDS;
58 access : Label from TDF)
59 returns OldShapeIterator from TNaming;
62 Create(anIterator : OldShapeIterator from TNaming)
63 returns OldShapeIterator from TNaming;
64 ---Purpose: Iterates from the current Shape in <anIterator>
66 Create(anIterator : Iterator from TNaming)
67 returns OldShapeIterator from TNaming;
68 ---Purpose: Iterates from the current Shape in <anIterator>
70 More(me) returns Boolean;
75 NoMoreObject from Standard;
77 Label(me) returns Label from TDF
79 NoSuchObject from Standard;
81 NamedShape(me) returns NamedShape from TNaming
83 NoSuchObject from Standard;
86 Shape(me) returns Shape from TopoDS
89 NoSuchObject from Standard;
91 IsModification(me) returns Boolean;
92 ---Purpose: True if the new shape is a modification (split,
93 -- fuse,etc...) of the old shape.
99 myNode : PtrNode from TNaming;
100 myTrans : Integer from Standard; -- is < 0 means in Current Transaction.
104 class Tool from TNaming,
105 class Localizer from TNaming,
106 class Naming from TNaming
108 end OldShapeIterator;