Salome HOME
*** empty log message ***
[modules/geom.git] / src / GEOMToolsGUI / GEOMToolsGUI.cxx
index e4aab67065924a01d7c15ce3d335ff6e9acd06da..873bc9faac9c0ab1da7119c1f10742ac4c15eea9 100644 (file)
-//  GEOM GEOMGUI : GUI for Geometry component
+// GEOM GEOMGUI : GUI for Geometry component
 //
-//  Copyright (C) 2003  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
-//  CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS 
-// 
-//  This library is free software; you can redistribute it and/or 
-//  modify it under the terms of the GNU Lesser General Public 
-//  License as published by the Free Software Foundation; either 
-//  version 2.1 of the License. 
-// 
-//  This library is distributed in the hope that it will be useful, 
-//  but WITHOUT ANY WARRANTY; without even the implied warranty of 
-//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU 
-//  Lesser General Public License for more details. 
-// 
-//  You should have received a copy of the GNU Lesser General Public 
-//  License along with this library; if not, write to the Free Software 
-//  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA 
-// 
-//  See http://www.opencascade.org/SALOME/ or email : webmaster.salome@opencascade.org 
+// Copyright (C) 2003  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
+// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
 //
+// This library is free software; you can redistribute it and/or
+// modify it under the terms of the GNU Lesser General Public
+// License as published by the Free Software Foundation; either
+// version 2.1 of the License.
 //
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+// Lesser General Public License for more details.
+//
+// You should have received a copy of the GNU Lesser General Public
+// License along with this library; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+//
+// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
+//
+// File   : GEOMBase_Tools.cxx
+// Author : Damien COQUERET, Open CASCADE S.A.S.
 //
-//  File   : GEOMToolsGUI.cxx
-//  Author : Damien COQUERET
-//  Module : GEOM
-//  $Header: 
 
 #include "GEOMToolsGUI.h"
 
-#include "QAD_Config.h"
-#include "QAD_FileDlg.h"
-#include "QAD_Tools.h"
-#include "QAD_MessageBox.h"
-#include "QAD_RightFrame.h"
-#include "QAD_PyEditor.h"
+#include <GeometryGUI.h>
+#include <GEOMBase.h>
+#include <GEOM_Operation.h>
+#include <GEOM_Displayer.h>
 
-#include "OCCViewer_Viewer3d.h"
-#include "VTKViewer_ViewFrame.h"
+#include <SUIT_Session.h>
+#include <SUIT_OverrideCursor.h>
+#include <SUIT_MessageBox.h>
+#include <SUIT_Tools.h>
+#include <SUIT_FileDlg.h>
+#include <SUIT_Desktop.h>
+#include <SUIT_ViewModel.h>
+#include <SUIT_ViewManager.h>
 
-#include "SALOME_ListIteratorOfListIO.hxx"
-#include "SALOMEGUI_NameDlg.h"
-#include "SALOMEGUI_ImportOperation.h"
-#include "SALOMEGUI_QtCatchCorbaException.hxx"
+#include <SalomeApp_Application.h>
+#include <SalomeApp_Study.h>
+#include <LightApp_SelectionMgr.h>
+#include <GEOMImpl_Types.hxx>
 
-#include <AIS_Drawer.hxx>
-#include <AIS_ListIteratorOfListOfInteractive.hxx>
-#include <Prs3d_IsoAspect.hxx>
+#include <SALOME_ListIO.hxx>
+#include <SALOME_ListIteratorOfListIO.hxx>
+#include <SALOME_Prs.h>
 
-#include <vtkBMPReader.h>
-#include <vtkTexture.h>
-#include <vtkTextureMapToPlane.h>
-#include <vtkTransformTextureCoords.h>
-#include <vtkDataSetMapper.h>
+// QT Includes
+#include <QApplication>
+#include <QMap>
 
-#include <qfileinfo.h>
-#include <qcolordialog.h>
-#include <qspinbox.h>
+// OCCT Includes
+#include <TCollection_AsciiString.hxx>
 
-#include "GEOMToolsGUI_NbIsosDlg.h"        // Method ISOS adjustement
-#include "GEOMToolsGUI_TransparencyDlg.h"  // Method TRANSPARENCY adjustement
+using namespace std;
 
-#include "utilities.h"
+typedef QMap<QString, QString> FilterMap;
 
-using namespace std;
+//=======================================================================
+// function : getFileName
+// purpose  : Selection of a file name for Import/Export. Returns also
+//            the selected file type code through <filter> argument.
+//=======================================================================
+static QString getFileName( QWidget*           parent,
+                           const QString&     initial,
+                           const FilterMap&   filterMap,
+                           const QString&     caption,
+                           bool               open,
+                           QString&           format )
+{
+  static QString lastUsedFilter;
+  QStringList filters;
+  for ( FilterMap::const_iterator it = filterMap.begin(); it != filterMap.end(); ++it )
+    filters.push_back( it.key() );
+
+  SUIT_FileDlg* fd = new SUIT_FileDlg( parent, open, true, true );
+  if ( !caption.isEmpty() )
+    fd->setWindowTitle( caption );
+
+  if ( !initial.isEmpty() )
+    fd->selectFile( initial );
+
+  if ( !lastUsedFilter.isEmpty() && filterMap.contains( lastUsedFilter ) )
+    fd->selectFilter( lastUsedFilter );
+
+  fd->setFilters( filters );
+
+  fd->exec();
+  QString filename = fd->selectedFile();
+  format = filterMap[fd->selectedFilter()];
+  lastUsedFilter = fd->selectedFilter();
+  delete fd;
+  qApp->processEvents();
+  return filename;
+}
 
 //=======================================================================
 // function : GEOMToolsGUI()
 // purpose  : Constructor
 //=======================================================================
-GEOMToolsGUI::GEOMToolsGUI() :
-  QObject()
+GEOMToolsGUI::GEOMToolsGUI( GeometryGUI* parent )
+: GEOMGUI( parent )
 {
-  myGeomBase = new GEOMBase();
-  myGeomGUI = GEOMContext::GetGeomGUI();
-  myGeom = myGeomGUI->myComponentGeom;
 }
 
 
@@ -88,462 +118,136 @@ GEOMToolsGUI::~GEOMToolsGUI()
 
 //=======================================================================
 // function : OnGUIEvent()
-// purpose  : 
+// purpose  :
 //=======================================================================
