X-Git-Url: http://git.salome-platform.org/gitweb/?a=blobdiff_plain;f=src%2FGEOMAlgo%2FGEOMAlgo_Tools.cdl;h=7b50b0c3969cb8ba3505a7f27ec814670fee556a;hb=aa5ce1d37feb958c51e3c5ad596c3825c3ff89a8;hp=54b4c032724185515e221ac1250de887515299cf;hpb=ca429d817a18d6acc571443f6a596575dee03c2f;p=modules%2Fgeom.git

diff --git a/src/GEOMAlgo/GEOMAlgo_Tools.cdl b/src/GEOMAlgo/GEOMAlgo_Tools.cdl
index 54b4c0327..7b50b0c39 100644
--- a/src/GEOMAlgo/GEOMAlgo_Tools.cdl
+++ b/src/GEOMAlgo/GEOMAlgo_Tools.cdl
@@ -11,9 +11,10 @@ class Tools from GEOMAlgo
 
 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,
@@ -23,6 +24,10 @@ uses
 --raises
 
 is   
+    IsCompositeShape(myclass;  
+    	    aS  :Shape from TopoDS) 
+	returns Boolean from Standard;    
+
     RefineSDShapes(myclass; 
     	    aMSD:out IndexedDataMapOfPassKeyListOfShape from GEOMAlgo; 
     	    aTol:Real from Standard; 
@@ -83,6 +88,7 @@ is
     IsUPeriodic(myclass;  
     	    aS:Surface from Geom) 
     	returns Boolean from Standard;   
+
 --fields
 
 end Tools;