From 8dee83b0f34237ace6e0d45caab468751a37b148 Mon Sep 17 00:00:00 2001
From: vro <vro@opencascade.com>
Date: Thu, 17 Feb 2022 08:35:26 +0300
Subject: [PATCH] 0032840: Application Framework, copying of a scaled shape
 fails

A flag not to raise an exception is set for a copying shape. A reason: if a shape is already in the model, the user should have an opportunity to copy it.

Modified files:
TNaming_CopyShape.cxx, the method Translate(). A false-flag is used on copying of location of the shape.
---
 src/TNaming/TNaming_CopyShape.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/TNaming/TNaming_CopyShape.cxx b/src/TNaming/TNaming_CopyShape.cxx
index 75da8c2afc..4ebb16a607 100644
--- a/src/TNaming/TNaming_CopyShape.cxx
+++ b/src/TNaming/TNaming_CopyShape.cxx
@@ -128,7 +128,7 @@ void TNaming_CopyShape::Translate( const TopoDS_Shape& aShape,
   }
   
   aResult.Orientation(aShape.Orientation());
-  aResult.Location(TNaming_CopyShape::Translate(aShape.Location(), aMap));
+  aResult.Location(TNaming_CopyShape::Translate(aShape.Location(), aMap), false);
   TrTool->UpdateShape(aShape,aResult);
 // #ifdef OCCT_DEBUG
 //     if(fShar) {