Porting to OCCT development version: Standard_PI -> M_PI

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

diff --git a/src/GEOMAlgo/GEOMAlgo_Gluer.cdl b/src/GEOMAlgo/GEOMAlgo_Gluer.cdl
index a8c778b6ebf11cf04c2e6f2e6314e151616d20ce..0f63c2ea32dcba88fd9a1a479b8bf6124a3534de 100755 (executable)
--- a/src/GEOMAlgo/GEOMAlgo_Gluer.cdl
+++ b/src/GEOMAlgo/GEOMAlgo_Gluer.cdl
@@ -1,10 +1,30 @@
+-- Copyright (C) 2007-2011  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_Gluer.cdl
 -- Created:    Sat Dec 04 12:41:32 2004
 -- Author:     Peter KURNEV
 --             <peter@PREFEX>
----Copyright:   Matra Datavision 2004
-
-
+--
 class Gluer from GEOMAlgo  
     inherits ShapeAlgo from GEOMAlgo
 
@@ -20,7 +40,7 @@ uses
     DataMapOfShapeShape from TopTools,
     DataMapOfShapeListOfShape from TopTools, 
     Context from IntTools, 
-    PassKey from GEOMAlgo
+    PassKeyShape from GEOMAlgo
 
 --raises
 
@@ -87,12 +107,12 @@ is
  
     EdgePassKey(me:out; 
            aE:Edge from TopoDS;  
-           aPK:out PassKey from GEOMAlgo) 
+           aPK:out PassKeyShape from GEOMAlgo)  
        is protected;     
    
     FacePassKey(me:out; 
            aF:Face from TopoDS;  
-           aPK:out PassKey from GEOMAlgo) 
+           aPK:out PassKeyShape from GEOMAlgo)  
        is protected; 
         
     MakeVertex(me:out;