IPAL21354 Deleting of referenced father object doesn't work.

diff --git a/src/GEOMToolsGUI/GEOMToolsGUI.cxx b/src/GEOMToolsGUI/GEOMToolsGUI.cxx
index 521e92e1bf7111595b75b0059c9abaa7550b7b95..8aa0fd14b2e3a6ae245a97a1a69af2c78dba6173 100644 (file)
--- a/src/GEOMToolsGUI/GEOMToolsGUI.cxx
+++ b/src/GEOMToolsGUI/GEOMToolsGUI.cxx
@@ -490,8 +490,11 @@ void GEOMToolsGUI::OnEditDelete()
        
     // check if object is reference
     _PTR(SObject) refobj;
-    if ( obj && obj->ReferencedObject( refobj ) )
-      continue; // skip references
+    if ( obj && obj->ReferencedObject( refobj ) ) {
+      // get the main object by reference IPAL 21354
+      obj = refobj;
+      entry = obj->GetID().c_str();
+    }
     // ...
     QString aName = obj->GetName().c_str();
     if ( entry == geomComp ) {