OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-06-30 12:14:08 +03:00
Code

0024822: Solve selection fails after copying

Browse Source 
The method ::Paste() copies myIndex now.
Test case for issue CR24822
This commit is contained in:
vro 2014-04-17 16:18:38 +04:00 committed by apn
parent 46aed280cc
commit f18ccc8cd6
2 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/TNaming/TNaming_Name.cxx
View File

@ -308,7 +308,7 @@ TopAbs_ShapeEnum TNaming_Name::ShapeType() const
} }
//======================================================================= //=======================================================================
//function : Append //function : Paste
//purpose : //purpose :
//======================================================================= //=======================================================================
@ -318,6 +318,7 @@ void TNaming_Name::Paste (TNaming_Name& into,
into.myType = myType; into.myType = myType;
into.myShapeType = myShapeType; into.myShapeType = myShapeType;
into.myShape = myShape; into.myShape = myShape;
into.myIndex = myIndex;
into.myArgs.Clear(); into.myArgs.Clear();
// into.myOrientation = myOrientation; // into.myOrientation = myOrientation;
Handle(TNaming_NamedShape) NS; Handle(TNaming_NamedShape) NS;

23
tests/bugs/caf/bug24822 Normal file
View File

@ -0,0 +1,23 @@
puts "=========="
puts "OCC24822"
puts "=========="
puts ""
###################################################
# Solve selection fails after copying
###################################################
restore [locate_data_file bug24822_face.brep] f
explode f w
NewDocument D XmlOcaf
ImportShape D 0:1 f
SelectShape D 0:2 f_1 f
SolveSelection D 0:2
CopyLabel D 0:2 0:3
if [catch { SolveSelection D 0:3 } ] {
puts "Error: Solve selection fails after copying"
} else {
puts "OK: Solve selection is good after copying"
}