-bool GEOMToolsGUI::OnGUIEvent(int theCommandID, QAD_Desktop* parent)
+bool GEOMToolsGUI::OnGUIEvent(int theCommandID, SUIT_Desktop* parent)
 {
-  GEOMToolsGUI* myGEOMToolsGUI = new GEOMToolsGUI();
-  myGEOMToolsGUI->myGeomGUI->EmitSignalDeactivateDialog();
-  SALOME_Selection* Sel = SALOME_Selection::Selection(QAD_Application::getDesktop()->getActiveStudy()->getSelection());
+  getGeometryGUI()->EmitSignalDeactivateDialog();
 
-  SALOMEDS::Study_var aStudy = QAD_Application::getDesktop()->getActiveStudy()->getStudyDocument();
   switch (theCommandID)
     {
     case 31: // COPY
       {
-       myGEOMToolsGUI->OnEditCopy();
+       OnEditCopy();
        break;
       }
     case 33: // DELETE
       {
-       myGEOMToolsGUI->OnEditDelete();
+       OnEditDelete();
        break;
       }
     case 111: // IMPORT BREP
+    case 112: // IMPORT IGES
+    case 113: // IMPORT STEP
       {
-       myGEOMToolsGUI->Import(theCommandID);
+       Import();
        break;
       }
-    case 112: // IMPORT IGES
+    case 121: // EXPORT BREP
+    case 122: // EXPORT IGES
+    case 123: // EXPORT STEP
       {
-       myGEOMToolsGUI->Import(theCommandID);
+       Export();
        break;
       }
-    case 113: // IMPORT STEP
+    case 2171: // POPUP VIEWER - SELECT ONLY - VERTEX
       {
-       myGEOMToolsGUI->Import(theCommandID);
+       OnSelectOnly( GEOM_POINT );
        break;
       }
-    case 121: // EXPORT BREP
+    case 2172: // POPUP VIEWER - SELECT ONLY - EDGE
       {
-       myGEOMToolsGUI->Export(theCommandID);
+       OnSelectOnly( GEOM_EDGE );
        break;
       }
-    case 122: // EXPORT IGES
+    case 2173: // POPUP VIEWER - SELECT ONLY - WIRE
       {
-       myGEOMToolsGUI->Export(theCommandID);
+       OnSelectOnly( GEOM_WIRE );
        break;
       }
-    case 123: // EXPORT STEP
+    case 2174: // POPUP VIEWER - SELECT ONLY - FACE
+      {
+       OnSelectOnly( GEOM_FACE );
+       break;
+      }
+    case 2175: // POPUP VIEWER - SELECT ONLY - SHELL
       {
-       myGEOMToolsGUI->Export(theCommandID);
+       OnSelectOnly( GEOM_SHELL );
        break;
       }
+    case 2176: // POPUP VIEWER - SELECT ONLY - SOLID
+      {
+       OnSelectOnly( GEOM_SOLID );
+       break;
+      }
+    case 2177: // POPUP VIEWER - SELECT ONLY - COMPOUND
+      {
+       OnSelectOnly( GEOM_COMPOUND );
+       break;
+      }
+    case 2178: // POPUP VIEWER - SELECT ONLY - SELECT ALL
+      {
+       OnSelectOnly( GEOM_ALLOBJECTS );
+       break;
+      }    
     case 411: // SETTINGS - ADD IN STUDY
       {
-       QMenuBar* Mb = QAD_Application::getDesktop()->getMainMenuBar();
-       QMenuData* pp;
-       QMenuItem* item = parent->menuBar()->findItem(411, &pp);
-       bool check = !pp->isItemChecked(411);
-       pp->setItemChecked(411,check);
-       //myGEOMToolsGUI->myGeomGUI->GetSettings_AddInStudy() = check;
-       QAD_CONFIG->addSetting("Geometry:SettingsAddInStudy", check);
+       // SAN -- TO BE REMOVED !!!
        break;
       }
     case 412: // SETTINGS - SHADING COLOR
       {
-       if(QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-         break;
-       
-       OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-       Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-
-       QString SCr = QAD_CONFIG->getSetting("Geometry:SettingsShadingColorRed");
-       QString SCg = QAD_CONFIG->getSetting("Geometry:SettingsShadingColorGreen");
-       QString SCb = QAD_CONFIG->getSetting("Geometry:SettingsShadingColorBlue");
-       QColor color;
-       if(!SCr.isEmpty() && !SCg.isEmpty() && !SCb.isEmpty()) {          
-         color = QColor (SCr.toInt(), SCg.toInt(), SCb.toInt());
-       } 
-       else {
-         Quantity_Color Default = Quantity_Color();
-         color = QColor ((int)( Default.Red() * 255.0 ), (int)( Default.Green() * 255.0 ), (int)( Default.Blue() * 255.0 ) );
-       }
-       
-       QColor c = QColorDialog::getColor(color, QAD_Application::getDesktop());
-       if(c.isValid()) {
-         //myGEOMToolsGUI->myGeomGUI->GetShadingColor() = Quantity_Color(c.red() / 255.0, c.green() / 255.0, c.blue() / 255.0, Quantity_TOC_RGB);
-         
-         AIS_ListOfInteractive List;
-         ic->DisplayedObjects(List);
-         AIS_ListOfInteractive List1;
-         ic->ObjectsInCollector(List1);
-         List.Append(List1);
-         
-         AIS_ListIteratorOfListOfInteractive ite(List);
-         while(ite.More()) {
-           if(ite.Value()->IsInstance(STANDARD_TYPE(GEOM_AISShape))) {
-             Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(ite.Value());
-             aSh->SetShadingColor(Quantity_Color(c.red() / 255.0, c.green() / 255.0, c.blue() / 255.0, Quantity_TOC_RGB));
-             ic->Redisplay(aSh, Standard_True, Standard_True);
-           }
-           ite.Next();
-         }
-         
-         ic->UpdateCurrentViewer();
-               
-         QAD_CONFIG->addSetting("Geometry:SettingsShadingColorRed", c.red());
-         QAD_CONFIG->addSetting("Geometry:SettingsShadingColorGreen", c.green());
-         QAD_CONFIG->addSetting("Geometry:SettingsShadingColorBlue", c.blue());        
-       }
+       OnSettingsColor();
        break;
       }
     case 413: // SETTINGS - ISOS
       {
-       if(QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-         break;
-
-       OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-       Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-
-       QString IsoU = QAD_CONFIG->getSetting("Geometry:SettingsIsoU");
-       QString IsoV = QAD_CONFIG->getSetting("Geometry:SettingsIsoV");
-       if(!IsoU.isEmpty())
-         ic->DefaultDrawer()->UIsoAspect()->SetNumber(IsoU.toInt());
-       else
-         IsoU = "1";
-       if (!IsoV.isEmpty())
-         ic->DefaultDrawer()->VIsoAspect()->SetNumber(IsoV.toInt());
-       else
-         IsoV = "1";
-       
-       GEOMToolsGUI_NbIsosDlg* NbIsosDlg = new GEOMToolsGUI_NbIsosDlg(QAD_Application::getDesktop(), tr("GEOM_MEN_ISOS"), TRUE);       
-       int UIso = IsoU.toInt();
-       int VIso = IsoV.toInt();
-       
-       NbIsosDlg->SpinBoxU->setValue(UIso);
-       NbIsosDlg->SpinBoxV->setValue(VIso);
-
-       if(NbIsosDlg->exec()) {
-         UIso = NbIsosDlg->SpinBoxU->text().toInt();
-         VIso = NbIsosDlg->SpinBoxV->text().toInt();
-         
-         ic->DefaultDrawer()->UIsoAspect()->SetNumber(UIso);
-         ic->DefaultDrawer()->VIsoAspect()->SetNumber(VIso);
-         QAD_CONFIG->addSetting("Geometry:SettingsIsoU", NbIsosDlg->SpinBoxU->text()); /* text format */
-         QAD_CONFIG->addSetting("Geometry:SettingsIsoV", NbIsosDlg->SpinBoxV->text()); /* text format */
-       }
-
-       AIS_ListOfInteractive List;
-       ic->DisplayedObjects(List);
-       AIS_ListOfInteractive List1;
-       ic->ObjectsInCollector(List1);
-       List.Append(List1);
-       
-       AIS_ListIteratorOfListOfInteractive ite(List);
-       ic->InitCurrent();
-       if(ic->NbCurrents())
-         while(ite.More()) {
-           if(ite.Value()->IsInstance(STANDARD_TYPE(GEOM_AISShape))) {
-             Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(ite.Value());
-             Handle (AIS_Drawer) CurDrawer;
-             CurDrawer = aSh->Attributes();
-             CurDrawer->UIsoAspect()->SetNumber(UIso);
-             CurDrawer->VIsoAspect()->SetNumber(VIso);
-             ic->SetLocalAttributes(aSh, CurDrawer);
-             ic->Redisplay(aSh);       
-           }
-           ite.Next();
-         }
-       ic->UpdateCurrentViewer();
+       OnSettingsIsos();
        break;
       }
     case 414: // SETTINGS : STEP VALUE FOR SPIN BOXES
       {
-       QString step = QAD_CONFIG->getSetting("Geometry:SettingsGeomStep");
-       if(step.isEmpty())
-         step = "100.0";
-
-       Standard_Boolean res = false;
-       double dd = myGEOMToolsGUI->myGeomBase->Parameter(res, QString("%1").arg(step), tr("GEOM_MEN_STEP_LABEL"), tr("GEOM_STEP_TITLE"), 0.001, 10000.0, 3);
-       if(res) {
-         QAD_CONFIG->addSetting("Geometry:SettingsGeomStep", QString("%1").arg(dd));
-
-         /* Emit signal to GeometryGUI_SpinBoxes */
-         myGEOMToolsGUI->myGeomGUI->EmitSignalDefaultStepValueChanged(dd);
-       }
-       else
-         parent->putInfo(tr("GEOM_PRP_ABORT"));
+       OnSettingsStep();
        break;
       }
     case 804: // ADD IN STUDY - POPUP VIEWER
       {
-       const SALOME_ListIO& ListSelected = Sel->StoredIObjects();
-       SALOME_ListIteratorOfListIO It(ListSelected);
-       for(; It.More(); It.Next()) {
-         Handle(SALOME_InteractiveObject) IObject = It.Value();
-         myGEOMToolsGUI->myGeomBase->AddInStudy(true, IObject);
-       }
-       /* Is set on the dialog box */
-       QApplication::restoreOverrideCursor();
+       // SAN -- TO BE REMOVED !!!!
        break;
       }
     case 901: // RENAME
       {
-       SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-       for(; It.More(); It.Next()) {
-         Handle(SALOME_InteractiveObject) IObject = It.Value();
-
-         SALOMEDS::SObject_var obj = aStudy->FindObjectID(IObject->getEntry());
-          SALOMEDS::GenericAttribute_var anAttr;
-          SALOMEDS::AttributeName_var aName;
-         if(!obj->_is_nil()) {
-           if(obj->FindAttribute(anAttr, "AttributeName")) {
-              aName = SALOMEDS::AttributeName::_narrow(anAttr);
-
-             QString nm = QString(aName->Value());
-             nm = SALOMEGUI_NameDlg::getName(QAD_Application::getDesktop(), nm);
-             if(!nm.isEmpty()) {
-               QApplication::setOverrideCursor(Qt::waitCursor);
-               QAD_Application::getDesktop()->getActiveStudy()->renameIObject(IObject, nm);
-               QApplication::restoreOverrideCursor();
-             }
-           }
-         }
-       }
+       OnRename();
        break;
       }
     case 5103: // CHECK GEOMETRY
       {
-       QAD_PyEditor* PyEditor = QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getPyEditor();
-       PyEditor->setText("from GEOM_usinggeom import *\n");
-       //PyEditor->setText(">>> ");
-       PyEditor->handleReturn();
-       break;
-      }
-    case 5104: // LOAD SCRIPT
-      {
-       QStringList filtersList;
-       filtersList.append(tr("GEOM_MEN_LOAD_SCRIPT"));
-       filtersList.append(tr("GEOM_MEN_ALL_FILES"));
-
-       QString aFile = QAD_FileDlg::getFileName(QAD_Application::getDesktop(), "", filtersList, tr("GEOM_MEN_IMPORT"), true);
-       if(!aFile.isEmpty()) {
-         QFileInfo file = aFile;
-         QApplication::setOverrideCursor(Qt::waitCursor);
-         QAD_PyEditor* PyEditor = QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getPyEditor();
-
-         PyEditor->setText("import geompy\n");
-         PyEditor->handleReturn();
-
-         QStringList aTextList = QStringList::split(".", file.fileName());
-         PyEditor->setText("geompy.Path('" + file.dirPath() + "')\n");
-         PyEditor->handleReturn();
-
-         PyEditor->setText("from " + aTextList.first() + " import *\n");
-         PyEditor->handleReturn();
-       }
-       QApplication::restoreOverrideCursor();
+       OnCheckGeometry();
        break;
       }
     case 8032: // COLOR - POPUP VIEWER
       {
-       if(QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getTypeView() == VIEW_VTK) {
-         // VTK
-         VTKViewer_RenderWindowInteractor* myRenderInter = ((VTKViewer_ViewFrame*)QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-         
-         SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-         Handle(SALOME_InteractiveObject) FirstIOS =  Sel->firstIObject();
-         if(!FirstIOS.IsNull()) {
-           QColor initcolor = myRenderInter->GetColor(FirstIOS);
-           QColor c = QColorDialog::getColor( initcolor, QAD_Application::getDesktop());
-           
-           if(c.isValid()) {
-             QApplication::setOverrideCursor(Qt::waitCursor);
-             for(;It.More();It.Next()) {
-               Handle(SALOME_InteractiveObject) IOS = It.Value();
-               myRenderInter->SetColor(IOS,c);
-             }
-           }
-           QApplication::restoreOverrideCursor();
-         }
-       }
-       else if(QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getTypeView() == VIEW_OCC) {
-         Handle(SALOME_InteractiveObject) IO = Sel->firstIObject();
-         Standard_Boolean found;
-         Handle(GEOM_AISShape) Shape = myGEOMToolsGUI->myGeomBase->ConvertIOinGEOMAISShape(IO, found, true);
-         if(found) {
-           Quantity_Color CSFColor;
-           Shape->Color(CSFColor);
-           
-           QColor c = QColorDialog::getColor(QColor((int)(CSFColor.Red() * 255.0), (int)(CSFColor.Green() * 255.0), (int)(CSFColor.Blue() * 255.0)), QAD_Application::getDesktop());
-           
-           if(c.isValid()) {
-             CSFColor = Quantity_Color (c.red()/255., c.green()/255., c.blue()/255., Quantity_TOC_RGB);
-             QApplication::setOverrideCursor( Qt::waitCursor );
-           
-             SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-             for(;It.More();It.Next()) {
-               Handle(SALOME_InteractiveObject) IObject = It.Value();
-               Standard_Boolean found;
-               Handle(GEOM_AISShape) Shape = myGEOMToolsGUI->myGeomBase->ConvertIOinGEOMAISShape(IObject, found, true);
-               if(found) {
-                 Shape->SetColor(CSFColor);
-                 Shape->SetShadingColor(CSFColor);
-               }
-             }
-           }
-         }
-       }
-       QApplication::restoreOverrideCursor();
+       OnColor();
        break;
       }
     case 8033: // TRANSPARENCY - POPUP VIEWER
       {
-       Handle(AIS_InteractiveContext) ic;
-       if(QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getTypeView() == VIEW_OCC) {
-         OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-         ic = v3d->getAISContext();
-       }
-       GEOMToolsGUI_TransparencyDlg *aDlg = new GEOMToolsGUI_TransparencyDlg(parent, "", Sel, ic);
+       OnTransparency();
        break;
       }
     case 8034: // ISOS - POPUP VIEWER
       {
-       if(QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-         break;
-
-       OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-       Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-
-       ic->InitCurrent();
-       if(ic->MoreCurrent()) {
-         Handle(GEOM_AISShape) CurObject = Handle(GEOM_AISShape)::DownCast(ic->Current());
-         QString IsoU = QAD_CONFIG->getSetting("Geometry:SettingsIsoU");
-         QString IsoV = QAD_CONFIG->getSetting("Geometry:SettingsIsoV");
-
-         if(!IsoU.isEmpty())
-           ic->DefaultDrawer()->UIsoAspect()->SetNumber(IsoU.toInt());
-         else
-           IsoU = "1";
-         if (!IsoV.isEmpty())
-           ic->DefaultDrawer()->VIsoAspect()->SetNumber(IsoV.toInt());
-         else
-           IsoV = "1";
-           
-         GEOMToolsGUI_NbIsosDlg * NbIsosDlg =
-           new GEOMToolsGUI_NbIsosDlg(QAD_Application::getDesktop(), tr("GEOM_MEN_ISOS"), TRUE);
-    
-         NbIsosDlg->SpinBoxU->setValue(IsoU.toInt());
-         NbIsosDlg->SpinBoxV->setValue(IsoV.toInt());
-
-         if(NbIsosDlg->exec()) {
-           QApplication::setOverrideCursor(Qt::waitCursor);
-           for(; ic->MoreCurrent(); ic->NextCurrent()) {
-             Handle(AIS_Drawer) CurDrawer;
-             
-             CurDrawer = ic->Current()->Attributes();
-             CurDrawer->UIsoAspect()->SetNumber(NbIsosDlg->SpinBoxU->text().toInt());
-             CurDrawer->VIsoAspect()->SetNumber(NbIsosDlg->SpinBoxV->text().toInt());
-               
-             ic->SetLocalAttributes(CurObject, CurDrawer);
-             ic->Redisplay(CurObject);
-           }
-         }
-       }
-       QApplication::restoreOverrideCursor();
+       OnNbIsos();
        break;
       }
     case 9024 : // OPEN - OBJBROSER POPUP
       {
-       SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-       Handle(SALOME_InteractiveObject) anIObject;
-       for(;It.More();It.Next()) {
-         anIObject = It.Value();
-         SALOMEDS::SObject_var obj = aStudy->FindObjectID(anIObject->getEntry());
-         SALOMEDS::AttributePersistentRef_var aPersist;
-         SALOMEDS::AttributeIOR_var anIOR;
-         if(!obj->_is_nil()) {
-           // this SObject may be GEOM module root SObject
-           SALOMEDS::ChildIterator_var anIter = aStudy->NewChildIterator(obj);
-           SALOMEDS::GenericAttribute_var anAttr;
-           bool useSubItems = false;
-           while (anIter->More() && !useSubItems) {
-             SALOMEDS::SObject_var subobj = anIter->Value();
-             if (subobj->FindAttribute(anAttr, "AttributePersistentRef")) {
-               useSubItems = true;
-               obj = subobj;
-             }
-             else 
-               anIter->Next();
-           }
-           obj->FindAttribute(anAttr, "AttributePersistentRef");
-             
-           while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-             if(!obj->FindAttribute(anAttr, "AttributeIOR") &&
-                 obj->FindAttribute(anAttr, "AttributePersistentRef")) {
-               
-               SALOMEDS::SComponent_var FComp = obj->GetFatherComponent();
-               if (!CORBA::is_nil(FComp)) {
-                 if (FComp->FindAttribute(anAttr, "AttributeName")) {
-                   SALOMEDS::AttributeName_var aName = SALOMEDS::AttributeName::_narrow(anAttr);
-                   QString compName = parent->getComponentName(aName->Value());
-                   //              parent->loadComponentData(parent->getComponentName(aName->Value()));
-                   Engines::Component_var comp ;
-                   if ( compName.compare("SUPERV") == 0 ) {
-                     comp = parent->getEngine( "SuperVisionContainer", compName) ;
-                   }
-                   else {
-                     comp = parent->getEngine( "FactoryServer", compName);
-                     if ( comp->_is_nil() )
-                       comp = parent->getEngine( "FactoryServerPy", compName);
-                   }
-
-                   if (!CORBA::is_nil(comp)) {
-                     SALOMEDS::Driver_var   driver = SALOMEDS::Driver::_narrow(comp);
-                     if (!CORBA::is_nil(driver)) {
-                       SALOMEDS::StudyBuilder_var  B = aStudy->NewBuilder();
-                       if (!CORBA::is_nil(B)) {
-                         B->LoadWith(FComp,driver);
-                       } else {
-                         return false;
-                       }
-                     } else {
-                       MESSAGE("loadComponentData(): Driver is null");
-                       return false;
-                     }
-                   } else {
-                     MESSAGE("loadComponentData(): Engine is null");
-                     return false;
-                   }
-                   //          // load
-                   //          Engines::Component_var comp = QAD_Application::getDesktop()->getEngine("FactoryServer","GEOM");
-                   //          if (!CORBA::is_nil(comp)) {
-                   //            SALOMEDS::Driver_var driver = SALOMEDS::Driver::_narrow(comp);
-                   //            SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-                   //            SALOMEDS::SComponent_var SC = aStudy->FindComponent("GEOM");
-                   //            if (!CORBA::is_nil(SC))
-                   //              aStudyBuilder->LoadWith(SC,driver);
-                 } 
-               }
-               else {
-                 MESSAGE("Component is null");
-               }
-             }
-             if(useSubItems) {
-               anIter->Next();
-               obj = anIter->Value();
-             } 
-             else 
-               anAttr = SALOMEDS::GenericAttribute::_nil();
-           }
-         }
-       }
+       OnOpen();
        break;
       }
     default:
       {
-       parent->putInfo(tr("GEOM_PRP_COMMAND").arg(theCommandID));
+       SUIT_Session::session()->activeApplication()->putInfo(tr("GEOM_PRP_COMMAND").arg(theCommandID));
        break;
       }
     }
@@ -551,109 +255,128 @@ bool GEOMToolsGUI::OnGUIEvent(int theCommandID, QAD_Desktop* parent)
 }
 
 
+
 //===============================================================================
 // function : OnEditDelete()
 // purpose  :
 //===============================================================================
 void GEOMToolsGUI::OnEditDelete()
 {
-  SALOME_Selection* Sel = SALOME_Selection::Selection(QAD_Application::getDesktop()->getActiveStudy()->getSelection());
-  if(Sel->IObjectCount() == 0)
-    return;
-
-  if(QAD_MessageBox::warn2(QAD_Application::getDesktop(), tr("GEOM_WRN_WARNING"), tr("GEOM_REALLY_DELETE"), tr("GEOM_BUT_YES"), tr("GEOM_BUT_NO"), 1, 0, 0) != 1)
-    return;
-       
-  int nbSf = QAD_Application::getDesktop()->getActiveStudy()->getStudyFramesCount();
-    
-  Standard_Boolean found;
-  SALOMEDS::Study_var aStudy = QAD_Application::getDesktop()->getActiveStudy()->getStudyDocument();
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-  SALOMEDS::GenericAttribute_var anAttr;
-  SALOMEDS::AttributeIOR_var anIOR;
-  
-  SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-  QAD_Operation* op = new SALOMEGUI_ImportOperation( QAD_Application::getDesktop()->getActiveStudy() );
-  op->start();
-  Standard_Boolean deleted = false;
-  for(;It.More();It.Next()) {
-    Handle(SALOME_InteractiveObject) IObject = It.Value();
-    if(IObject->hasEntry()) {
-      SALOMEDS::Study_var aStudy = QAD_Application::getDesktop()->getActiveStudy()->getStudyDocument();
-      SALOMEDS::SObject_var SO = aStudy->FindObjectID(IObject->getEntry());
-      
-      /* Erase child graphical objects */
-      SALOMEDS::ChildIterator_var it = aStudy->NewChildIterator(SO);
-      for(; it->More();it->Next()) {
-       SALOMEDS::SObject_var CSO= it->Value();
-       if(CSO->FindAttribute(anAttr, "AttributeIOR") ) {
-          anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-         /* Delete child(s) shape in Client : */
-         const TCollection_AsciiString ASCior(anIOR->Value()) ;
-         myGeomGUI->GetShapeReader().RemoveShapeFromBuffer(ASCior);
-
-         for(int i = 0; i < nbSf; i++) {
-           QAD_StudyFrame* sf = QAD_Application::getDesktop()->getActiveStudy()->getStudyFrame(i);
-           if(sf->getTypeView() == VIEW_OCC) {
-             OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getViewer();
-             Handle (AIS_InteractiveContext) myContext = v3d->getAISContext();
-             Handle(GEOM_AISShape) Result = myGeomBase->ConvertIORinGEOMAISShape(anIOR->Value(), found);
-             if(found)
-               myContext->Erase(Result, true, false);
-           }
-           else if(sf->getTypeView() == VIEW_VTK) {
-             //vtkRenderer* Renderer = ((VTKViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getRenderer();
-             VTKViewer_RenderWindowInteractor* myRenderInter = ((VTKViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getRWInteractor();
-             GEOM_Actor* ac = myGeomBase->ConvertIORinGEOMActor(anIOR->Value(), found);
-             if(found) {
-               //Renderer->RemoveActor(ac);
-               if(ac->hasIO()) 
-                 myRenderInter->Remove(ac->getIO());
-             }
-           }
-         }
+  SALOME_ListIO selected;
+  SalomeApp_Application* app =
+    dynamic_cast< SalomeApp_Application* >( SUIT_Session::session()->activeApplication() );
+  if ( app ) {
+    LightApp_SelectionMgr* aSelMgr = app->selectionMgr();
+    SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( app->activeStudy() );
+    if ( aSelMgr && appStudy ) {
+      aSelMgr->selectedObjects( selected, QString::null, false );
+      if ( !selected.IsEmpty() ) {
+       _PTR(Study) aStudy = appStudy->studyDS();
+
+       bool aLocked = (_PTR(AttributeStudyProperties)(aStudy->GetProperties()))->IsLocked();
+       if ( aLocked ) {
+         SUIT_MessageBox::warning ( app->desktop(),
+                                    QObject::tr("WRN_WARNING"),
+                                    QObject::tr("WRN_STUDY_LOCKED"),
+                                    QObject::tr("BUT_OK") );
+         return;
        }
-      }
-      
-      /* Erase main graphical object */
-      for(int i = 0; i < nbSf; i++) {
-       QAD_StudyFrame* sf = QAD_Application::getDesktop()->getActiveStudy()->getStudyFrame(i);
-       if(sf->getTypeView() == VIEW_OCC) {
-         OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getViewer();
-         Handle(AIS_InteractiveContext) myContext = v3d->getAISContext();
-         Handle(GEOM_AISShape) Result = myGeomBase->ConvertIOinGEOMAISShape(IObject, found );
-         if(found)
-           myContext->Erase(Result, true, false);
+
+       // VSR 17/11/04: check if all objects selected belong to GEOM component --> start
+       // modifications of ASV 01.06.05
+       QString parentComp = getParentComponent( aStudy, selected );
+  CORBA::String_var geomIOR = app->orb()->object_to_string( GeometryGUI::GetGeomGen() );
+       QString geomComp = getParentComponent( aStudy->FindObjectIOR( geomIOR.in() ) );
+
+       if ( parentComp != geomComp )  {
+         SUIT_MessageBox::warning ( app->desktop(),
+                                    QObject::tr("ERR_ERROR"),
+                                    QObject::tr("NON_GEOM_OBJECTS_SELECTED").arg( getGeometryGUI()->moduleName() ),
+                                    QObject::tr("BUT_OK") );
+         return;
        }
-       else if(sf->getTypeView() == VIEW_VTK) {
-         VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getRWInteractor();
-         myRenderInter->Remove( IObject );
+       // VSR 17/11/04: check if all objects selected belong to GEOM component <-- finish
+
+       if ( SUIT_MessageBox::warning( app->desktop(),
+                                      QObject::tr( "GEOM_WRN_WARNING" ),
+                                      QObject::tr( "GEOM_REALLY_DELETE" ),
+                                      QObject::tr( "GEOM_BUT_YES" ),
+                                      QObject::tr( "GEOM_BUT_NO" ), 1 ) != 0 )
+         return;
+
+       //      QAD_Operation* op = new SALOMEGUI_ImportOperation(.....);
+       //      op->start();
+
+       // prepare list of SALOME_Views
+       QList<SALOME_View*> views;
+       SALOME_View* view;
+       // fill the list
+       ViewManagerList vmans = app->viewManagers();
+       SUIT_ViewManager* vman;
+       QListIterator<SUIT_ViewManager*> it( vmans );
+       while ( it.hasNext() && (vman = it.next()) ) {
+         SUIT_ViewModel* vmod = vman->getViewModel();
+         view = dynamic_cast<SALOME_View*> ( vmod ); // must work for OCC and VTK views
+         if ( view )
+           views.append( view );
        }
-      }
-      
-      /* Delete main shape in Client : */
-      if(SO->FindAttribute(anAttr, "AttributeIOR")) {
-        anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-       const TCollection_AsciiString ASCIor(anIOR->Value()) ;
-       myGeomGUI->GetShapeReader().RemoveShapeFromBuffer(ASCIor);
-      }
 
-      /* Erase objects in Study */
-      SALOMEDS::SObject_var obj = aStudy->FindObjectID(IObject->getEntry());
-      if(!obj->_is_nil()) {
-       aStudyBuilder->RemoveObject(obj);
-       deleted = true;
-      }
+       _PTR(StudyBuilder) aStudyBuilder (aStudy->NewBuilder());
+       _PTR(GenericAttribute) anAttr;
+       GEOM_Displayer* disp = new GEOM_Displayer( appStudy );
+
+        _PTR(SComponent) aGeom ( aStudy->FindComponent("GEOM") );
+          if ( !aGeom )
+            return;    
+
+       // MAIN LOOP OF SELECTED OBJECTS
+       for ( SALOME_ListIteratorOfListIO It( selected ); It.More(); It.Next() ) {
+
+         Handle(SALOME_InteractiveObject) io = It.Value();
+         if ( !io->hasEntry() )
+           continue;
+
+         _PTR(SObject) obj ( aStudy->FindObjectID( io->getEntry() ) );
+
+         // disable removal of "Geometry" component object
+         if ( !strcmp( obj->GetIOR().c_str(), geomIOR ) )
+           continue;
 
-    } /* IObject->hasEntry() */
-  }   /* more/next           */
+          //If the object has been used to create another one,then it can't be deleted 
+          _PTR(ChildIterator) it (aStudy->NewChildIterator(aGeom));
+          for ( it->InitEx( true ); it->More(); it->Next() ) {
+             _PTR(SObject) chobj (it->Value());
+            if(CheckSubObjectInUse(chobj, obj, aStudy)) return;
+            //check subobjects
+            for (_PTR(ChildIterator) it (aStudy->NewChildIterator(obj)); it->More(); it->Next()) {
+              _PTR(SObject) child (it->Value());
+              if(CheckSubObjectInUse( chobj, child, aStudy)) return;
+            }
+          }
 
-  if (deleted) op->finish();
-  else op->abort();
+          RemoveObjectWithChildren(obj, aStudy, views, disp);
 
-  /* Clear any previous selection */
-  Sel->ClearIObjects(); 
-  QAD_Application::getDesktop()->getActiveStudy()->updateObjBrowser();
+         // Remove objects from Study
+         aStudyBuilder->RemoveObject( obj );
+
+         //deleted = true;
+       } // MAIN LOOP of selected
+
+       selected.Clear();
+       aSelMgr->setSelectedObjects( selected );
+       getGeometryGUI()->updateObjBrowser();
+      } // if ( selected not empty )
+    } // if ( selMgr && appStudy )
+
+    app->updateActions(); //SRN: To update a Save button in the toolbar
+
+  } // if ( app )
+
+
+  //  if ( deleted )
+  //    op->finish();
+  //  else
+  //    op->abort();
 }
 
 
@@ -663,8 +386,9 @@ void GEOMToolsGUI::OnEditDelete()
 //==============================================================================
 void GEOMToolsGUI::OnEditCopy()
 {
-  SALOME_Selection* Sel = SALOME_Selection::Selection(QAD_Application::getDesktop()->getActiveStudy()->getSelection() );
-  GEOM::GEOM_Gen::ListOfIOR_var listIOR = new GEOM::GEOM_Gen::ListOfIOR;
+/*
+ SALOME_Selection* Sel = SALOME_Selection::Selection(QAD_Application::getDesktop()->getActiveStudy()->getSelection() );
+  GEOM::string_array_var listIOR = new GEOM::string_array;
 
   const SALOME_ListIO& List = Sel->StoredIObjects();
 
@@ -672,19 +396,23 @@ void GEOMToolsGUI::OnEditCopy()
 
   Sel->ClearIObjects();
 
+  SALOMEDS::Study_var aStudy = QAD_Application::getDesktop()->getActiveStudy()->getStudyDocument();
+  int aStudyID = aStudy->StudyId();
+
   for (unsigned int ind = 0; ind < listIOR->length();ind++) {
-    GEOM::GEOM_Shape_var aShapeInit = myGeom->GetIORFromString(listIOR[ind]);
+    GEOM::GEOM_Object_var aShapeInit = myGeom->GetIORFromString(listIOR[ind]);
     try {
-      GEOM::GEOM_Shape_var result = myGeom->MakeCopy(aShapeInit) ;
-      result->NameType( aShapeInit->NameType() );
+      GEOM::GEOM_IInsertOperations_var IOp =  myGeom->GetIInsertOperations(aStudyID);
+      GEOM::GEOM_Object_var result = IOp->MakeCopy(aShapeInit);
       myGeomBase->Display(result);
     }
     catch  (const SALOME::SALOME_Exception& S_ex) {
       QtCatchCorbaException(S_ex);
     }
   }
-  
+
   QAD_Application::getDesktop()->putInfo(tr("GEOM_PRP_READY"));
+*/
 }
 
 
@@ -692,115 +420,115 @@ void GEOMToolsGUI::OnEditCopy()
 // function : Import
 // purpose  : BRep, Iges, Step
 //=====================================================================================
-bool GEOMToolsGUI::Import(int aState)
+bool GEOMToolsGUI::Import()
 {
-  SALOMEDS::Study_var aStudy = QAD_Application::getDesktop()->getActiveStudy()->getStudyDocument();
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-  
-  GEOM::GEOM_Shape_var aShape;
-  QString file;
-  QStringList filtersList;
-  
-  switch(aState)
-    {
-    case 111 : // Import BREP
-      {
-       filtersList.append(tr("GEOM_MEN_IMPORT_BREP"));
-       filtersList.append(tr("GEOM_MEN_ALL_FILES"));
-
-       file = QAD_FileDlg::getFileName(QAD_Application::getDesktop(), "", filtersList, tr("GEOM_MEN_IMPORT"), true);
-       if(!file.isEmpty()) {
-         QApplication::setOverrideCursor(Qt::waitCursor);
-         try {
-           aShape = myGeom->ImportBREP(file.latin1());
-         }
-         catch(const SALOME::SALOME_Exception& S_ex) {
-           QtCatchCorbaException(S_ex);
-         }
-       }
-       break;
-      }
-    case 112 : // Import IGES
-      {
-       filtersList.append( tr("GEOM_MEN_IMPORT_IGES") ) ;
-       filtersList.append( tr("GEOM_MEN_ALL_FILES") ) ;
-
-       file = QAD_FileDlg::getFileName(QAD_Application::getDesktop(),
-                                       "",
-                                       filtersList,
-                                       tr("GEOM_MEN_IMPORT"),
-                                       true);
-       if ( !file.isEmpty() ) {
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         try {
-           aShape = myGeom->ImportIGES( file.latin1() );
-         }
-         catch (const SALOME::SALOME_Exception& S_ex) {
-           QtCatchCorbaException(S_ex);
-         }
-       }
-       break;
-      }
-    case 113 : // Import STEP
-      {
-       filtersList.append( tr("GEOM_MEN_IMPORT_STEP") ) ;
-       filtersList.append( tr("GEOM_MEN_ALL_FILES") ) ;
-
-       file = QAD_FileDlg::getFileName(QAD_Application::getDesktop(),
-                                       "",
-                                       filtersList,
-                                       tr("GEOM_MEN_IMPORT"),
-                                       true);
-       if ( !file.isEmpty() ) {
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         try {
-           aShape = myGeom->ImportSTEP( file.latin1() );
-         }
-         catch  (const SALOME::SALOME_Exception& S_ex) {
-           QtCatchCorbaException(S_ex);
-         }
-       }
-       break;
-      }
+  SalomeApp_Application* app = dynamic_cast< SalomeApp_Application* >( getGeometryGUI()->getApp() );
+  //SUIT_Application* app = getGeometryGUI()->getApp();
+  if (! app) return false;
+
+  SalomeApp_Study* stud = dynamic_cast<SalomeApp_Study*> ( app->activeStudy() );
+  if ( !stud ) {
+    cout << "FAILED to cast active study to SalomeApp_Study" << endl;
+    return false;
+  }
+  _PTR(Study) aStudy = stud->studyDS();
+
+  bool aLocked = (_PTR(AttributeStudyProperties)(aStudy->GetProperties()))->IsLocked();
+  if ( aLocked ) {
+    SUIT_MessageBox::warning ( app->desktop(),
+                              QObject::tr("WRN_WARNING"),
+                              QObject::tr("WRN_STUDY_LOCKED"),
+                              QObject::tr("BUT_OK") );
+    return false;
+  }
+
+  GEOM::GEOM_Gen_var eng = GeometryGUI::GetGeomGen();
+  if ( CORBA::is_nil( eng ) ) {
+    SUIT_MessageBox::critical( app->desktop(),
+                              QObject::tr("WRN_WARNING"),
+                              QObject::tr( "GEOM Engine is not started" ),
+                              QObject::tr("BUT_OK") );
+      return false;
     }
-  
-  if ( !file.isEmpty() ) {
-    QAD_Application::getDesktop()->putInfo( tr("GEOM_PRP_LOADING").arg(QAD_Tools::getFileNameFromPath( file )) );
-
-    SALOMEDS::SComponent_var father = aStudy->FindComponent("GEOM");
-    SALOMEDS::SObject_var fatherSF = aStudy->FindObjectID(QAD_Application::getDesktop()->getActiveStudy()->getActiveStudyFrame()->entry());
-    SALOMEDS::GenericAttribute_var anAttr;
-    SALOMEDS::AttributeName_var    aName;
-    SALOMEDS::AttributePixMap_var  aPixmap;
-    int aLocked = false;
-    if (father->_is_nil()) {
-      QAD_Operation* op = new SALOMEGUI_ImportOperation(QAD_Application::getDesktop()->getActiveStudy() );
-      op->start();
-      aLocked = aStudy->GetProperties()->IsLocked();
-      if (aLocked) aStudy->GetProperties()->SetLocked(false);
-      father = aStudyBuilder->NewComponent("GEOM");
-      anAttr = aStudyBuilder->FindOrCreateAttribute(father, "AttributeName");
-      aName = SALOMEDS::AttributeName::_narrow(anAttr);
-      //      aName->SetValue( tr("GEOM_MEN_COMPONENT") );
-      aName->SetValue(QAD_Application::getDesktop()->getComponentUserName( "GEOM" ) );
-      anAttr = aStudyBuilder->FindOrCreateAttribute(father, "AttributePixMap");
-      aPixmap = SALOMEDS::AttributePixMap::_narrow(anAttr);
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_Geometry" );
-      aStudyBuilder->DefineComponentInstance( father, myGeom );
-      if (aLocked) aStudy->GetProperties()->SetLocked(true);
-      op->finish();
+
+  GEOM::GEOM_IInsertOperations_var aInsOp = eng->GetIInsertOperations( aStudy->StudyId() );
+  if ( aInsOp->_is_nil() )
+    return false;
+
+  GEOM::GEOM_Object_var anObj;
+
+  // Obtain a list of available import formats
+  FilterMap aMap;
+  GEOM::string_array_var aFormats, aPatterns;
+  aInsOp->ImportTranslators( aFormats, aPatterns );
+
+  for ( int i = 0, n = aFormats->length(); i < n; i++ )
+    aMap.insert( (char*)aPatterns[i], (char*)aFormats[i] );
+
+  QString fileType;
+
+  QString fileName = getFileName(app->desktop(), "", aMap,
+                                 tr("GEOM_MEN_IMPORT"), true, fileType);
+
+  if (fileType.isEmpty() )
+    {
+      // Trying to detect file type
+      QFileInfo aFileInfo( fileName );
+      QString aPossibleType = (aFileInfo.suffix()).toUpper() ;
+
+      if ( (aMap.values()).contains(aPossibleType) )
+       fileType = aPossibleType;
     }
-//      if (aLocked) return false;
-    father->ComponentIOR(myGeomGUI->GetFatherior());
 
-    QString nameShape = QAD_Tools::getFileNameFromPath(file,false) +  QString("_%1").arg(myGeomGUI->myNbGeom++);
+  if (fileName.isEmpty() || fileType.isEmpty())
+    return false;
 
-    if(myGeomBase->Display(aShape, (char*)nameShape.latin1())) {
-      QAD_Application::getDesktop()->getActiveStudy()->setMessage( tr("GEOM_INF_LOADED").arg(QAD_Tools::getFileNameFromPath( file )) );
-      QAD_Application::getDesktop()->putInfo( tr("GEOM_PRP_READY"));
+  GEOM_Operation* anOp = new GEOM_Operation (app, aInsOp.in());
+  try {
+    SUIT_OverrideCursor wc;
+
+    app->putInfo(tr("GEOM_PRP_LOADING").arg(SUIT_Tools::file(fileName, /*withExten=*/true)));
+
+    anOp->start();
+
+    CORBA::String_var fileN = fileName.toLatin1().data();
+    CORBA::String_var fileT = fileType.toLatin1().data();
+    anObj = aInsOp->Import(fileN, fileT);
+
+    if ( !anObj->_is_nil() && aInsOp->IsDone() ) {
+      QString aPublishObjName =
+        GEOMBase::GetDefaultName(SUIT_Tools::file(fileName, /*withExten=*/true));
+
+      SALOMEDS::Study_var aDSStudy = GeometryGUI::ClientStudyToStudy(aStudy);
+      GeometryGUI::GetGeomGen()->PublishInStudy(aDSStudy,
+                                               SALOMEDS::SObject::_nil(),
+                                               anObj,
+                                               aPublishObjName.toStdString().c_str());
+
+      GEOM_Displayer( stud ).Display( anObj.in() );
+
+      // update data model and object browser
+      getGeometryGUI()->updateObjBrowser( true );
+
+      anOp->commit();
+    }
+    else {
+      anOp->abort();
+      wc.suspend();
+      SUIT_MessageBox::critical( app->desktop(),
+                                QObject::tr( "GEOM_ERROR" ),
+                                QObject::tr("GEOM_PRP_ABORT") + "\n" + QString( aInsOp->GetErrorCode() ),
+                                QObject::tr("BUT_OK") );
     }
   }
-  QApplication::restoreOverrideCursor();
+  catch( const SALOME::SALOME_Exception& S_ex ) {
+    //QtCatchCorbaException(S_ex);
+    anOp->abort();
+    return false;
+  }
+
+  app->updateActions(); //SRN: To update a Save button in the toolbar
+
   return true;
 }
 
@@ -809,148 +537,233 @@ bool GEOMToolsGUI::Import(int aState)
 // function : Export
 // purpose  : BRep, Iges, Step
 //=====================================================================================
-bool GEOMToolsGUI::Export(int aState)
+bool GEOMToolsGUI::Export()
 {
-  SALOMEDS::Study_var aStudy = QAD_Application::getDesktop()->getActiveStudy()->getStudyDocument();
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
+  SalomeApp_Application* app = getGeometryGUI()->getApp();
+  if (!app) return false;
 
-  GEOM::GEOM_Shape_var aShape;
+  SalomeApp_Study* stud = dynamic_cast<SalomeApp_Study*> ( app->activeStudy() );
+  if ( !stud ) {
+    cout << "FAILED to cast active study to SalomeApp_Study" << endl;
+    return false;
+  }
+  _PTR(Study) aStudy = stud->studyDS();
+
+  GEOM::GEOM_Gen_var eng = GeometryGUI::GetGeomGen();
+  if ( CORBA::is_nil( eng ) ) {
+    SUIT_MessageBox::critical( app->desktop(),
+                              QObject::tr("WRN_WARNING"),
+                              QObject::tr( "GEOM Engine is not started" ),
+                              QObject::tr("BUT_OK") );
+    return false;
+  }
 
-  static QString filters[] = { tr("GEOM_MEN_IMPORT_BREP"),
-                              tr("GEOM_MEN_IMPORT_IGES"),
-                              tr("GEOM_MEN_IMPORT_STEP") };
-  
-  SALOME_Selection* Sel = SALOME_Selection::Selection(QAD_Application::getDesktop()->getActiveStudy()->getSelection());
-  SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
+  GEOM::GEOM_IInsertOperations_var aInsOp = eng->GetIInsertOperations( aStudy->StudyId() );
+  if ( aInsOp->_is_nil() )
+    return false;
 
-  switch (aState)
-    {
-    case 121 :
-      {
-       for(;It.More();It.Next()) {
-         QApplication::restoreOverrideCursor();
-         Handle(SALOME_InteractiveObject) IObject = It.Value();
-         Standard_Boolean found;
-         GEOM::GEOM_Shape_var aShape = myGeomBase->ConvertIOinGEOMShape(IObject, found);
-         //      Handle(GEOM_AISShape) Shape = myGeomGUI->ConvertIOinGEOMAISShape(IObject, found, true);
-         if ( found ) {
-           QString file = QAD_FileDlg::getFileName(QAD_Application::getDesktop(), 
-                                                   QString( IObject->getName() ) + ".brep",
-                                                   tr("GEOM_MEN_IMPORT_BREP"),
-                                                   tr("GEOM_MEN_EXPORT"),
-                                                   false);
-           if ( !file.isEmpty() && !aShape->_is_nil() ) {
-             QApplication::setOverrideCursor( Qt::waitCursor );
-             //      Standard_Boolean result = BRepTools::Write(Shape->Shape(), strdup(file.latin1()) );
-             try {
-               myGeom->ExportBREP((char*)file.latin1(), aShape);
-             }  
-             catch (const SALOME::SALOME_Exception& S_ex) {
-               QtCatchCorbaException(S_ex);
-             }
-           }
-         }
-       }
-       break;
-      }
-    case 122 :
-      {
-       for(;It.More();It.Next()) {
-         QApplication::restoreOverrideCursor();
-         Handle(SALOME_InteractiveObject) IObject = It.Value();
-         Standard_Boolean found;
-         GEOM::GEOM_Shape_var aShape = myGeomBase->ConvertIOinGEOMShape(IObject, found);
-         //      Handle(GEOM_AISShape) Shape = myGeomGUI->ConvertIOinGEOMAISShape(IObject, found, true);
-         if ( found ) {
-           QString file = QAD_FileDlg::getFileName(QAD_Application::getDesktop(), 
-                                                   QString( IObject->getName() ) + ".igs",
-                                                   tr("GEOM_MEN_IMPORT_IGES"),
-                                                   tr("GEOM_MEN_EXPORT"),
-                                                   false);
-           if ( !file.isEmpty() && !aShape->_is_nil() ) {
-             QApplication::setOverrideCursor( Qt::waitCursor );
-             try {
-               myGeom->ExportIGES((char*)file.latin1(), aShape);
-             }  
-             catch (const SALOME::SALOME_Exception& S_ex) {
-               QtCatchCorbaException(S_ex);
-             }
-//           //VRV: OCC 4.0 migration
-//           IGESControl_Controller::Init();
-//           IGESControl_Writer ICW (Interface_Static::CVal("XSTEP.iges.unit"),
-//                                      Interface_Static::IVal("XSTEP.iges.writebrep.mode"));
-//           //VRV: OCC 4.0 migration
-
-//           ICW.AddShape (Shape->Shape());
-//           ICW.ComputeModel();
-//           Standard_Boolean result = ICW.Write( strdup(file.latin1()) );
-           }
-         }
-       }
-       break;
-      }
+  // Obtain a list of available export formats
+  FilterMap aMap;
+  GEOM::string_array_var aFormats, aPatterns;
+  aInsOp->ExportTranslators( aFormats, aPatterns );
+  for ( int i = 0, n = aFormats->length(); i < n; i++ )
+    aMap.insert( (char*)aPatterns[i], (char*)aFormats[i] );
 
-    case 123 :
-      {
-//     bool test = false ;
-//     IFSelect_ReturnStatus status ;
-//     //VRV: OCC 4.0 migration
-//     STEPControl_Writer aWriter;
-//     //VRV: OCC 4.0 migration
-       QString file;
-
-       for( ; It.More(); It.Next() ) {
-//       GEOM::GEOM_Shape_var aShape = myGeomBase->ConvertIOinGEOMShape(IObject, found);
-         QApplication::restoreOverrideCursor();
-         Handle(SALOME_InteractiveObject) IObject = It.Value();
-         Standard_Boolean found;
-         GEOM::GEOM_Shape_var aShape = myGeomBase->ConvertIOinGEOMShape(IObject, found);
-         //      Handle(GEOM_AISShape) Shape = myGeomBase->ConvertIOinGEOMAISShape(IObject, found, true);
-         if ( found ) {
-           file = QAD_FileDlg::getFileName(QAD_Application::getDesktop(), 
-                                           QString( IObject->getName() ) + ".stp",
-                                           tr("GEOM_MEN_IMPORT_STEP"),
-                                           tr("GEOM_MEN_EXPORT"),
-                                           false);
-           if ( !file.isEmpty() && !aShape->_is_nil() ) {
-
-             QApplication::setOverrideCursor( Qt::waitCursor ) ;       
-             try {   
-               myGeom->ExportSTEP((char*)file.latin1(), aShape);   
-             }  
-             catch (const SALOME::SALOME_Exception& S_ex) {
-               QtCatchCorbaException(S_ex);
-             }
-//           //VRV: OCC 4.0 migration
-//           status = aWriter.Transfer( Shape->Shape(), STEPControl_ManifoldSolidBrep ) ;
-//           //VRV: OCC 4.0 migration
-//           test = true ;
-//           if ( status != IFSelect_RetDone ) {
-//             QApplication::restoreOverrideCursor() ;
-//             return false ;
-//           }
-           }
-         }
+  // Get selected objects
+  LightApp_SelectionMgr* sm = app->selectionMgr();
+  if ( !sm )
+    return false;
+
+  SALOME_ListIO selectedObjects;
+  sm->selectedObjects( selectedObjects );
+
+  SALOME_ListIteratorOfListIO It( selectedObjects );
+  for(;It.More();It.Next()) {
+    Handle(SALOME_InteractiveObject) IObject = It.Value();
+    Standard_Boolean found;
+    GEOM::GEOM_Object_var anObj = GEOMBase::ConvertIOinGEOMObject(IObject, found);
+
+    if ( !found || anObj->_is_nil() )
+      continue;
+
+    QString fileType;
+    QString file = getFileName(app->desktop(), QString( IObject->getName() ), aMap,
+                              tr("GEOM_MEN_EXPORT"), false, fileType);
+
+    // User has pressed "Cancel" --> stop the operation
+    if ( file.isEmpty() || fileType.isEmpty() )
+      return false;
+
+    GEOM_Operation* anOp = new GEOM_Operation( app, aInsOp.in() );
+    try {
+      SUIT_OverrideCursor wc;
+
+      app->putInfo( tr("GEOM_PRP_EXPORT").arg(SUIT_Tools::file( file, /*withExten=*/true )) );
+
+      anOp->start();
+
+
+      aInsOp->Export( anObj, file.toStdString().c_str(), fileType.toLatin1().constData() );
+
+      if ( aInsOp->IsDone() )
+       anOp->commit();
+      else
+       {
+         anOp->abort();
+         wc.suspend();
+         SUIT_MessageBox::critical( app->desktop(),
+                                    QObject::tr( "GEOM_ERROR" ),
+                                    QObject::tr("GEOM_PRP_ABORT") + "\n" + QString( aInsOp->GetErrorCode() ),
+                                    QObject::tr("BUT_OK") );
+         return false;
        }
-//     if(test) {
-//       status = aWriter.Write( strdup(file.latin1()) ) ;
-//       QApplication::restoreOverrideCursor() ;
-//       return status ;
-//     }
-       break;
+    }
+    catch (const SALOME::SALOME_Exception& S_ex) {
+      //QtCatchCorbaException(S_ex);
+      anOp->abort();
+      return false;
+    }
+  }
+
+  return true;
+}
+
+
+QString GEOMToolsGUI::getParentComponent( _PTR( Study ) study, const SALOME_ListIO& iobjs )
+{
+  QString parentComp;
+
+  for ( SALOME_ListIteratorOfListIO it( iobjs ); it.More(); it.Next() ) {
+
+    Handle(SALOME_InteractiveObject) io = it.Value();
+    if ( !io->hasEntry() )
+      continue;
+
+    QString compName = getParentComponent( study->FindObjectID( io->getEntry() ) );
+
+    if ( parentComp.isNull() )
+      parentComp = compName;
+    else if ( parentComp.compare( compName) != 0 ) { // objects belonging to different components are selected
+      parentComp = QString::null;
+      break;
+    }
+  }
+
+  return parentComp;
+}
+
+QString GEOMToolsGUI::getParentComponent( _PTR( SObject ) obj )
+{
+  if ( obj ) {
+    _PTR(SComponent) comp = obj->GetFatherComponent();
+    if ( comp ) {
+      _PTR(GenericAttribute) anAttr;
+      if ( comp->FindAttribute( anAttr, "AttributeName") ) {
+       _PTR(AttributeName) aName( anAttr );
+       return QString( aName->Value().c_str() );
       }
+    }
+  }
+  return QString();
+}
+
+//=====================================================================================
+// function : RemoveObjectWithChildren
+// purpose  : to be used by OnEditDelete() method
+//=====================================================================================
+void GEOMToolsGUI::RemoveObjectWithChildren(_PTR(SObject) obj,
+                                            _PTR(Study) aStudy,
+                                            QList<SALOME_View*> views,
+                                            GEOM_Displayer* disp)
+{
+  // iterate through all children of obj
+  for (_PTR(ChildIterator) it (aStudy->NewChildIterator(obj)); it->More(); it->Next()) {
+    _PTR(SObject) child (it->Value());
+    RemoveObjectWithChildren(child, aStudy, views, disp);
+  }
 
+  // erase object and remove it from engine
+  _PTR(GenericAttribute) anAttr;
+  if (obj->FindAttribute(anAttr, "AttributeIOR")) {
+    _PTR(AttributeIOR) anIOR (anAttr);
+
+    // Delete shape in Client
+    const TCollection_AsciiString ASCIor ((char*)anIOR->Value().c_str());
+    getGeometryGUI()->GetShapeReader().RemoveShapeFromBuffer(ASCIor);
+
+    CORBA::Object_var corbaObj = GeometryGUI::ClientSObjectToObject(obj);
+    GEOM::GEOM_Object_var geomObj = GEOM::GEOM_Object::_narrow( corbaObj );
+    if (!CORBA::is_nil(geomObj)) {
+      // Erase graphical object
+      QListIterator<SALOME_View*> it( views );
+      while ( it.hasNext() )
+       if ( SALOME_View* view = it.next() )
+         disp->Erase(geomObj, true, view);
+      
+      // Remove object from Engine
+      GeometryGUI::GetGeomGen()->RemoveObject( geomObj );
     }
-  QApplication::restoreOverrideCursor() ;
-  return true;
+  }
 }
 
+//=====================================================================================
+// function : CheckSubObjectInUse
+// purpose  : to be used by OnEditDelete() method
+//=====================================================================================
+bool GEOMToolsGUI::CheckSubObjectInUse(_PTR(SObject) checkobj,
+                                      _PTR(SObject) remobj,
+                                       _PTR(Study) aStudy)
+{
+  CORBA::Object_var corbaObj = GeometryGUI::ClientSObjectToObject(checkobj);
+  GEOM::GEOM_Object_var geomObj = GEOM::GEOM_Object::_narrow( corbaObj );
+  if( CORBA::is_nil(geomObj) ) 
+    return false;
+
+  GEOM::ListOfGO_var list = geomObj->GetDependency();
+  if( list->length() > 1 )
+    for(int i = 0; i < list->length(); i++ ){
+      CORBA::Object_var corbaObj_rem = GeometryGUI::ClientSObjectToObject(remobj);
+      GEOM::GEOM_Object_var geomObj_rem = GEOM::GEOM_Object::_narrow( corbaObj_rem );
+      if( list[i]->_is_equivalent( geomObj_rem ) ){
+       SalomeApp_Application* app =
+         dynamic_cast< SalomeApp_Application* >( SUIT_Session::session()->activeApplication() );
+
+       SUIT_MessageBox::warning ( app->desktop(),
+                                  QObject::tr("WRN_WARNING"),
+                                  QObject::tr("DEP_OBJECT"),
+                                  QObject::tr("BUT_OK") );
+       return true;
+      }
+    }
+
+  return false;
+}
+
+//=================================================================================
+// function : deactivate()
+// purpose  : Called when GEOM component is deactivated
+//=================================================================================
+void GEOMToolsGUI::deactivate()
+{
+  SalomeApp_Application* app = dynamic_cast< SalomeApp_Application* >( SUIT_Session::session()->activeApplication() );
+  if ( app ) {
+    SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( app->activeStudy() );
+    GEOM_Displayer aDisp (appStudy);
+    aDisp.GlobalSelection();
+    getGeometryGUI()->setLocalSelectionMode(GEOM_ALLOBJECTS);
+  }
+}
 
 //=====================================================================================
 // EXPORTED METHODS
 //=====================================================================================
 extern "C"
 {
-  bool OnGUIEvent(int theCommandID, QAD_Desktop* parent)
-  {return GEOMToolsGUI::OnGUIEvent(theCommandID, parent);}
+#ifdef WIN32
+  __declspec( dllexport )
+#endif
+  GEOMGUI* GetLibGUI( GeometryGUI* parent )
+  {
+    return new GEOMToolsGUI( parent );
+  }
 }