0024023: Revamp the OCCT Handle -- downcast (automatic)

[occt.git] / src / TNaming / TNaming_DeltaOnModification.cxx

diff --git a/src/TNaming/TNaming_DeltaOnModification.cxx b/src/TNaming/TNaming_DeltaOnModification.cxx
old mode 100755 (executable)
new mode 100644 (file)
index 7f4e147..14b8c26
--- a/src/TNaming/TNaming_DeltaOnModification.cxx
+++ b/src/TNaming/TNaming_DeltaOnModification.cxx
@@ -1,8 +1,18 @@
-// File:       TNaming_DeltaOnModification.cxx
-// Created:    Wed Dec  3 17:10:50 1997
-// Author:     Yves FRICAUD
-//             <yfr@claquox.paris1.matra-dtv.fr>
-
+// Created on: 1997-12-03
+// Created by: Yves FRICAUD
+// Copyright (c) 1997-1999 Matra Datavision
+// Copyright (c) 1999-2014 OPEN CASCADE SAS
+//
+// This file is part of Open CASCADE Technology software library.
+//
+// This library is free software; you can redistribute it and/or modify it under
+// the terms of the GNU Lesser General Public License version 2.1 as published
+// by the Free Software Foundation, with special exception defined in the file
+// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
+// distribution for complete text of the license and disclaimer of any warranty.
+//
+// Alternatively, this file may be used under the terms of Open CASCADE
+// commercial license or contractual agreement.
 
 #include <TNaming_DeltaOnModification.ixx>
 #include <TNaming_Iterator.hxx>
@@ -66,6 +76,7 @@ static void LoadNamedShape (TNaming_Builder& B,
       B.Generated(NS);
       break;
     }
+  case TNaming_REPLACE: // for compatibility
   case TNaming_GENERATED :
     {
       B.Generated(OS,NS);
@@ -86,11 +97,6 @@ static void LoadNamedShape (TNaming_Builder& B,
       B.Select(NS,OS);
       break;
     }
-  case TNaming_REPLACE :
-    {
-      B.Replace(OS,NS);
-      break;
-    }
   }
 }
 
@@ -103,7 +109,7 @@ void TNaming_DeltaOnModification::Apply()
 {
 
   Handle(TDF_Attribute) TDFAttribute = Attribute();
-  Handle(TNaming_NamedShape) NS = (*((Handle(TNaming_NamedShape)*)&TDFAttribute));
+  Handle(TNaming_NamedShape) NS = Handle(TNaming_NamedShape)::DownCast (TDFAttribute);
   
 
   // If there is no attribute, reinsert the previous. Otherwise a new one