PAL12607: Static objects in Geometry GUI libraries.

[modules/geom.git] / src / GEOMAlgo / GEOMAlgo_PassKey.cdl

diff --git a/src/GEOMAlgo/GEOMAlgo_PassKey.cdl b/src/GEOMAlgo/GEOMAlgo_PassKey.cdl
index fe864b984acb3f6ff00eeea6a9f4358e37798f01..5644a07ff82a07f0791bba1e5d98c116b8f2c118 100755 (executable)
--- a/src/GEOMAlgo/GEOMAlgo_PassKey.cdl
+++ b/src/GEOMAlgo/GEOMAlgo_PassKey.cdl
@@ -1,3 +1,22 @@
+// Copyright (C) 2005  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
+// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
+// 
+// This library is free software; you can redistribute it and/or
+// modify it under the terms of the GNU Lesser General Public
+// License as published by the Free Software Foundation; either 
+// version 2.1 of the License.
+// 
+// This library is distributed in the hope that it will be useful 
+// but WITHOUT ANY WARRANTY; without even the implied warranty of 
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
+// Lesser General Public License for more details.
+//
+// You should have received a copy of the GNU Lesser General Public  
+// License along with this library; if not, write to the Free Software 
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+//
+-- See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
+//
 -- File:       GEOMAlgo_PassKey.cdl
 -- Created:    
 -- Author:     Peter KURNEV
@@ -11,40 +30,40 @@ class PassKey from GEOMAlgo
 
 uses
     Shape from TopoDS, 
-    ListOfShape from TopTools   
+    ListOfInteger from TColStd   
         
 --raises
 
 is 
     Create  
        returns PassKey from GEOMAlgo; 
-      
+     
     Assign(me:out;  
-       Other : PassKey from GEOMAlgo) 
+           Other : PassKey from GEOMAlgo) 
        returns PassKey from GEOMAlgo; 
     ---C++: alias operator =
     ---C++: return & 
-     
+--    
     SetIds(me:out; 
-           aS  :Shape from TopoDS); 
-           
+           aI1  :Integer from Standard); 
+            
     SetIds(me:out; 
-           aS1  :Shape from TopoDS; 
-           aS2  :Shape from TopoDS); 
-     
+           aI1 :Integer from Standard;    
+           aI2 :Integer from Standard);  
+            
     SetIds(me:out; 
-           aS1  :Shape from TopoDS; 
-           aS2  :Shape from TopoDS; 
-           aS3  :Shape from TopoDS); 
- 
-    SetIds(me:out;  
-           aS1  :Shape from TopoDS; 
-           aS2  :Shape from TopoDS; 
-           aS3  :Shape from TopoDS;
-           aS4  :Shape from TopoDS);
- 
+           aI1 :Integer from Standard;    
+           aI2 :Integer from Standard;    
+           aI3 :Integer from Standard);  
+
+    SetIds(me:out; 
+           aI1 :Integer from Standard;    
+           aI2 :Integer from Standard;    
+           aI3 :Integer from Standard;    
+           aI4 :Integer from Standard); 
+     
     SetIds(me:out;  
-           aLS  :ListOfShape from TopTools); 
+           aLS  :ListOfInteger from TColStd);   
  
     NbMax(me) 
        returns Integer  from Standard; 
@@ -64,6 +83,11 @@ is
            Upper : Integer  from Standard)  
        returns Integer from Standard;           
      
+    Id(me; 
+           aIndex: Integer  from Standard)  
+       returns Integer from Standard;
+       
+
     Dump(me); 
 
 fields 
@@ -72,7 +96,5 @@ fields
     myNbMax: Integer from Standard is protected; 
     mySum  : Integer from Standard is protected;   
     myIds  : Integer from Standard [8] is protected; 
-    myShapes : Shape from TopoDS [8] is protected; 
-    myUpper  : Integer from Standard is protected; 
 
 end PassKey;