Fix regression: storeViewParameters() does not work for OCC view

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

diff --git a/src/GEOMAlgo/GEOMAlgo_Tools.cdl b/src/GEOMAlgo/GEOMAlgo_Tools.cdl
index 54b4c032724185515e221ac1250de887515299cf..e44936b6bddad1b9b868599a3081f85826946a96 100644 (file)
--- a/src/GEOMAlgo/GEOMAlgo_Tools.cdl
+++ b/src/GEOMAlgo/GEOMAlgo_Tools.cdl
@@ -1,30 +1,53 @@
+--  Copyright (C) 2007-2010  CEA/DEN, EDF R&D, OPEN CASCADE
+--
+--  Copyright (C) 2003-2007  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_Tools.cdl
 -- Created:    Mon Dec  6 11:26:02 2004
 -- Author:     Peter KURNEV
---             <pkv@irinox>
----Copyright:   Matra Datavision 2004
-
-
+--
 class Tools from GEOMAlgo 
 
        ---Purpose: 
 
 uses    
     Pnt from gp, 
-    Surface from Geom,  
-    Edge from TopoDS, 
-    Face from TopoDS, 
+    Surface from Geom, 
+    ShapeEnum from TopAbs,  
+    Edge  from TopoDS, 
+    Face  from TopoDS, 
     Shape from TopoDS,
     ListOfShape from TopTools,  
     IndexedDataMapOfShapeListOfShape from TopTools,
     Context from IntTools, 
-    IndexedDataMapOfPassKeyListOfShape from GEOMAlgo 
+    IndexedDataMapOfPassKeyShapeListOfShape from GEOMAlgo  --qft 
     
 --raises
 
 is   
+    IsCompositeShape(myclass;  
+           aS  :Shape from TopoDS) 
+       returns Boolean from Standard;    
+
     RefineSDShapes(myclass; 
-           aMSD:out IndexedDataMapOfPassKeyListOfShape from GEOMAlgo; 
+           aMSD:out IndexedDataMapOfPassKeyShapeListOfShape from GEOMAlgo; --qft
            aTol:Real from Standard; 
            aCtx:out Context from IntTools) 
        returns Integer from Standard;
@@ -83,6 +106,10 @@ is
     IsUPeriodic(myclass;  
            aS:Surface from Geom) 
        returns Boolean from Standard;   
+
+    CorrectWires(myclass; 
+           aS  :Shape from TopoDS) 
+       returns Boolean from Standard; 
 --fields
 
 end Tools;