src/GEOMToolsGUI/GEOMToolsGUI.cxx

   1 // Copyright (C) 2007-2024  CEA, EDF, OPEN CASCADE
   2 //
   3 // Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   5 //
   6 // This library is free software; you can redistribute it and/or
   7 // modify it under the terms of the GNU Lesser General Public
   8 // License as published by the Free Software Foundation; either
   9 // version 2.1 of the License, or (at your option) any later version.
  10 //
  11 // This library is distributed in the hope that it will be useful,
  12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 // Lesser General Public License for more details.
  15 //
  16 // You should have received a copy of the GNU Lesser General Public
  17 // License along with this library; if not, write to the Free Software
  18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  19 //
  20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  21 //
  22
  23 // GEOM GEOMGUI : GUI for Geometry component
  24 // File   : GEOMBase_Tools.cxx
  25 // Author : Damien COQUERET, Open CASCADE S.A.S.
  26
  27 #include "GEOMToolsGUI.h"
  28 #include "GEOMToolsGUI_DeleteDlg.h"
  29
  30 #include <GeometryGUI.h>
  31 #include "GeometryGUI_Operations.h"
  32 #include <GEOMBase.h>
  33 #include <GEOM_Operation.h>
  34 #include <GEOM_Displayer.h>
  35
  36 #include <SUIT_Session.h>
  37 #include <SUIT_OverrideCursor.h>
  38 #include <SUIT_MessageBox.h>
  39 #include <SUIT_Tools.h>
  40 #include <SUIT_FileDlg.h>
  41 #include <SUIT_Desktop.h>
  42 #include <SUIT_ViewModel.h>
  43 #include <SUIT_ViewManager.h>
  44
  45 #include <SalomeApp_Application.h>
  46 #include <SalomeApp_Study.h>
  47 #include <LightApp_SelectionMgr.h>
  48 #include <GEOMImpl_Types.hxx>
  49
  50 #include <SALOME_ListIO.hxx>
  51 #include <SALOME_Prs.h>
  52
  53 // QT Includes
  54 #include <QApplication>
  55 #include <QMap>
  56 #include <QRegExp>
  57
  58 // OCCT Includes
  59 #include <TCollection_AsciiString.hxx>
  60
  61 typedef QMap<QString, QString> FilterMap;
  62 static QString lastUsedFilter;
  63
  64 //=======================================================================
  65 // function : getParentComponent
  66 // purpose  : Get object's parent component entry
  67 //=======================================================================
  68 static QString getParentComponent( _PTR( SObject ) obj )
  69 {
  70   if ( obj ) {
  71     _PTR(SComponent) comp = obj->GetFatherComponent();
  72     if ( comp )
  73       return QString( comp->GetID().c_str() );
  74   }
  75   return QString();
  76 }
  77
  78 //=====================================================================================
  79 // function : inUse
  80 // purpose  : check if the object(s) passed as the second arguments are used
  81 //            by the other objects in the study
  82 //=====================================================================================
  83 static bool inUse( const QString& component, const QMap<QString,QString>& objects )
  84 {
  85   _PTR(Study) study = SalomeApp_Application::getStudy();
  86   _PTR(SObject) comp = study->FindObjectID( component.toLatin1().data() );
  87   if ( !comp )
  88     return false;
  89
  90   // collect all GEOM objects being deleted
  91   QMap<QString, GEOM::GEOM_BaseObject_var> gobjects;
  92   QMap<QString, QString>::ConstIterator oit;
  93   std::list<_PTR(SObject)> aSelectedSO;
  94   for ( oit = objects.begin(); oit != objects.end(); ++oit )
  95   {
  96     _PTR(SObject) so = study->FindObjectID( oit.key().toUtf8().data() );
  97     if ( !GeometryGUI::IsInGeomComponent( so ))
  98       continue;
  99     aSelectedSO.push_back(so);
 100     CORBA::Object_var        corbaObj_rem = GeometryGUI::ClientSObjectToObject( so );
 101     GEOM::GEOM_BaseObject_var geomObj_rem = GEOM::GEOM_BaseObject::_narrow( corbaObj_rem );
 102     if ( ! CORBA::is_nil( geomObj_rem ))
 103       gobjects.insert( oit.key(), geomObj_rem );
 104   }
 105
 106   // Search References with other Modules
 107   std::list< _PTR(SObject) >::iterator itSO = aSelectedSO.begin();
 108   for ( ; itSO != aSelectedSO.end(); ++itSO )
 109   {
 110     std::vector<_PTR(SObject)> aReferences = study->FindDependances( *itSO  );
 111     int aRefLength = aReferences.size();
 112     for ( int i = 0; i < aRefLength; i++ )
 113     {
 114       _PTR(SObject) firstSO( aReferences[i] );
 115       _PTR(SComponent) aComponent = firstSO->GetFatherComponent();
 116       QString type = aComponent->ComponentDataType().c_str();
 117       if ( type == "SMESH" )
 118         return true;
 119     }
 120   }
 121
 122   // browse through all GEOM data tree to find an object with is not deleted and depends
 123   // on a deleted object
 124   _PTR(ChildIterator) it ( study->NewChildIterator( comp ) );
 125   for ( it->InitEx( true ); it->More(); it->Next() )
 126   {
 127     _PTR(SObject) child   = it->Value();
 128     QString       childID = child->GetID().c_str();
 129     bool deleted = objects.contains( childID );
 130     if ( deleted )
 131       continue; // deleted object
 132
 133     CORBA::Object_var    corbaObj = GeometryGUI::ClientSObjectToObject( child );
 134     GEOM::GEOM_Object_var geomObj = GEOM::GEOM_Object::_narrow( corbaObj );
 135     if ( CORBA::is_nil( geomObj ) )
 136       continue;
 137
 138     GEOM::ListOfGBO_var dep = geomObj->GetDependency(); // child depends on dep
 139     for( CORBA::ULong i = 0; i < dep->length(); i++ )
 140     {
 141       CORBA::String_var id = dep[i]->GetStudyEntry();
 142       bool depends = objects.contains( id.in() ); // depends on deleted
 143
 144       QMap<QString, GEOM::GEOM_BaseObject_var>::Iterator git;
 145       for ( git = gobjects.begin(); git != gobjects.end() && ( !depends || !deleted ); ++git )
 146       {
 147         depends = depends || dep[i]->_is_equivalent( *git );
 148         deleted = deleted || git.key() == childID ;//geomObj->_is_equivalent( *git )
 149       }
 150       if ( depends && !deleted )
 151         return true;
 152     }
 153   }
 154   return false;
 155 }
 156
 157 //=======================================================================
 158 // function : getGeomChildrenAndFolders
 159 // purpose  : Get direct (1-level) GEOM objects under each folder, sub-folder, etc. and these folders itself
 160 //=======================================================================
 161 static void getGeomChildrenAndFolders( _PTR(SObject) theSO,
 162                                        QMap<QString,QString>& geomObjList,
 163                                        QMap<QString,QString>& folderList ) {
 164   if ( !theSO ) return;
 165   _PTR(Study) aStudy = SalomeApp_Application::getStudy();
 166   if ( !aStudy ) return;
 167   _PTR(UseCaseBuilder) aUseCaseBuilder = aStudy->GetUseCaseBuilder();
 168
 169   bool isFolder = false;
 170   _PTR(GenericAttribute) anAttr;
 171   if ( theSO->FindAttribute(anAttr, "AttributeLocalID") ) {
 172     _PTR(AttributeLocalID) aLocalID( anAttr );
 173     isFolder = aLocalID->Value() == 999;
 174   }
 175   QString anEntry = theSO->GetID().c_str();
 176   QString aName = theSO->GetName().c_str();
 177   if ( isFolder ) {
 178     folderList.insert( anEntry, aName );
 179     _PTR(UseCaseIterator) ucit ( aUseCaseBuilder->GetUseCaseIterator( theSO ) );
 180     for ( ucit->Init( false ); ucit->More(); ucit->Next() ) {
 181       getGeomChildrenAndFolders( ucit->Value(), geomObjList, folderList );
 182     }
 183   } else {
 184     geomObjList.insert( anEntry, aName );
 185   }
 186 }
 187
 188 //=======================================================================
 189 // function : GEOMToolsGUI()
 190 // purpose  : Constructor
 191 //=======================================================================
 192 GEOMToolsGUI::GEOMToolsGUI( GeometryGUI* parent )
 193   : GEOMGUI( parent )
 194 {
 195 }
 196
 197 //=======================================================================
 198 // function : ~GEOMToolsGUI()
 199 // purpose  : Destructor
 200 //=======================================================================
 201 GEOMToolsGUI::~GEOMToolsGUI()
 202 {
 203 }
 204
 205 //=======================================================================
 206 // function : OnGUIEvent()
 207 // purpose  :
 208 //=======================================================================
 209 bool GEOMToolsGUI::OnGUIEvent(int theCommandID, SUIT_Desktop* /*parent*/)
 210 {
 211   getGeometryGUI()->EmitSignalDeactivateDialog();
 212
 213   switch ( theCommandID ) {
 214   case GEOMOp::OpDelete:         // EDIT - DELETE
 215     OnEditDelete();
 216     break;
 217 #ifndef DISABLE_PYCONSOLE
 218   case GEOMOp::OpCheckGeom:      // TOOLS - CHECK GEOMETRY
 219     OnCheckGeometry();
 220     break;
 221 #endif
 222   case GEOMOp::OpSelectVertex:   // POPUP - SELECT ONLY - VERTEX
 223     OnSelectOnly( GEOM_POINT );
 224     break;
 225   case GEOMOp::OpSelectEdge:     // POPUP - SELECT ONLY - EDGE
 226     OnSelectOnly( GEOM_EDGE );
 227     break;
 228   case GEOMOp::OpSelectWire:     // POPUP - SELECT ONLY - WIRE
 229     OnSelectOnly( GEOM_WIRE );
 230     break;
 231   case GEOMOp::OpSelectFace:     // POPUP - SELECT ONLY - FACE
 232     OnSelectOnly( GEOM_FACE );
 233     break;
 234   case GEOMOp::OpSelectShell:    // POPUP - SELECT ONLY - SHELL
 235     OnSelectOnly( GEOM_SHELL );
 236     break;
 237   case GEOMOp::OpSelectSolid:    // POPUP - SELECT ONLY - SOLID
 238     OnSelectOnly( GEOM_SOLID );
 239     break;
 240   case GEOMOp::OpSelectCompound: // POPUP - SELECT ONLY - COMPOUND
 241     OnSelectOnly( GEOM_COMPOUND );
 242     break;
 243   case GEOMOp::OpSelectAll:      // POPUP - SELECT ONLY - SELECT ALL
 244     OnSelectOnly( GEOM_ALLOBJECTS );
 245     break;
 246   case GEOMOp::OpDeflection:     // POPUP - DEFLECTION ANGLE
 247     OnDeflection();
 248     break;
 249   case GEOMOp::OpColor:          // POPUP - COLOR
 250     OnColor();
 251     break;
 252   case GEOMOp::OpSetTexture:     // POPUP - TEXTURE
 253     OnTexture();
 254     break;
 255   case GEOMOp::OpTransparency:   // POPUP - TRANSPARENCY
 256     OnTransparency();
 257     break;
 258   case GEOMOp::OpIncrTransparency: // SHORTCUT   - INCREASE TRANSPARENCY
 259     OnChangeTransparency( true );
 260     break;
 261   case GEOMOp::OpDecrTransparency: // SHORTCUT   - DECREASE TRANSPARENCY
 262     OnChangeTransparency( false );
 263     break;
 264   case GEOMOp::OpIsos:           // POPUP - ISOS
 265     OnNbIsos();
 266     break;
 267   case GEOMOp::OpIncrNbIsos:     // SHORTCUT   - INCREASE NB ISOLINES
 268     OnNbIsos( INCR );
 269     break;
 270   case GEOMOp::OpDecrNbIsos:     // SHORTCUT   - DECREASE NB ISOLINES
 271     OnNbIsos( DECR );
 272     break;
 273   case GEOMOp::OpMaterialProperties: // POPUP - MATERIAL PROPERTIES
 274     OnMaterialProperties();
 275     break;
 276   case GEOMOp::OpPredefMaterCustom:  // POPUP  - MATERIAL PROPERTIES - CUSTOM...
 277     OnMaterialProperties();
 278     break;
 279   case GEOMOp::OpMaterialsLibrary:    // POPUP MENU - MATERIAL PROPERTIES
 280     OnMaterialsLibrary();
 281     break;
 282   case GEOMOp::OpAutoColor:      // POPUP - AUTO COLOR
 283     OnAutoColor();
 284     break;
 285   case GEOMOp::OpNoAutoColor:    // POPUP - DISABLE AUTO COLOR
 286     OnDisableAutoColor();
 287     break;
 288   case GEOMOp::OpDiscloseChildren:   // POPUP - SHOW CHILDREN
 289   case GEOMOp::OpConcealChildren:   // POPUP - HIDE CHILDREN
 290     OnDiscloseConcealChildren( theCommandID == GEOMOp::OpDiscloseChildren );
 291     break;
 292   case GEOMOp::OpPointMarker:    // POPUP - POINT MARKER
 293     OnPointMarker();
 294     break;
 295   case GEOMOp::OpUnpublishObject:// POPUP - UNPUBLISH
 296     OnUnpublishObject();
 297     break;
 298   case GEOMOp::OpPublishObject:// GEOM ROOT OBJECT - POPUP - PUBLISH
 299     OnPublishObject();
 300     break;
 301   case GEOMOp::OpEdgeWidth:
 302     OnEdgeWidth();
 303     break;
 304   case GEOMOp::OpIsosWidth:
 305     OnIsosWidth();
 306     break;
 307   case GEOMOp::OpBringToFront:
 308     OnBringToFront();
 309     break;
 310   case GEOMOp::OpClsBringToFront:
 311     OnClsBringToFront();
 312      break;
 313   case GEOMOp::OpCreateFolder:
 314     OnCreateFolder();
 315      break;
 316   case GEOMOp::OpSortChildren:
 317     OnSortChildren();
 318     break;
 319 #ifndef DISABLE_GRAPHICSVIEW
 320   case GEOMOp::OpShowDependencyTree:
 321     OnShowDependencyTree();
 322      break;
 323 #endif
 324   case GEOMOp::OpReduceStudy:
 325     OnReduceStudy();
 326     break;
 327   default:
 328     SUIT_Session::session()->activeApplication()->putInfo(tr("GEOM_PRP_COMMAND").arg(theCommandID));
 329     break;
 330   }
 331   return true;
 332 }
 333
 334 //=======================================================================
 335 // function : OnGUIEvent()
 336 // purpose  :
 337 //=======================================================================
 338 bool GEOMToolsGUI::OnGUIEvent(int theCommandID, SUIT_Desktop* /*parent*/, const QVariant& theParam )
 339 {
 340   getGeometryGUI()->EmitSignalDeactivateDialog();
 341
 342   switch ( theCommandID ) {
 343   case GEOMOp::OpPredefMaterial:         // POPUP MENU - MATERIAL PROPERTIES - <SOME MATERIAL>
 344     OnSetMaterial( theParam );
 345     break;
 346   default:
 347     SUIT_Session::session()->activeApplication()->putInfo(tr("GEOM_PRP_COMMAND").arg(theCommandID));
 348     break;
 349   }
 350   return true;
 351 }
 352
 353 //===============================================================================
 354 // function : OnEditDelete()
 355 // purpose  :
 356 //===============================================================================
 357 void GEOMToolsGUI::OnEditDelete()
 358 {
 359   SALOME_ListIO selected;
 360   SalomeApp_Application* app =
 361     dynamic_cast< SalomeApp_Application* >( SUIT_Session::session()->activeApplication() );
 362   if ( !app )
 363     return;
 364
 365   LightApp_SelectionMgr* aSelMgr = app->selectionMgr();
 366   if ( !aSelMgr )
 367     return;
 368
 369   // get selection
 370   aSelMgr->selectedObjects( selected, "ObjectBrowser", false );
 371   if ( selected.IsEmpty() )
 372     return;
 373
 374   _PTR(Study) aStudy = SalomeApp_Application::getStudy();
 375   _PTR(UseCaseBuilder) aUseCaseBuilder = aStudy->GetUseCaseBuilder();
 376
 377   // check if study is locked
 378   if ( _PTR(AttributeStudyProperties)( aStudy->GetProperties() )->IsLocked() ) {
 379     SUIT_MessageBox::warning( app->desktop(),
 380                               tr("WRN_WARNING"),
 381                               tr("WRN_STUDY_LOCKED") );
 382     return; // study is locked
 383   }
 384
 385   // get GEOM component
 386   CORBA::String_var geomIOR = app->orb()->object_to_string( GeometryGUI::GetGeomGen() );
 387   QString geomComp = getParentComponent( aStudy->FindObjectIOR( geomIOR.in() ) );
 388
 389   // check each selected object: if belongs to GEOM, if not reference...
 390   QMap<QString,QString> toBeDeleted;
 391   QMap<QString,QString> allDeleted;
 392   QMap<QString,QString> toBeDelFolders;
 393   bool isComponentSelected = false;
 394
 395   for ( SALOME_ListIteratorOfListIO It( selected ); It.More(); It.Next() ) {
 396     Handle(SALOME_InteractiveObject) anIObject = It.Value();
 397     if ( !anIObject->hasEntry() )
 398       continue; // invalid object
 399     // ...
 400     QString entry = anIObject->getEntry();
 401     _PTR(SObject) obj = aStudy->FindObjectID( entry.toUtf8().data() );
 402     // check parent component
 403     QString parentComp = getParentComponent( obj );
 404     if ( parentComp != geomComp )  {
 405       SUIT_MessageBox::warning( app->desktop(),
 406                                 QObject::tr("ERR_ERROR"),
 407                                 QObject::tr("NON_GEOM_OBJECTS_SELECTED").arg( getGeometryGUI()->moduleName() ) );
 408       return; // not GEOM object selected
 409     }
 410
 411     ///////////////////////////////////////////////////////
 412     // if GEOM component is selected, so skip other checks
 413     if ( isComponentSelected ) continue;
 414     ///////////////////////////////////////////////////////
 415
 416     // check if object is reference
 417     _PTR(SObject) refobj;
 418     if ( obj && obj->ReferencedObject( refobj ) ) {
 419       // get the main object by reference IPAL 21354
 420       obj = refobj;
 421       entry = obj->GetID().c_str();
 422     }
 423     // ...
 424     QString aName = obj->GetName().c_str();
 425     if ( entry == geomComp ) {
 426       // GEOM component is selected, skip other checks
 427       isComponentSelected = true;
 428       continue;
 429     }
 430     // all sub-objects of folder have to be deleted
 431     getGeomChildrenAndFolders( obj, toBeDeleted, toBeDelFolders );
 432     allDeleted.insert( entry, aName ); // skip GEOM component
 433     // browse through all children recursively
 434     _PTR(UseCaseIterator) it ( aUseCaseBuilder->GetUseCaseIterator( obj ) );
 435     for ( it->Init( true ); it->More(); it->Next() ) {
 436       _PTR(SObject) child( it->Value() );
 437       if ( child && child->ReferencedObject( refobj ) )
 438         continue; // skip references
 439       aName = child->GetName().c_str();
 440       if ( !aName.isEmpty() )
 441         allDeleted.insert( child->GetID().c_str(), aName );
 442     }
 443   }
 444
 445   // is there is anything to delete?
 446   if ( !isComponentSelected && allDeleted.count() <= 0 )
 447     return; // nothing to delete
 448
 449   // show confirmation dialog box
 450   GEOMToolsGUI_DeleteDlg dlg( app->desktop(), allDeleted, isComponentSelected );
 451   if ( !dlg.exec() )
 452     return; // operation is cancelled by user
 453
 454   SUIT_OverrideCursor wc;
 455
 456   // get currently opened views
 457   QList<SALOME_View*> views;
 458   SALOME_View* view;
 459   ViewManagerList vmans = app->viewManagers();
 460   SUIT_ViewManager* vman;
 461   foreach ( vman, vmans ) {
 462     SUIT_ViewModel* vmod = vman->getViewModel();
 463     view = dynamic_cast<SALOME_View*> ( vmod ); // must work for OCC and VTK views
 464     if ( view )
 465       views.append( view );
 466   }
 467
 468   _PTR(StudyBuilder) aStudyBuilder (aStudy->NewBuilder());
 469   GEOM_Displayer disp;
 470   bool toUpdateColorScale = disp.SetUpdateColorScale( false ); // IPAL54049
 471
 472   if ( isComponentSelected ) {
 473     // GEOM component is selected: delete all objects recursively
 474     _PTR(SObject) comp = aStudy->FindObjectID( geomComp.toUtf8().data() );
 475     if ( !comp )
 476       return;
 477     _PTR(ChildIterator) it ( aStudy->NewChildIterator( comp ) );
 478     // remove top-level objects only
 479     for ( it->InitEx( false ); it->More(); it->Next() ) {
 480       _PTR(SObject) child( it->Value() );
 481       // remove object from GEOM engine
 482       removeObjectWithChildren( child, views, &disp );
 483       // remove object from study
 484       aStudyBuilder->RemoveObjectWithChildren( child );
 485       // remove object from use case tree
 486       aUseCaseBuilder->Remove( child );
 487     }
 488   }
 489   else {
 490     // GEOM component is not selected: check if selected objects are in use
 491     if ( inUse( geomComp, allDeleted ) &&
 492          SUIT_MessageBox::question( app->desktop(),
 493                                     QObject::tr("WRN_WARNING"),
 494                                     QObject::tr("DEP_OBJECT"),
 495                                     SUIT_MessageBox::Yes | SUIT_MessageBox::No,
 496                                     SUIT_MessageBox::No ) != SUIT_MessageBox::Yes ) {
 497       return; // object(s) in use
 498     }
 499     // ... and then delete all objects
 500     QMap<QString, QString>::Iterator it;
 501     for ( it = toBeDeleted.begin(); it != toBeDeleted.end(); ++it ) {
 502       _PTR(SObject) obj ( aStudy->FindObjectID( it.key().toUtf8().data() ) );
 503       // remove object from GEOM engine
 504       removeObjectWithChildren( obj, views, &disp );
 505       // remove objects from study
 506       aStudyBuilder->RemoveObjectWithChildren( obj );
 507       // remove object from use case tree
 508       aUseCaseBuilder->Remove( obj );
 509     }
 510     // ... and then delete all folders
 511     for ( it = toBeDelFolders.begin(); it != toBeDelFolders.end(); ++it ) {
 512       _PTR(SObject) obj ( aStudy->FindObjectID( it.key().toUtf8().data() ) );
 513       // remove object from GEOM engine
 514       removeObjectWithChildren( obj, views, &disp );
 515       // remove objects from study
 516       aStudyBuilder->RemoveObjectWithChildren( obj );
 517       // remove object from use case tree
 518       aUseCaseBuilder->Remove( obj );
 519     }
 520   }
 521
 522   disp.SetUpdateColorScale( toUpdateColorScale ); // IPAL54049
 523   selected.Clear();
 524   aSelMgr->setSelectedObjects( selected );
 525   getGeometryGUI()->updateObjBrowser();
 526   app->updateActions(); //SRN: To update a Save button in the toolbar
 527 }
 528
 529 //=====================================================================================
 530 // function : RemoveObjectWithChildren
 531 // purpose  : used by OnEditDelete() method
 532 //=====================================================================================
 533 void GEOMToolsGUI::removeObjectWithChildren(_PTR(SObject) obj,
 534                                             QList<SALOME_View*> views,
 535                                             GEOM_Displayer* disp)
 536 {
 537   _PTR(Study) aStudy = SalomeApp_Application::getStudy();
 538   // iterate through all children of obj
 539   for (_PTR(ChildIterator) it (aStudy->NewChildIterator(obj)); it->More(); it->Next()) {
 540   // for (_PTR(UseCaseIterator) it (aStudy->GetUseCaseBuilder()->GetUseCaseIterator(obj)); it->More(); it->Next()) {
 541     _PTR(SObject) child (it->Value());
 542     removeObjectWithChildren(child, views, disp);
 543   }
 544
 545   // erase object and remove it from engine
 546   _PTR(GenericAttribute) anAttr;
 547   if (obj->FindAttribute(anAttr, "AttributeIOR")) {
 548     _PTR(AttributeIOR) anIOR (anAttr);
 549
 550     SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( SUIT_Session::session()->activeApplication()->activeStudy() );
 551
 552     // Delete shape in Client
 553     const TCollection_AsciiString ASCIor ((char*)anIOR->Value().c_str());
 554     getGeometryGUI()->GetShapeReader().RemoveShapeFromBuffer(ASCIor);
 555
 556     CORBA::Object_var corbaObj = GeometryGUI::ClientSObjectToObject(obj);
 557     GEOM::GEOM_Object_var geomObj = GEOM::GEOM_Object::_narrow( corbaObj );
 558     if (!CORBA::is_nil(geomObj)) {
 559
 560       //Remove visual properties of the object
 561       appStudy->removeObjectProperties(obj->GetID().c_str());
 562
 563       // Erase graphical object
 564       QListIterator<SALOME_View*> it( views );
 565       while ( it.hasNext() )
 566         if ( SALOME_View* view = it.next() )
 567           disp->Erase(geomObj, true, true, view);
 568
 569       // Remove object from Engine
 570       // We can't directly remove object from engine. All we can do is to unpublish the object
 571       // from the study. Another client could be using the object.
 572       // Unpublishing is done just after in aStudyBuilder->RemoveObjectWithChildren( child );
 573       //GeometryGUI::GetGeomGen()->RemoveObject( geomObj );
 574     }
 575   }
 576 }
 577
 578 //=================================================================================
 579 // function : deactivate()
 580 // purpose  : Called when GEOM component is deactivated
 581 //=================================================================================
 582 void GEOMToolsGUI::deactivate()
 583 {
 584   SalomeApp_Application* app = dynamic_cast< SalomeApp_Application* >( SUIT_Session::session()->activeApplication() );
 585   if ( app ) {
 586     GEOM_Displayer aDisp;
 587     aDisp.GlobalSelection();
 588     getGeometryGUI()->setLocalSelectionMode(GEOM_ALLOBJECTS);
 589   }
 590 }
 591
 592 //=====================================================================================
 593 // EXPORTED METHODS
 594 //=====================================================================================
 595 extern "C"
 596 {
 597 #ifdef WIN32
 598   __declspec( dllexport )
 599 #endif
 600   GEOMGUI* GetLibGUI( GeometryGUI* parent )
 601   {
 602     return new GEOMToolsGUI( parent );
 603   }
 604 }