0029743: Samples - Inspector tool - crash by selecting TNaming_UsedShapes tree item

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

diff --git a/src/TNaming/TNaming_NamedShape.cxx b/src/TNaming/TNaming_NamedShape.cxx
index 38fd04d..eca6c5a 100644 (file)
--- a/src/TNaming/TNaming_NamedShape.cxx
+++ b/src/TNaming/TNaming_NamedShape.cxx
@@ -722,6 +722,7 @@ void TNaming_Builder::Delete(const TopoDS_Shape& oldShape)
   TNaming_Node*     pdn = new TNaming_Node(pos,pns);   
   myAtt->Add(pdn);
   UpdateFirstUseOrNextSameShape (pos,pdn);
+  UpdateFirstUseOrNextSameShape (pns,pdn);
 }
 
 //=======================================================================