Salome HOME
0021684: EDF 2221 : Display the arguments and the name of the operations
[modules/geom.git] / src / GEOMGUI / GeometryGUI.cxx
index 2792459fc72eeac932f0b7745544d3d8feba4616..3a786e03a0dcc00bb19bfcdce72b1e2bccaead11 100644 (file)
-using namespace std;
-//  File      : GeometryGUI.cxx
-//  Created   : 
-//  Author    : Lucien PIGNOLONI
-//  Project   : SALOME
-//  Module    : GeometryGUI
-//  Copyright : OPEN CASCADE
-//  $Header$
-
+// Copyright (C) 2007-2013  CEA/DEN, EDF R&D, OPEN CASCADE
+//
+// Copyright (C) 2003-2007  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   : GeometryGUI.cxx
+//  Author : Vadim SANDLER, Open CASCADE S.A.S. (vadim.sandler@opencascade.com)
+
+#include <Standard_math.hxx>  // E.A. must be included before Python.h to fix compilation on windows
+#ifdef HAVE_FINITE
+#undef HAVE_FINITE            // VSR: avoid compilation warning on Linux : "HAVE_FINITE" redefined
+#endif
+#include "Python.h"
 #include "GeometryGUI.h"
+#include "GeometryGUI_Operations.h"
+#include "GEOMGUI_OCCSelector.h"
+#include "GEOMGUI_Selection.h"
+#include "GEOMGUI_CreationInfoWdg.h"
+#include "GEOM_Constants.h"
+#include "GEOM_Displayer.h"
+#include "GEOM_AISShape.hxx"
 
-// SALOME Includes
-# include "Utils_ORB_INIT.hxx"
-# include "Utils_SINGLETON.hxx"
+#include "GEOM_Actor.h"
 
-#include "QAD.h"
-#include "QAD_Tools.h"
-#include "QAD_Config.h"
-#include "QAD_Settings.h"
-#include "QAD_RightFrame.h"
-#include "QAD_MessageBox.h"
-#include "QAD_Resource.h"
-#include "QAD_FileDlg.h"
+#include <Material_ResourceMgr.h>
+#include <Material_Model.h>
 
-#include "OCCViewer_ViewPort.h"
-#include "OCCViewer_ViewPort3d.h"
-#include "OCCViewer_Viewer3d.h"
+#include <SUIT_Desktop.h>
+#include <SUIT_MessageBox.h>
+#include <SUIT_ResourceMgr.h>
+#include <SUIT_Session.h>
+#include <SUIT_ViewManager.h>
 
-#include "VTKViewer_RenderWindowInteractor.h"
-#include "VTKViewer_ViewFrame.h"
+#include <OCCViewer_ViewWindow.h>
+#include <OCCViewer_ViewPort3d.h>
+#include <OCCViewer_ViewModel.h>
+#include <OCCViewer_ViewManager.h>
 
-#include "GEOM_Actor.h"
-#include "GEOM_Client.hxx"
-#include "GEOM_AISShape.hxx"
-#include "GEOM_AssemblyBuilder.h"
-#include "GEOM_InteractiveObject.hxx"
+#include <SOCC_ViewModel.h>
+#include <SOCC_ViewWindow.h>
 
-#include "SALOME_NamingService.hxx"
-#include "SALOME_ListIteratorOfListIO.hxx"
-#include "SALOME_InteractiveObject.hxx"
+#include <SVTK_ViewWindow.h>
+#include <SVTK_RenderWindowInteractor.h>
+#include <SVTK_InteractorStyle.h>
+#include <SVTK_ViewModel.h>
 
-#include "SALOMEGUI_ImportOperation.h"
-#include "SALOMEGUI_QtCatchCorbaException.hxx"
-#include "SALOMEGUI_NameDlg.h"            
-#include "utilities.h"
+#include <SalomeApp_Application.h>
+#include <SalomeApp_DataObject.h>
+#include <SalomeApp_Study.h>
+#include <SalomeApp_Tools.h>
+
+#include <LightApp_SelectionMgr.h>
+#include <LightApp_VTKSelector.h>
+#include <LightApp_DataObject.h>
+#include <LightApp_Preferences.h>
+
+#include <SALOME_LifeCycleCORBA.hxx>
+#include <SALOME_ListIO.hxx>
+#include <SALOME_ListIteratorOfListIO.hxx>
+
+#include <SALOMEDSClient_ClientFactory.hxx>
+#include <SALOMEDSClient_IParameters.hxx>
+
+#include <Basics_OCCTVersion.hxx>
+
+// External includes
+#include <QMenu>
+#include <QTime>
+#include <QAction>
+#include <QFileInfo>
+#include <QString>
+#include <QPainter>
+#include <QSignalMapper>
 
-// Open CASCADE Includes
-#include <AIS_Shape.hxx>
-#include <AIS_InteractiveContext.hxx>
-#include <AIS_ListIteratorOfListOfInteractive.hxx>
 #include <AIS_Drawer.hxx>
-#include <AIS_Trihedron.hxx>
+#include <AIS_ListOfInteractive.hxx>
+#include <AIS_ListIteratorOfListOfInteractive.hxx>
 #include <Prs3d_Drawer.hxx>
 #include <Prs3d_IsoAspect.hxx>
-#include <Prs3d_ShadingAspect.hxx>
-
-#include <BRep_Builder.hxx>
-#include <BRepAdaptor_Surface.hxx>
-#include <BRepAdaptor_Curve.hxx>
-#include <BRep_Tool.hxx>
-#include <BRepGProp.hxx>
-#include <BRepExtrema_DistShapeShape.hxx>
-#include <GProp_GProps.hxx>
-#include <GProp_PrincipalProps.hxx>
-
-#include <BRepAlgoAPI_Fuse.hxx>
-#include <BRepAlgoAPI_Cut.hxx>
-#include <BRepAlgoAPI_Section.hxx>
-#include <BRepAlgoAPI_Common.hxx>
-#include <BRepPrimAPI_MakeBox.hxx>
-#include <BRepPrimAPI_MakeCylinder.hxx>
-#include <BRepPrimAPI_MakePrism.hxx>
-#include <BRepPrimAPI_MakeSphere.hxx>
-#include <BRepPrimAPI_MakeRevol.hxx>
-#include <BRepPrimAPI_MakeTorus.hxx>
-#include <BRepPrimAPI_MakeCone.hxx>
-#include <BRepBuilderAPI_MakeVertex.hxx>
-#include <BRepBuilderAPI_MakeEdge.hxx>
-#include <BRepBuilderAPI_MakeWire.hxx>
-#include <BRepBuilderAPI_MakeFace.hxx>
-#include <BRepBuilderAPI_Transform.hxx>
-
-#include <BRepTools.hxx>
-#include <BRepTools_WireExplorer.hxx>
-#include <BRepCheck_Analyzer.hxx>
-
-#include <Geom_Circle.hxx>
-#include <Geom_Line.hxx>
-#include <Geom_Plane.hxx>
-#include <Geom_Surface.hxx>
-#include <Geom_Axis2Placement.hxx>
-#include <Geom_TrimmedCurve.hxx>
-
-#include <GeomAPI_ProjectPointOnCurve.hxx>
-#include <GC_MakeArcOfCircle.hxx>
-#include <gp_Pnt.hxx>
-#include <gp_Circ.hxx>
-#include <gp_Pln.hxx>
-#include <gp_Mat.hxx>
-
-#include <TopTools_MapOfShape.hxx>
-#include <TopTools_MapIteratorOfMapOfShape.hxx>
-#include <TopTools_ListIteratorOfListOfShape.hxx>
-#include <TopoDS_Iterator.hxx>
-
-//VRV: OCC 4.0 migration
-#include <IGESControl_Writer.hxx>
-#include <IGESControl_Controller.hxx>
-#include <STEPControl_Writer.hxx>
-//#include <STEPControlStd_StepModelType.hxx>
-//VRV: OCC 4.0 migration
-
-#include <TopoDS.hxx>
-#include <TopoDS_Wire.hxx>
-#include <TopoDS_Shape.hxx>
-#include <TopoDS_Compound.hxx>
-#include <TopAbs.hxx>
-#include <TopExp.hxx>
-#include <TopExp_Explorer.hxx>
-
-#include <Precision.hxx>
-#include <ProjLib.hxx>
-#include <ElSLib.hxx>
-
-#include <IFSelect_ReturnStatus.hxx>
-#include <Interface_Static.hxx>
-
-// QT Includes
-#define         INCLUDE_MENUITEM_DEF
-#include <qapplication.h>
-#include <qmenudata.h>
-#include <qmenubar.h>
-#include <qpopupmenu.h>
-#include <qfont.h>
-#include <qstring.h>
-#include <qcheckbox.h>
-#include <qcolordialog.h>
-#include <qmessagebox.h>
-#include <qspinbox.h>
-#include <qlist.h>
-#include <qwidget.h> 
-#include <qevent.h> 
-#include <qlineedit.h>
-#include "GeometryGUI_aParameterDlg.h"
-
-#include "GeometryGUI_PointDlg.h"         // Method POINT
-#include "GeometryGUI_BoxDlg.h"           // Method BOX
-#include "GeometryGUI_VectorDlg.h"        // Method VECTOR
-#include "GeometryGUI_PlaneDlg.h"         // Method PLANE
-#include "GeometryGUI_PrismDlg.h"         // Method PRISM
-#include "GeometryGUI_FuseDlg.h"          // Method FUSE
-#include "GeometryGUI_CommonDlg.h"        // Method COMMON
-#include "GeometryGUI_CutDlg.h"           // Method CUT
-#include "GeometryGUI_SectionDlg.h"       // Method SECTION
-
-#include "GeometryGUI_LineDlg.h"          // Method LINE
-#include "GeometryGUI_ScaleDlg.h"         // Method SCALE
-#include "GeometryGUI_MirrorDlg.h"        // Method MIRROR
-#include "GeometryGUI_SphereDlg.h"        // Method SPHERE
-#include "GeometryGUI_CircleDlg.h"        // Method CIRCLE
-#include "GeometryGUI_RevolDlg.h"         // Method REVOL
-#include "GeometryGUI_RotationDlg.h"      // Method ROTATION
-#include "GeometryGUI_TranslationDlg.h"   // Method TRANSLATION
-#include "GeometryGUI_MultiTranslationDlg.h"   // Method MULTI TRANSLATION
-#include "GeometryGUI_MultiRotationDlg.h" // Method MULTI ROTATION
-#include "GeometryGUI_ArcDlg.h"           // Method ARC
-#include "GeometryGUI_PipeDlg.h"          // Method PIPE
-#include "GeometryGUI_CylinderDlg.h"      // Method CYLINDER
-#include "GeometryGUI_ConeDlg.h"          // Method CONE
-#include "GeometryGUI_TorusDlg.h"         // Method TORUS
-#include "GeometryGUI_FillingDlg.h"       // Method FILLING
-#include "GeometryGUI_SewingDlg.h"        // Method SEWING
-#include "GeometryGUI_CompoundDlg.h"      // Method GEOM::COMPOUND
-#include "GeometryGUI_EdgeDlg.h"          // Method GEOM::EDGE
-#include "GeometryGUI_OrientationDlg.h"   // Method ORIENTATION
-#include "GeometryGUI_PartitionDlg.h"     // Method PARTITION
-#include "GeometryGUI_SubShapeDlg.h"      // Method EXPLODE
-#include "GeometryGUI_WireDlg.h"          // Method GEOM::WIRE
-#include "GeometryGUI_WorkingPlaneDlg.h"  // Method WORKING PLANE
-#include "GeometryGUI_PropertiesDlg.h"    // Method PROPERTIES
-#include "GeometryGUI_CenterMassDlg.h"    // Method CENTER MASS
-#include "GeometryGUI_InertiaDlg.h"       // Method INERTIA
-#include "GeometryGUI_FaceDlg.h"          // Method GEOM::FACE
-#include "GeometryGUI_FilletDlg.h"        // Method FILLET
-#include "GeometryGUI_ChamferDlg.h"       // Method CHAMFER
-#include "GeometryGUI_FillingHoleDlg.h"   // Method FILLING HOLE
-#include "GeometryGUI_SuppressFacesDlg.h" // Method SUPPRESS FACES
-#include "GeometryGUI_CheckShape.h"       // Method CHECKSHAPE
-#include "GeometryGUI_ArchimedeDlg.h"     // Method ARCHIMEDE
-#include "GeometryGUI_TransparencyDlg.h"  // Method TRANSPARENCY adjustement
-#include "GeometryGUI_NbIsosDlg.h"        // Method ISOS adjustement
-#include "GeometryGUI_BndBoxDlg.h"        // Method BNDBOX
-#include "GeometryGUI_MaxToleranceDlg.h"  // Method MAXTOLERANCE
-#include "GeometryGUI_WhatisDlg.h"        // Method WHATIS
-#include "GeometryGUI_DistanceDlg.h"      // Method DISTANCE
-#include "GeometryGUI_SuppressHoleDlg.h"  // Method SUPPRESS HOLE
-
-
-static Handle(AIS_Shape) theConstructionShape = new AIS_Shape(TopoDS_Shape());
-static Handle(GEOM_AISShape) theSelectedShape = new GEOM_AISShape(TopoDS_Shape(), "");
-
-static AIS_ListOfInteractive ListDisplayedObject;
-
-static bool Settings_AddInStudy = false;
-static bool Settings_Copy = false;
-static Standard_CString Fatherior = "";
-static GEOM_Client ShapeReader;
-
-/* The object itself created in the static method 'GetOrCreateGeometryGUI()' */
-static GeometryGUI* GeomGUI = 0;
+#include <Aspect_TypeOfMarker.hxx>
+#include <OSD_SharedLibrary.hxx>
+#include <NCollection_DataMap.hxx>
 
+#if OCC_VERSION_LARGE > 0x06040000 // Porting to OCCT6.5.1
+#include <TColStd_HArray1OfByte.hxx>
+#else
+#include <Graphic3d_HArray1OfBytes.hxx>
+#endif
 
+#include <utilities.h>
 
-//=======================================================================
-// class   : CustomItem
-// purpose : Set Font to a text.
-//=======================================================================
-class CustomItem : public QCustomMenuItem
-{
-public:
-  CustomItem( const QString& s, const QFont& f )
-    : string( s ), font( f ){};
-  ~CustomItem(){}
-  
-  void paint( QPainter* p, const QColorGroup& /*cg*/, bool /*act*/, bool /*enabled*/, int x, int y, int w, int h )
-  {
-    p->setFont ( font );
-    p->drawText( x, y, w, h, AlignHCenter | AlignVCenter | ShowPrefix | DontClip, string );
+#include <vtkCamera.h>
+#include <vtkRenderer.h>
+
+#include <Standard_Failure.hxx>
+#include <Standard_ErrorHandler.hxx>
+
+#include "GEOM_version.h"
+#include "GEOMImpl_Types.hxx" // dangerous hxx (defines short-name macros) - include after all
+
+extern "C" {
+  Standard_EXPORT CAM_Module* createModule() {
+    return new GeometryGUI();
   }
-  
-  QSize sizeHint()
-  {
-    return QFontMetrics( font ).size( AlignHCenter | AlignVCenter | ShowPrefix | DontClip,  string );
+
+  Standard_EXPORT char* getModuleVersion() {
+    return (char*)GEOM_VERSION_STR;
   }
-private:
-  QString string;
-  QFont font;
-};
+}
 
+GeometryGUI::StudyTextureMap GeometryGUI::myTextureMap;
 
+GEOM::GEOM_Gen_var GeometryGUI::myComponentGeom = GEOM::GEOM_Gen::_nil();
 
+GEOM::GEOM_Gen_var GeometryGUI::GetGeomGen()
+{
+  // Bug 12290: exception in Mesh GUI on GEOMBase::GetShape() if Geometry GUI hasn't been loaded
+  if (CORBA::is_nil(myComponentGeom))
+    InitGeomGen();
+  return GeometryGUI::myComponentGeom;
+}
 
-//=======================================================================
-// function : GeometryGUI()
-// purpose  : Constructor
-//=======================================================================
-GeometryGUI::GeometryGUI() :
-  QObject()
+bool GeometryGUI::InitGeomGen()
 {
+  GeometryGUI aGG;
+  if ( CORBA::is_nil( myComponentGeom ) ) return false;
+  return true;
 }
 
 //=======================================================================
-// function : ~GeometryGUI()
-// purpose  : Destructor
+// function : ClientSObjectToObject
+// purpose  :
 //=======================================================================
-GeometryGUI::~GeometryGUI()
+CORBA::Object_var GeometryGUI::ClientSObjectToObject (_PTR(SObject) theSObject)
 {
+  _PTR(GenericAttribute) anAttr;
+  CORBA::Object_var anObj;
+  try {
+    std::string aValue = theSObject->GetIOR();
+    if (strcmp(aValue.c_str(), "") != 0) {
+      CORBA::ORB_ptr anORB = SalomeApp_Application::orb();
+      anObj = anORB->string_to_object(aValue.c_str());
+    }
+  } catch(...) {
+    INFOS("ClientSObjectToObject - Unknown exception was occured!!!");
+  }
+  return anObj._retn();
 }
 
-
 //=======================================================================
-// function : GetGeometryGUI() static
-// purpose  : Returns current 'GeomGUI' a static pointer
+// function : ClientStudyToStudy
+// purpose  :
 //=======================================================================
-GeometryGUI* GeometryGUI::GetGeometryGUI( )
+SALOMEDS::Study_var GeometryGUI::ClientStudyToStudy (_PTR(Study) theStudy)
 {
-  return GeomGUI;
+  SALOME_NamingService *aNamingService = SalomeApp_Application::namingService();
+  CORBA::Object_var aSMObject = aNamingService->Resolve("/myStudyManager");
+  SALOMEDS::StudyManager_var aStudyManager = SALOMEDS::StudyManager::_narrow(aSMObject);
+  int aStudyID = theStudy->StudyId();
+  SALOMEDS::Study_var aDSStudy = aStudyManager->GetStudyByID(aStudyID);
+  return aDSStudy._retn();
 }
 
-
-//=====================================================================================
-// function : GetIndex()
-// purpose  : Get the index of a sub shape in a main shape : index start at 1
-//=====================================================================================
-int  GeometryGUI::GetIndex(const TopoDS_Shape& subshape, 
-      const TopoDS_Shape& shape, 
-      int /*ShapeType*/) 
-{ 
-  if( shape.IsNull() || subshape.IsNull() ) 
-    return -1 ; 
-  
-  int index = 1; 
-  if (subshape.ShapeType() == TopAbs_COMPOUND) 
-  { 
-    TopoDS_Iterator it; 
-    TopTools_ListOfShape CL; 
-    CL.Append( shape ); 
-    TopTools_ListIteratorOfListOfShape itC; 
-    for (itC.Initialize( CL ); itC.More(); itC.Next()) 
-      { 
-       for (it.Initialize( itC.Value() );  it.More(); it.Next()) 
-         { 
-           if ( it.Value().ShapeType() == TopAbs_COMPOUND) 
-             {
-               if (it.Value().IsSame(subshape)) 
-                 return index; 
-               else 
-                 index++; 
-               CL.Append( it.Value() ); 
-             }
-         } 
-      } 
-  } 
-  else 
-    { 
-      TopExp_Explorer Exp ( shape,  subshape.ShapeType() ); 
-      TopTools_MapOfShape M; 
-      while ( Exp.More() ) 
-       {
-         if ( M.Add(Exp.Current()) ) 
-           { 
-             if ( Exp.Current().IsSame(subshape) ) 
-               return index; 
-             index++; 
-           } 
-         Exp.Next(); 
-       } 
-    } 
-  return -1; 
-} 
+void GeometryGUI::Modified (bool theIsUpdateActions)
+{
+  if ( SalomeApp_Application* app = dynamic_cast<SalomeApp_Application*>( SUIT_Session::session()->activeApplication() ) ) {
+    if ( SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( app->activeStudy() ) ) {
+      appStudy->Modified();
+      if ( theIsUpdateActions )
+        app->updateActions();
+    }
+  }
+}
 
 //=======================================================================
-// function : GetOrCreateGeometryGUI()
-// purpose  : Gets or create an object 'GeometryGUI' with initialisations
-//          : Returns 'GeomGUI' as a pointer
+// function : GeometryGUI::GeometryGUI()
+// purpose  : Constructor
 //=======================================================================
-GeometryGUI* GeometryGUI::GetOrCreateGeometryGUI( QAD_Desktop* desktop )
+GeometryGUI::GeometryGUI() :
+  SalomeApp_Module( "GEOM" )
 {
-  if( GeomGUI == 0 ) {
-    GeomGUI = new GeometryGUI;
-    GeomGUI->myActiveDialogBox = 0 ;
-    GeomGUI->mySimulationShape = new AIS_Shape(TopoDS_Shape());
-    GeomGUI->myState = -1 ;
-    GeomGUI->myDesktop = desktop ; 
-    GeomGUI->myActiveStudy = desktop->getActiveStudy();
-    GeomGUI->mySimulationActor = vtkActorCollection::New() ;
-
-    GeomGUI->myShadingColor = Quantity_Color( Quantity_NOC_GOLDENROD );
-
-    Engines::Component_var comp = desktop->getEngine("FactoryServer", "GEOM");
-    GeomGUI->myComponentGeom = GEOM::GEOM_Gen::_narrow(comp);
-    
-    /* GetCurrentStudy */
-    int studyId = GeomGUI->myActiveStudy->getStudyId();
-    GeomGUI->myComponentGeom->GetCurrentStudy(studyId);
-
-    GeomGUI->myNbGeom = GeomGUI->myComponentGeom->NbLabels();
-  } else {
-    /* study may have changed */
-    GeomGUI->myActiveStudy = desktop->getActiveStudy();
+  if ( CORBA::is_nil( myComponentGeom ) )
+  {
+    Engines::EngineComponent_var comp =
+      SalomeApp_Application::lcc()->FindOrLoad_Component( "FactoryServer", "GEOM" );
+    myComponentGeom = GEOM::GEOM_Gen::_narrow( comp );
   }
-  return GeomGUI;
-}
 
+  myActiveDialogBox = 0;
 
-//=================================================================================
-// function : VertexToPoint()
-// purpose  : If S can be converted in a gp_Pnt returns true and the result is P
-//=================================================================================
-bool GeometryGUI::VertexToPoint( const TopoDS_Shape& S, gp_Pnt& P )
-{
-  if( S.IsNull() || S.ShapeType() != TopAbs_VERTEX )
-    return false ;
-  P = BRep_Tool::Pnt(TopoDS::Vertex( S ));
-  return true ;
-}
+  gp_Pnt origin = gp_Pnt(0., 0., 0.);
+  gp_Dir direction = gp_Dir(0., 0., 1.);
+  myWorkingPlane = gp_Ax3(origin, direction);
 
+  myDisplayer = 0;
+  myLocalSelectionMode = GEOM_ALLOBJECTS;
 
-//=================================================================================
-// function : LinearEdgeExtremities()
-// purpose  : If S can be converted in a linear edge and if initial an final points
-//          : distance is sufficient, returns true else returns false.
-//          : Resulting points are respectively P1 and P2
-//=================================================================================
-bool GeometryGUI::LinearEdgeExtremities( const TopoDS_Shape& S,  gp_Pnt& P1, gp_Pnt& P2 )
-{
-  if( S.IsNull() || S.ShapeType() != TopAbs_EDGE )
-    return false ;
-  BRepAdaptor_Curve curv(TopoDS::Edge(S));
-  if (curv.GetType() != GeomAbs_Line)
-    return false ;
-
-  curv.D0( curv.FirstParameter(), P1 );
-  curv.D0( curv.LastParameter(), P2 );
+  myCreationInfoWdg = 0;
 
-  if( P1.Distance(P2) <= Precision::Confusion() )
-    return false ;
-  
-  return true ;
+  connect( Material_ResourceMgr::resourceMgr(), SIGNAL( changed() ), this, SLOT( updateMaterials() ) );
 }
 
-//=================================================================================
-// function : GetBipointDxDyDz()
-// purpose  : 
-//=================================================================================
-void GeometryGUI::GetBipointDxDyDz( gp_Pnt P1, gp_Pnt P2, double& dx, double& dy, double& dz )
+//=======================================================================
+// function : GeometryGUI::~GeometryGUI()
+// purpose  : Destructor
+//=======================================================================
+GeometryGUI::~GeometryGUI()
 {
-  dx = P2.X() - P1.X() ;
-  dy = P2.Y() - P1.Y() ;
-  dz = P2.Z() - P1.Z() ;
-  return ;
+  while (!myOCCSelectors.isEmpty())
+    delete myOCCSelectors.takeFirst();
+
+  while (!myVTKSelectors.isEmpty())
+    delete myVTKSelectors.takeFirst();
+
+  qDeleteAll(myGUIMap);
 }
 
 //=======================================================================
-// function : GetTopoFromSelection()
-// purpose  : Define tds from a single selection and retuen true
+// function : GeometryGUI::getLibrary()
+// purpose  : get or load GUI library by name [ internal ]
 //=======================================================================
-bool GeometryGUI::GetTopoFromSelection(SALOME_Selection *Sel, TopoDS_Shape& tds) 
+typedef GEOMGUI* (*LibraryGUI)( GeometryGUI* );
+GEOMGUI* GeometryGUI::getLibrary( const QString& libraryName )
 {
-  if(Sel->IObjectCount() != 1)
-    return false ;
-  
-  Handle(SALOME_InteractiveObject) IO = Sel->firstIObject();
-  /* case SObject */
-  if ( IO->hasEntry() ) {
-    SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->getStudyDocument();
-    SALOMEDS::SObject_var obj = aStudy->FindObjectID( IO->getEntry() );
-    SALOMEDS::GenericAttribute_var anAttr;
-    SALOMEDS::AttributeIOR_var     anIOR;
-    if ( !obj->_is_nil() ) {
-       if (obj->FindAttribute(anAttr, "AttributeIOR")) {
-         anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-        tds = this->GetShapeFromIOR(anIOR->Value());
-        if(tds.IsNull() )
-          return false ;
-        else
-          return true ;
-       }
+  if ( !myGUIMap.contains( libraryName ) ) {
+    // try to load library if it is not loaded yet
+#ifndef WNT
+    QString dirs = getenv( "LD_LIBRARY_PATH" );
+    QString sep  = ":";
+#else
+    QString dirs = getenv( "PATH" );
+    QString sep  = ";";
+#endif
+    if ( !dirs.isEmpty() ) {
+      QStringList dirList = dirs.split(sep, QString::SkipEmptyParts ); // skip empty entries
+      QListIterator<QString> it( dirList ); it.toBack();
+      while ( it.hasPrevious() ) {
+        QFileInfo fi( Qtx::addSlash( it.previous() ) + libraryName );
+        if ( fi.exists() ) {
+          OSD_SharedLibrary aSharedLibrary( fi.fileName().toLatin1().constData() );
+          bool res = aSharedLibrary.DlOpen( OSD_RTLD_LAZY );
+          if ( !res ) {
+            MESSAGE( "Can't open library : " << aSharedLibrary.DlError() );
+            continue; // continue search further
+          }
+          OSD_Function osdF = aSharedLibrary.DlSymb( "GetLibGUI" );
+          if ( osdF != NULL ) {
+            LibraryGUI func = (GEOMGUI* (*) (GeometryGUI*))osdF;
+            GEOMGUI* libGUI = (*func)( this );
+            if ( libGUI ) {
+              myGUIMap[ libraryName ] = libGUI;
+              break; // found and loaded!
+            }
+          }
+        }
+      }
     }
   }
-
-  if ( IO->IsInstance(STANDARD_TYPE(GEOM_InteractiveObject)) ) {
-    Standard_CString ior = "";
-    Handle(GEOM_InteractiveObject) GIObject = Handle(GEOM_InteractiveObject)::DownCast( IO );
-    ior = GIObject->getIOR();
-    tds = this->GetShapeFromIOR(ior);
-    if(tds.IsNull() )
-      return false ;
-    else
-      return true ;
-  }
-  
-  return false;
+  return myGUIMap.contains( libraryName ) ? myGUIMap[ libraryName ] : 0;
 }
 
+//=======================================================================
+// function : GeometryGUI::ActiveWorkingPlane()
+// purpose  : Activate Working Plane View
+//=======================================================================
+void GeometryGUI::ActiveWorkingPlane()
+{
+  gp_Dir DZ = myWorkingPlane.Direction();
+  gp_Dir DY = myWorkingPlane.YDirection();
+
+  SUIT_ViewWindow* window = application()->desktop()->activeWindow();
+  bool ViewOCC = ( window && window->getViewManager()->getType() == OCCViewer_Viewer::Type() );
+  bool ViewVTK = ( window && window->getViewManager()->getType() == SVTK_Viewer::Type() );
 
+  if ( ViewOCC ) {
+    OCCViewer_ViewWindow* vw = dynamic_cast<OCCViewer_ViewWindow*>( window );
+    if ( vw ) {
+      Handle(V3d_View) view3d =  vw->getViewPort()->getView();
 
-//=====================================================================================
-// function : PrepareSubShapeSelection()
-// purpose  : ( localContextId of the method is opened and defined here)
-//=====================================================================================
-bool GeometryGUI::PrepareSubShapeSelection(const int SubShapeType, Standard_Integer& returnLocalContextId)
-{
-  //* Test the type of viewer */
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-    return false;
-  
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  
-  /* local context opening */
-  SetDisplayedObjectList() ;
-  OnDisplayOnly();
-
-  returnLocalContextId = ic->OpenLocalContext(Standard_False, Standard_True, Standard_False, Standard_False) ;
-  SALOME_Selection* Sel = SALOME_Selection::Selection( this->myActiveStudy->getSelection() );
-  SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-  for(;It.More();It.Next()) {
-    Handle(SALOME_InteractiveObject) IObject = It.Value();
-    Standard_Boolean found;
-    Handle(GEOM_AISShape) Shape = ConvertIOinGEOMAISShape(IObject, found);
-    if ( found && SubShapeType >= Shape->Shape().ShapeType()) {
-      ic->Load(Shape, (8 - SubShapeType), Standard_True);
-      ic->HilightWithColor(Shape, Quantity_NOC_RED);
+      view3d->SetProj(DZ.X(), DZ.Y(), DZ.Z());
+      view3d->SetUp(DY.X(), DY.Y(), DY.Z());
+      vw->onViewFitAll();
     }
   }
-  myDesktop->putInfo (tr("GEOM_PRP_SELECT_SUBSHAPES"));
-  return true ;
-}
+  else if ( ViewVTK ) {
+    SVTK_ViewWindow* vw = dynamic_cast<SVTK_ViewWindow*>( window );
+    if ( vw ) {
+      vtkCamera* camera = vw->getRenderer()->GetActiveCamera();
 
+      camera->SetPosition(DZ.X(), DZ.Y(), DZ.Z());
+      camera->SetViewUp(DY.X(), DY.Y(), DY.Z());
+      camera->SetFocalPoint(0,0,0);
 
-
-//=====================================================================================
-// function : PrepareSubShapeSelectionArgumentShape()
-// purpose  : ( localContextId of the method is opened and defined here )
-//=====================================================================================
-bool GeometryGUI::PrepareSubShapeSelectionArgumentShape( const TopoDS_Shape& aShape,
-                                                        const int SubShapeType,
-                                                        Standard_Integer& returnLocalContextId )
-{
-  //* Test the type of viewer */
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-    return false;
-  
-  if( aShape.IsNull() )
-    return false ;
-  
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  
-  /* local context opening */
-  SetDisplayedObjectList() ;
-  OnDisplayOnly();
-  
-  returnLocalContextId = ic->OpenLocalContext(Standard_False, Standard_True, Standard_False, Standard_False) ;
-  
-  Handle(GEOM_AISShape) Shape = new GEOM_AISShape(aShape, "") ;  
-  ic->Display(Shape, 0, (8 - SubShapeType));
-
-  //  Not Load(...) but Display(...)
-  //  ic->Load(Shape, (8 - SubShapeType), Standard_True);
-  ic->HilightWithColor(Shape, Quantity_NOC_RED);
-  
-  myDesktop->putInfo (tr("GEOM_PRP_SELECT_SUBSHAPES"));
-  return true ;
+      vw->onFitAll();
+    }
+  }
 }
 
-
-
 //=======================================================================
-// function : GetNameOfSelectedIObjects()
-// purpose  : Define the name geom++ or other name of mono or multi sel.
+// function : GeometryGUI::SetActiveDialogBox()
+// purpose  : Set active dialog box
 //=======================================================================
-int GeometryGUI::GetNameOfSelectedIObjects( SALOME_Selection* Sel,
-                                           QString& aName )
+void GeometryGUI::SetActiveDialogBox( QDialog* aDlg )
 {
-  int nbSel = Sel->IObjectCount() ;
-  if ( nbSel == 1 ) {
-    Handle(SALOME_InteractiveObject) IObject = Sel->firstIObject();
-    aName = IObject->getName();
-  } else {
-    aName = tr( "%1_objects" ).arg( nbSel );
-  }
-  return nbSel;
+  myActiveDialogBox = (QDialog*)aDlg;
 }
 
-
 //=======================================================================
-// function : ConvertIOinGEOMAISShape()
-// purpose  :
+// function : GeometryGUI::EmitSignalDeactivateDialog()
+// purpose  : Emit a signal to deactivate the active dialog Box
 //=======================================================================
-Handle(GEOM_AISShape) GeometryGUI::ConvertIOinGEOMAISShape( const Handle(SALOME_InteractiveObject)& IO,
-                                                           Standard_Boolean& testResult,
-                                                           bool onlyInActiveView )
+void GeometryGUI::EmitSignalDeactivateDialog()
 {
-  Handle(GEOM_AISShape) res;
-  int nbSf = myActiveStudy->getStudyFramesCount();
-  for ( int i = 0; i < nbSf; i++ ) {
-    QAD_StudyFrame* sf = myActiveStudy->getStudyFrame(i);
-    if ( sf->getTypeView() == VIEW_OCC ) {
-      OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getViewer();
-      Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-
-      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());
-         if ( aSh->hasIO() ) {
-           Handle(GEOM_InteractiveObject) GIO = Handle(GEOM_InteractiveObject)::DownCast(aSh->getIO());
-           if ( GIO->isSame( IO ) ) {
-             if ( onlyInActiveView ) {
-               if ( sf == myActiveStudy->getActiveStudyFrame() ) {
-                 testResult = true;
-                 return aSh;
-               }
-             } else {
-               testResult = true;
-               return aSh;
-             }
-           }
-         }
-       }
-       ite.Next();
-      }  
-    }
-  }
-  testResult = false;
-  return res;
+  emit SignalDeactivateActiveDialog();
 }
 
 //=======================================================================
-// function : ConvertIORinGEOMAISShape()
-// purpose  :
+// function : GeometryGUI::EmitSignalCloseAllDialogs()
+// purpose  : Emit a signal to close all non modal dialogs box
 //=======================================================================
-Handle(GEOM_AISShape) GeometryGUI::ConvertIORinGEOMAISShape( const char * IOR,
-                                                            Standard_Boolean& testResult,
-                                                            bool onlyInActiveView )
+void GeometryGUI::EmitSignalCloseAllDialogs()
 {
-Handle(GEOM_AISShape) resultShape;
-testResult = false;
-  int nbSf = myActiveStudy->getStudyFramesCount();
-  for ( int i = 0; i < nbSf; i++ ) 
-    {
-      QAD_StudyFrame* sf = myActiveStudy->getStudyFrame(i);
-      if ( sf->getTypeView() == VIEW_OCC ) 
-       {
-         OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getViewer();
-         Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-
-         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());
-                 if (  aSh->hasIO() ) 
-                   {
-                     Handle(GEOM_InteractiveObject) GIO = Handle(GEOM_InteractiveObject)::DownCast(aSh->getIO());
-                     Standard_CString theIOR = GIO->getIOR();
-                     if ( strcmp( IOR, theIOR ) == 0 ) 
-                       {
-                         if ( onlyInActiveView ) 
-                           {
-                             if ( sf == myActiveStudy->getActiveStudyFrame() ) 
-                               {
-                                 testResult = true;
-                                 resultShape = aSh;
-                                 return resultShape; 
-                               }
-                           } 
-                         else 
-                           {
-                             testResult = true;
-                             resultShape = aSh;
-                             return resultShape; 
-                           }
-                       }
-                   }
-               }
-             ite.Next();
-           }  
-       }
-    }
-return  resultShape;
+  emit SignalCloseAllDialogs();
 }
+
 //=======================================================================
-// function : ConvertIORinGEOMActor()
-// purpose  :
+// function : GeometryGUI::EmitSignalDefaultStepValueChanged()
+// purpose  : Emit a signal to inform that default real spin box step has
+//            been changed
 //=======================================================================
-GEOM_Actor* GeometryGUI::ConvertIORinGEOMActor( const char * IOR,
-                                               Standard_Boolean& testResult,
-                                               bool onlyInActiveView )
+void GeometryGUI::EmitSignalDefaultStepValueChanged(double newVal)
 {
-  int nbSf = GeomGUI->myActiveStudy->getStudyFramesCount();
-  for ( int i = 0; i < nbSf; i++ ) {
-    QAD_StudyFrame* sf = myActiveStudy->getStudyFrame(i);
-    if ( sf->getTypeView() == VIEW_VTK ) {
-      vtkRenderer* Renderer = ((VTKViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getRenderer();
-      vtkActorCollection* theActors = Renderer->GetActors();
-      theActors->InitTraversal();
-      vtkActor *ac = theActors->GetNextActor();
-      while(!(ac==NULL)) {
-       if ( ac->IsA("GEOM_Actor") ) {
-         GEOM_Actor* anActor = GEOM_Actor::SafeDownCast( ac );
-         if ( anActor->hasIO() ) {
-           Handle(GEOM_InteractiveObject) GIO = Handle(GEOM_InteractiveObject)::DownCast(anActor->getIO());
-           Standard_CString theIOR = GIO->getIOR();
-           if ( strcmp( IOR, theIOR ) == 0 ) {
-             if ( onlyInActiveView ) {
-               if ( sf == GeomGUI->myActiveStudy->getActiveStudyFrame() ) {
-                 testResult = true;
-                 return anActor;
-               }
-             } else {
-               testResult = true;
-               return anActor;
-             }
-           }
-         }
-       }
-       ac = theActors->GetNextActor();
-      }
-    }
-  }
-  testResult = false;
-  return GEOM_Actor::New();
+  emit SignalDefaultStepValueChanged(newVal);
 }
 
 //=======================================================================
-// function : ConvertIOinGEOMShape()
-// purpose  :
+// function : GeometryGUI::OnGUIEvent()
+// purpose  : common slot for all menu/toolbar actions
 //=======================================================================
-GEOM::GEOM_Shape_ptr GeometryGUI::ConvertIOinGEOMShape( const Handle(SALOME_InteractiveObject)& IO,
-                                                 Standard_Boolean& testResult )
+void GeometryGUI::OnGUIEvent()
 {
-  GEOM::GEOM_Shape_ptr aShape ;
-  testResult = false ;
-
-  /* case SObject */
-  if ( IO->hasEntry() ) {
-    SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->getStudyDocument();
-    SALOMEDS::SObject_var obj = aStudy->FindObjectID( IO->getEntry() );
-    SALOMEDS::GenericAttribute_var anAttr;
-    SALOMEDS::AttributeIOR_var     anIOR;
-    if ( !obj->_is_nil() ) {
-       if (obj->FindAttribute(anAttr, "AttributeIOR")) {
-         anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-        aShape = myComponentGeom->GetIORFromString(anIOR->Value()) ;
-        testResult = true ;
-        return aShape;
-       }
-    }
-  }
-  /* case Graphical Object */
-  if ( IO->IsInstance(STANDARD_TYPE(GEOM_InteractiveObject)) ) {
-    Handle(GEOM_InteractiveObject) GIObject = Handle(GEOM_InteractiveObject)::DownCast( IO );
-    Standard_CString ior = GIObject->getIOR();
-    testResult = true ;
-    aShape = myComponentGeom->GetIORFromString(ior) ;
-    return aShape;
-  } 
-  return aShape ;
-}
+  const QObject* obj = sender();
+  if ( !obj || !obj->inherits( "QAction" ) )
+    return;
+  int id = actionId((QAction*)obj);
+  if ( id != -1 )
+    OnGUIEvent( id );
+}
+
+//=======================================================================
+// function : GeometryGUI::OnGUIEvent()
+// purpose  : manage all events on GUI [static]
+//=======================================================================
+void GeometryGUI::OnGUIEvent( int id, const QVariant& theParam )
+{
+  SUIT_Application* anApp = application();
+  if (!anApp) return;
+  SUIT_Desktop* desk = anApp->desktop();
+
+  // check type of the active viewframe
+  SUIT_ViewWindow* window = desk->activeWindow();
+  bool ViewOCC = ( window && window->getViewManager()->getType() == OCCViewer_Viewer::Type() );
+  bool ViewVTK = ( window && window->getViewManager()->getType() == SVTK_Viewer::Type() );
+  // if current viewframe is not of OCC and not of VTK type - return immediately
+  // fix for IPAL8958 - allow some commands to execute even when NO viewer is active (rename for example)
+  QList<int> NotViewerDependentCommands;
+  NotViewerDependentCommands << GEOMOp::OpDelete
+                             << GEOMOp::OpShow
+                             << GEOMOp::OpShowOnly
+                             << GEOMOp::OpShowOnlyChildren
+                             << GEOMOp::OpDiscloseChildren
+                             << GEOMOp::OpConcealChildren
+                             << GEOMOp::OpUnpublishObject
+                             << GEOMOp::OpPublishObject
+                             << GEOMOp::OpPointMarker;
+  if ( !ViewOCC && !ViewVTK && !NotViewerDependentCommands.contains( id ) )
+      return;
 
+  // fix for IPAL9103, point 2
+  if ( CORBA::is_nil( GetGeomGen() ) ) {
+    SUIT_MessageBox::critical( desk, tr( "GEOM_ERROR" ), tr( "GEOM_ERR_GET_ENGINE" ), tr( "GEOM_BUT_OK" ) );
+    return;
+  }
 
-//=======================================================================
-// function : ConvertListOfIOInListOfIOR()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::ConvertListOfIOInListOfIOR( const SALOME_ListIO& aList,
-                                             GEOM::GEOM_Gen::ListOfIOR& listIOR )
-{
-  int nbSel = aList.Extent();  
-  listIOR.length(nbSel) ;
-  int j=0;
-  SALOME_ListIteratorOfListIO It( aList );
-  for ( int i=0; It.More(); It.Next(), i++ ) 
-    {
-      Handle(SALOME_InteractiveObject) IObject = It.Value();
-      
-      if ( IObject->hasEntry() ) 
-       {
-         SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->getStudyDocument();
-         SALOMEDS::SObject_var obj = aStudy->FindObjectID( IObject->getEntry() );
-          SALOMEDS::GenericAttribute_var anAttr;
-          SALOMEDS::AttributeIOR_var     anIOR;
-         if ( !obj->_is_nil() && obj->FindAttribute(anAttr, "AttributeIOR") )
-           {
-             anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-             ORB_INIT &init = *SINGLETON_<ORB_INIT>::Instance() ;
-             CORBA::ORB_var& _orb = init.orb() ;
-             CORBA::String_var theValue = anIOR->Value();
-             CORBA::Object_var theObj = _orb->string_to_object(theValue);
-             if (theObj->_is_a("IDL:GEOM/GEOM_Shape:1.0"))
-               {
-                 listIOR[j] = strdup(theValue) ;
-                 j++;
-               }
-           }
-       } 
-      else if ( IObject->IsInstance(STANDARD_TYPE(GEOM_InteractiveObject)) ) {
-      Handle(GEOM_InteractiveObject) GIObject = Handle(GEOM_InteractiveObject)::DownCast( IObject );
-      Standard_CString ior = GIObject->getIOR();
-      listIOR[j] = strdup(ior) ;
-      j++;
-    }
+  QString libName;
+  // find corresponding GUI library
+  switch ( id ) {
+  case GEOMOp::OpOriginAndVectors:   // MENU BASIC - ORIGIN AND BASE VECTORS
+    createOriginAndBaseVectors(); // internal operation
+    return;
+  case GEOMOp::OpImport:             // MENU FILE - IMPORT
+  case GEOMOp::OpExport:             // MENU FILE - EXPORT
+  case GEOMOp::OpSelectVertex:       // POPUP MENU - SELECT ONLY - VERTEX
+  case GEOMOp::OpSelectEdge:         // POPUP MENU - SELECT ONLY - EDGE
+  case GEOMOp::OpSelectWire:         // POPUP MENU - SELECT ONLY - WIRE
+  case GEOMOp::OpSelectFace:         // POPUP MENU - SELECT ONLY - FACE
+  case GEOMOp::OpSelectShell:        // POPUP MENU - SELECT ONLY - SHELL
+  case GEOMOp::OpSelectSolid:        // POPUP MENU - SELECT ONLY - SOLID
+  case GEOMOp::OpSelectCompound:     // POPUP MENU - SELECT ONLY - COMPOUND
+  case GEOMOp::OpSelectAll:          // POPUP MENU - SELECT ONLY - SELECT ALL
+  case GEOMOp::OpDelete:             // MENU EDIT - DELETE
+  case GEOMOp::OpCheckGeom:          // MENU TOOLS - CHECK GEOMETRY
+  case GEOMOp::OpMaterialsLibrary:   // MENU TOOLS - MATERIALS LIBRARY
+  case GEOMOp::OpDeflection:         // POPUP MENU - DEFLECTION COEFFICIENT
+  case GEOMOp::OpColor:              // POPUP MENU - COLOR
+  case GEOMOp::OpSetTexture:         // POPUP MENU - SETTEXTURE
+  case GEOMOp::OpTransparency:       // POPUP MENU - TRANSPARENCY
+  case GEOMOp::OpIncrTransparency:   // SHORTCUT   - INCREASE TRANSPARENCY
+  case GEOMOp::OpDecrTransparency:   // SHORTCUT   - DECREASE TRANSPARENCY
+  case GEOMOp::OpIsos:               // POPUP MENU - ISOS
+  case GEOMOp::OpIncrNbIsos:         // SHORTCUT   - INCREASE NB ISOS
+  case GEOMOp::OpDecrNbIsos:         // SHORTCUT   - DECREASE NB ISOS
+  case GEOMOp::OpAutoColor:          // POPUP MENU - AUTO COLOR
+  case GEOMOp::OpNoAutoColor:        // POPUP MENU - DISABLE AUTO COLOR
+  case GEOMOp::OpDiscloseChildren:   // POPUP MENU - DISCLOSE CHILD ITEMS
+  case GEOMOp::OpConcealChildren:    // POPUP MENU - CONCEAL CHILD ITEMS
+  case GEOMOp::OpUnpublishObject:    // POPUP MENU - UNPUBLISH
+  case GEOMOp::OpPublishObject:      // ROOT GEOM OBJECT - POPUP MENU - PUBLISH
+  case GEOMOp::OpPointMarker:        // POPUP MENU - POINT MARKER
+  case GEOMOp::OpMaterialProperties: // POPUP MENU - MATERIAL PROPERTIES
+  case GEOMOp::OpPredefMaterial:     // POPUP MENU - <SOME MATERIAL>
+  case GEOMOp::OpPredefMaterCustom:  // POPUP MENU - MATERIAL PROPERTIES - CUSTOM...
+  case GEOMOp::OpEdgeWidth:          // POPUP MENU - LINE WIDTH - EDGE WIDTH
+  case GEOMOp::OpIsosWidth:          // POPUP MENU - LINE WIDTH - ISOS WIDTH
+  case GEOMOp::OpBringToFront:       // POPUP MENU - BRING TO FRONT
+  case GEOMOp::OpClsBringToFront:    //
+    libName = "GEOMToolsGUI";
+    break;
+  case GEOMOp::OpDMWireframe:        // MENU VIEW - WIREFRAME
+  case GEOMOp::OpDMShading:          // MENU VIEW - SHADING
+  case GEOMOp::OpDMShadingWithEdges: // MENU VIEW - SHADING
+  case GEOMOp::OpShowAll:            // MENU VIEW - SHOW ALL
+  case GEOMOp::OpShowOnly:           // MENU VIEW - DISPLAY ONLY
+  case GEOMOp::OpShowOnlyChildren:   // MENU VIEW - SHOW ONLY CHILDREN
+  case GEOMOp::OpHideAll:            // MENU VIEW - ERASE ALL
+  case GEOMOp::OpHide:               // MENU VIEW - ERASE
+  case GEOMOp::OpShow:               // MENU VIEW - DISPLAY
+  case GEOMOp::OpSwitchVectors:      // MENU VIEW - VECTOR MODE
+  case GEOMOp::OpWireframe:          // POPUP MENU - WIREFRAME
+  case GEOMOp::OpShading:            // POPUP MENU - SHADING
+  case GEOMOp::OpShadingWithEdges:   // POPUP MENU - SHADING WITH EDGES
+  case GEOMOp::OpTexture:            // POPUP MENU - TEXTURE
+  case GEOMOp::OpVectors:            // POPUP MENU - VECTORS
+    libName = "DisplayGUI";
+    break;
+  case GEOMOp::OpPoint:              // MENU BASIC - POINT
+  case GEOMOp::OpLine:               // MENU BASIC - LINE
+  case GEOMOp::OpCircle:             // MENU BASIC - CIRCLE
+  case GEOMOp::OpEllipse:            // MENU BASIC - ELLIPSE
+  case GEOMOp::OpArc:                // MENU BASIC - ARC
+  case GEOMOp::OpVector:             // MENU BASIC - VECTOR
+  case GEOMOp::OpPlane:              // MENU BASIC - PLANE
+  case GEOMOp::OpCurve:              // MENU BASIC - CURVE
+  case GEOMOp::OpLCS:                // MENU BASIC - LOCAL COORDINATE SYSTEM
+    libName = "BasicGUI";
+    break;
+  case GEOMOp::OpBox:                // MENU PRIMITIVE - BOX
+  case GEOMOp::OpCylinder:           // MENU PRIMITIVE - CYLINDER
+  case GEOMOp::OpSphere:             // MENU PRIMITIVE - SPHERE
+  case GEOMOp::OpTorus:              // MENU PRIMITIVE - TORUS
+  case GEOMOp::OpCone:               // MENU PRIMITIVE - CONE
+  case GEOMOp::OpRectangle:          // MENU PRIMITIVE - FACE
+  case GEOMOp::OpDisk:               // MENU PRIMITIVE - DISK
+    libName = "PrimitiveGUI";
+    break;
+  case GEOMOp::OpPrism:              // MENU GENERATION - PRISM
+  case GEOMOp::OpRevolution:         // MENU GENERATION - REVOLUTION
+  case GEOMOp::OpFilling:            // MENU GENERATION - FILLING
+  case GEOMOp::OpPipe:               // MENU GENERATION - PIPE
+  case GEOMOp::OpPipePath:           // MENU GENERATION - RESTORE PATH
+    libName = "GenerationGUI";
+    break;
+  case GEOMOp::Op2dSketcher:         // MENU ENTITY - SKETCHER
+  case GEOMOp::Op3dSketcher:         // MENU ENTITY - 3D SKETCHER
+  case GEOMOp::OpExplode:            // MENU ENTITY - EXPLODE
+#ifdef WITH_OPENCV
+  case GEOMOp::OpFeatureDetect:      // MENU ENTITY - FEATURE DETECTION
+#endif
+  case GEOMOp::OpPictureImport:      // MENU ENTITY - IMPORT PICTURE IN VIEWER
+    libName = "EntityGUI";
+    break;
+  case GEOMOp::OpEdge:               // MENU BUILD - EDGE
+  case GEOMOp::OpWire:               // MENU BUILD - WIRE
+  case GEOMOp::OpFace:               // MENU BUILD - FACE
+  case GEOMOp::OpShell:              // MENU BUILD - SHELL
+  case GEOMOp::OpSolid:              // MENU BUILD - SOLID
+  case GEOMOp::OpCompound:           // MENU BUILD - COMPUND
+    libName = "BuildGUI";
+    break;
+  case GEOMOp::OpFuse:               // MENU BOOLEAN - FUSE
+  case GEOMOp::OpCommon:             // MENU BOOLEAN - COMMON
+  case GEOMOp::OpCut:                // MENU BOOLEAN - CUT
+  case GEOMOp::OpSection:            // MENU BOOLEAN - SECTION
+    libName = "BooleanGUI";
+    break;
+  case GEOMOp::OpTranslate:          // MENU TRANSFORMATION - TRANSLATION
+  case GEOMOp::OpRotate:             // MENU TRANSFORMATION - ROTATION
+  case GEOMOp::OpChangeLoc:          // MENU TRANSFORMATION - LOCATION
+  case GEOMOp::OpMirror:             // MENU TRANSFORMATION - MIRROR
+  case GEOMOp::OpScale:              // MENU TRANSFORMATION - SCALE
+  case GEOMOp::OpOffset:             // MENU TRANSFORMATION - OFFSET
+  case GEOMOp::OpProjection:         // MENU TRANSFORMATION - PROJECTION
+  case GEOMOp::OpMultiTranslate:     // MENU TRANSFORMATION - MULTI-TRANSLATION
+  case GEOMOp::OpMultiRotate:        // MENU TRANSFORMATION - MULTI-ROTATION
+  case GEOMOp::OpReimport:           // CONTEXT(POPUP) MENU - RELOAD_IMPORTED
+    libName = "TransformationGUI";
+    break;
+  case GEOMOp::OpPartition:          // MENU OPERATION - PARTITION
+  case GEOMOp::OpArchimede:          // MENU OPERATION - ARCHIMEDE
+  case GEOMOp::OpFillet3d:           // MENU OPERATION - FILLET
+  case GEOMOp::OpChamfer:            // MENU OPERATION - CHAMFER
+  case GEOMOp::OpClipping:           // MENU OPERATION - CLIPPING RANGE
+  case GEOMOp::OpShapesOnShape:      // MENU OPERATION - GET SHAPES ON SHAPE
+  case GEOMOp::OpFillet2d:           // MENU OPERATION - FILLET 2D
+  case GEOMOp::OpFillet1d:           // MENU OPERATION - FILLET 1D
+  case GEOMOp::OpSharedShapes:       // MENU OPERATION - GET SHARED SHAPES
+  case GEOMOp::OpExtrudedBoss:       // MENU OPERATION - EXTRUDED BOSS
+  case GEOMOp::OpExtrudedCut:        // MENU OPERATION - EXTRUDED CUT
+    libName = "OperationGUI";
+    break;
+  case GEOMOp::OpSewing:             // MENU REPAIR - SEWING
+  case GEOMOp::OpSuppressFaces:      // MENU REPAIR - SUPPRESS FACES
+  case GEOMOp::OpSuppressHoles:      // MENU REPAIR - SUPPRESS HOLE
+  case GEOMOp::OpShapeProcess:       // MENU REPAIR - SHAPE PROCESSING
+  case GEOMOp::OpCloseContour:       // MENU REPAIR - CLOSE CONTOUR
+  case GEOMOp::OpRemoveIntWires:     // MENU REPAIR - REMOVE INTERNAL WIRES
+  case GEOMOp::OpAddPointOnEdge:     // MENU REPAIR - ADD POINT ON EDGE
+  case GEOMOp::OpFreeBoundaries:     // MENU MEASURE - FREE BOUNDARIES
+  case GEOMOp::OpFreeFaces:          // MENU MEASURE - FREE FACES
+  case GEOMOp::OpOrientation:        // MENU REPAIR - CHANGE ORIENTATION
+  case GEOMOp::OpGlueFaces:          // MENU REPAIR - GLUE FACES
+  case GEOMOp::OpGlueEdges:          // MENU REPAIR - GLUE EDGES
+  case GEOMOp::OpLimitTolerance:     // MENU REPAIR - LIMIT TOLERANCE
+  case GEOMOp::OpRemoveWebs:         // MENU REPAIR - REMOVE INTERNAL FACES
+  case GEOMOp::OpRemoveExtraEdges:   // MENU REPAIR - REMOVE EXTRA EDGES
+  case GEOMOp::OpFuseEdges:          // MENU REPAIR - FUSE COLLINEAR EDGES
+  case GEOMOp::OpUnionFaces:         // MENU REPAIR - UNION FACES
+    libName = "RepairGUI";
+    break;
+  case GEOMOp::OpProperties:         // MENU MEASURE - PROPERTIES
+  case GEOMOp::OpCenterMass:         // MENU MEASURE - CDG
+  case GEOMOp::OpInertia:            // MENU MEASURE - INERTIA
+  case GEOMOp::OpNormale:            // MENU MEASURE - NORMALE
+  case GEOMOp::OpBoundingBox:        // MENU MEASURE - BOUNDING BOX
+  case GEOMOp::OpMinDistance:        // MENU MEASURE - MIN DISTANCE
+  case GEOMOp::OpAngle:              // MENU MEASURE - ANGLE
+  case GEOMOp::OpTolerance:          // MENU MEASURE - TOLERANCE
+  case GEOMOp::OpWhatIs:             // MENU MEASURE - WHATIS
+  case GEOMOp::OpCheckShape:         // MENU MEASURE - CHECK
+  case GEOMOp::OpCheckCompound:      // MENU MEASURE - CHECK COMPOUND OF BLOCKS
+  case GEOMOp::OpGetNonBlocks:       // MENU MEASURE - Get NON BLOCKS
+  case GEOMOp::OpPointCoordinates:   // MENU MEASURE - POINT COORDINATES
+  case GEOMOp::OpCheckSelfInters:    // MENU MEASURE - CHECK SELF INTERSECTIONS
+    libName = "MeasureGUI";
+    break;
+  case GEOMOp::OpGroupCreate:        // MENU GROUP - CREATE
+  case GEOMOp::OpGroupCreatePopup:   // POPUP MENU - CREATE GROUP
+  case GEOMOp::OpGroupEdit:          // MENU GROUP - EDIT
+  case GEOMOp::OpGroupUnion:         // MENU GROUP - UNION
+  case GEOMOp::OpGroupIntersect:     // MENU GROUP - INTERSECT
+  case GEOMOp::OpGroupCut:           // MENU GROUP - CUT
+    libName = "GroupGUI";
+    break;
+  case GEOMOp::OpHexaSolid:          // MENU BLOCKS - HEXAHEDRAL SOLID
+  case GEOMOp::OpMultiTransform:     // MENU BLOCKS - MULTI-TRANSFORMATION
+  case GEOMOp::OpQuadFace:           // MENU BLOCKS - QUADRANGLE FACE
+  case GEOMOp::OpPropagate:          // MENU BLOCKS - PROPAGATE
+  case GEOMOp::OpExplodeBlock:       // MENU BLOCKS - EXPLODE ON BLOCKS
+    libName = "BlocksGUI";
+    break;
+  case GEOMOp::OpAdvancedNoOp:       // NO OPERATION (advanced operations base)
+  case GEOMOp::OpPipeTShape:         // MENU NEW ENTITY - ADVANCED - PIPE TSHAPE
+//   case GEOMOp::OpPipeTShapeGroups:     // MENU NEW ENTITY - ADVANCED - PIPE TSHAPE GROUPS
+  case GEOMOp::OpDividedDisk:           // MENU NEW ENTITY - ADVANCED - DIVIDEDDISK
+  case GEOMOp::OpDividedCylinder:           // MENU NEW ENTITY - ADVANCED - DIVIDEDCYLINDER
+  case GEOMOp::OpSmoothingSurface:           // MENU NEW ENTITY - ADVANCED - SMOOTHINGSURFACE
+    //@@ insert new functions before this line @@ do not remove this line @@ do not remove this line @@ do not remove this line @@ do not remove this line @@//
+    libName = "AdvancedGUI";
+    break;
+  default:
+    break;
+  }
+
+  GEOMGUI* library = 0;
+  if ( !libName.isEmpty() ) {
+#ifndef WNT
+    libName = QString( "lib" ) + libName + ".so";
+#else
+    libName = libName + ".dll";
+#endif
+    library = getLibrary( libName );
+  }
+
+  // call method of corresponding GUI library
+  if ( library ) {
+    if( !theParam.isValid() )
+      library->OnGUIEvent( id, desk );
+    else
+      library->OnGUIEvent( id, desk, theParam);
   }
-  listIOR.length(j) ;
-}
+  else
+    SUIT_MessageBox::critical( desk, tr( "GEOM_ERROR" ), tr( "GEOM_ERR_LIB_NOT_FOUND" ), tr( "GEOM_BUT_OK" ) );
 
+  updateCreationInfo();
+}
 
 //=================================================================================
-// function : GetShapeTypeString()
-// purpose  : for a single shape
+// function : GeometryGUI::OnKeyPress()
+// purpose  : Called when any key is pressed by user [static]
 //=================================================================================
-bool GeometryGUI::GetShapeTypeString( const TopoDS_Shape& aShape, Standard_CString& aTypeString )
+void GeometryGUI::OnKeyPress( SUIT_ViewWindow* w, QKeyEvent* e )
 {
-  if( aShape.IsNull() ) {
-    aTypeString = "aNullShape" ;
-    return false ;
-  }
-  switch (aShape.ShapeType() )
-  {
-  case TopAbs_COMPOUND:
-    { aTypeString = strdup(tr("GEOM_COMPOUND")) ; return true ; }
-  case  TopAbs_COMPSOLID:
-    { aTypeString = strdup(tr("GEOM_COMPOUNDSOLID")) ; return true ; }
-  case TopAbs_SOLID:
-    { aTypeString = strdup(tr("GEOM_SOLID")) ; return true ; }
-  case TopAbs_SHELL:
-    { aTypeString = strdup(tr("GEOM_SHELL")) ; return true ; }
-  case TopAbs_FACE:
-    { 
-      BRepAdaptor_Surface surf(TopoDS::Face(aShape));
-      if ( surf.GetType() == GeomAbs_Plane ) {
-       aTypeString = strdup(tr("GEOM_PLANE")) ;
-       return true ;
-      } else if ( surf.GetType() == GeomAbs_Cylinder ) {
-       aTypeString = strdup(tr("GEOM_SURFCYLINDER")) ;
-       return true ;
-      } else if ( surf.GetType() == GeomAbs_Sphere ) {
-       aTypeString = strdup(tr("GEOM_SURFSPHERE")) ;
-       return true ;
-      } else if ( surf.GetType() == GeomAbs_Torus ) {
-       aTypeString = strdup(tr("GEOM_SURFTORUS")) ;
-       return true ;
-      } else if ( surf.GetType() == GeomAbs_Cone ) {
-       aTypeString = strdup(tr("GEOM_SURFCONE")) ;
-       return true ;
-      } else {
-       aTypeString = strdup(tr("GEOM_FACE")) ;
-       return true ;
-      }
-    }
-  case TopAbs_WIRE:
-    { aTypeString = strdup(tr("GEOM_WIRE")) ; return true ; }
-  case TopAbs_EDGE:
-    { 
-      BRepAdaptor_Curve curv(TopoDS::Edge(aShape));
-      if ( curv.GetType() == GeomAbs_Line ) {
-       if ( (Abs(curv.FirstParameter()) >= 1E6 ) || 
-            (Abs(curv.LastParameter()) >= 1E6 )) {
-         aTypeString = strdup(tr("GEOM_LINE")) ;
-       } else
-         aTypeString = strdup(tr("GEOM_EDGE")) ;
-       return true ;
-      } else if ( curv.GetType() == GeomAbs_Circle ) {
-       if ( curv.IsClosed() )
-         aTypeString = strdup(tr("GEOM_CIRCLE")) ;
-       else
-         aTypeString = strdup(tr("GEOM_ARC")) ;
-       return true ;
-      } else {
-       aTypeString = strdup(tr("GEOM_EDGE")) ;
-       return true ;
-      }
-    }
-  case TopAbs_VERTEX:
-    { aTypeString = strdup(tr("GEOM_VERTEX")) ; return true ; }
-  case TopAbs_SHAPE:
-    { aTypeString = strdup(tr("GEOM_SHAPE")) ; return true ; }
-  }
-  return false ;
+  if ( !application() )
+    return;
+  foreach ( GEOMGUI* lib, myGUIMap )
+    lib->OnKeyPress( e, application()->desktop(), w );
 }
 
-
 //=================================================================================
-// function : CreateArrowForLinearEdge()
-// purpose  : Create a cone topology to be used to display an arrow in the middle
-//          : of an edge showing its orientation. (For simulation and Viewer OCC only)
+// function : GeometryGUI::OnMouseMove()
+// purpose  : Manages mouse move events [static]
 //=================================================================================
-bool GeometryGUI::CreateArrowForLinearEdge( const TopoDS_Shape& tds, TopoDS_Shape& ArrowCone )
+void GeometryGUI::OnMouseMove( SUIT_ViewWindow* w, QMouseEvent* e )
 {
-  if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() != VIEW_OCC || tds.ShapeType() != TopAbs_EDGE )
-    return false;
-  
-  OCCViewer_ViewPort* vp = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewPort();
-  Handle( V3d_View) view3d = ((OCCViewer_ViewPort3d*)vp)->getView();
-  Standard_Real Width, Height ;
-  view3d->Size(Width, Height) ;
-  const Standard_Real aHeight = (Width + Height) / 50.0 ;
-  
-  try {
-    Standard_Real first, last ;
-    Handle(Geom_Curve) curv = BRep_Tool::Curve(TopoDS::Edge(tds), first, last);
-    if( !curv->IsCN(1) )
-      return false ;
-    
-    const Standard_Real param = (first+last) / 2.0 ;
-    gp_Pnt middleParamPoint ;
-    gp_Vec V1 ;
-    curv->D1( param, middleParamPoint, V1) ;
-    if ( V1.Magnitude() < Precision::Confusion() )
-      return false ;
-    
-    /* Topology orientation not geom orientation */
-    if( tds.Orientation() == TopAbs_REVERSED )
-      V1 *= -1.0 ;
-    
-    gp_Ax2 anAxis( middleParamPoint, gp_Dir(V1) ) ;
-    const Standard_Real radius1 = aHeight / 5.0 ;
-    if( radius1 > 10.0 * Precision::Confusion() && aHeight > 10.0 * Precision::Confusion() ) {
-      ArrowCone = BRepPrimAPI_MakeCone( anAxis, radius1, 0.0, aHeight ).Shape() ;
-      return true ;
-    }
-  }
-  catch(Standard_Failure) {
-    // OCC failures are hard to catch in GUI.
-    // This  because of the position for  #include <Standard_ErrorHandler.hxx> that is very critic to find 
-    // in SALOME environment : compilation error !
-  }
-  return false ;
+  if ( !application() )
+    return;
+  foreach ( GEOMGUI* lib, myGUIMap )
+    lib->OnMouseMove( e, application()->desktop(), w );
 }
 
-
-//=======================================================================
-// function : SelectionByNameInDialogs()
-// purpose  : Called when user has entered a name of object in a LineEdit.
-//          : The selection is changed. Dialog box will receive the 
-//          : corresponding signal to manage this event.
-//=======================================================================
-bool GeometryGUI::SelectionByNameInDialogs( QWidget* aWidget, const QString& objectUserName, SALOME_Selection* Sel )
+//=================================================================================
+// function : GeometryGUI::OnMouseRelease()
+// purpose  : Manages mouse release events [static]
+//=================================================================================
+void GeometryGUI::OnMouseRelease( SUIT_ViewWindow* w, QMouseEvent* e )
 {
-  
-  /* Find SObject with name in component GEOM */
-  SALOMEDS::Study_var ST = this->myActiveStudy->getStudyDocument() ;
-  SALOMEDS::Study::ListOfSObject_var listSO = new SALOMEDS::Study::ListOfSObject ;
-  listSO = ST->FindObjectByName( objectUserName, "GEOM" ) ;
-  
-  if ( listSO->length() < 1 ) {
-    const QString caption  = tr("GEOM_WRN_WARNING") ;
-    const QString text = tr("GEOM_NAME_INCORRECT") ;
-    const QString button0  = tr("GEOM_BUT_OK") ;
-    QMessageBox::warning( aWidget, caption, text, button0 ) ;
-    return false ;
-  }
-  /* More than one object with same name */
-  if ( listSO->length() > 1 ) {
-    const QString caption  = tr("GEOM_WRN_WARNING") ;
-    const QString text = tr("GEOM_IDENTICAL_NAMES_SELECT_BY_MOUSE") ;
-    const QString button0  = tr("GEOM_BUT_OK") ;
-    QMessageBox::warning( aWidget, caption, text, button0 ) ;
-    return false ;
-  }
-
-  SALOMEDS::SObject_var theObj = listSO[0] ;
-  /* Create a SALOME_InteractiveObject with a SALOME::SObject */
-  Standard_CString anEntry = theObj->GetID() ;
-  Handle(SALOME_InteractiveObject) SI = new SALOME_InteractiveObject( anEntry, "GEOM", strdup(objectUserName) ) ;
-
-  /* Add as a selected object       */
-  /* Clear any previous selection : */
-  /* Warning the LineEdit is purged because of signal currentSelectionChanged ! */ 
-  Sel->ClearIObjects() ; 
-  Sel->AddIObject( SI ) ;
-  return true ;
+  if ( !application() )
+    return;
+  foreach ( GEOMGUI* lib, myGUIMap )
+    lib->OnMouseRelease( e, application()->desktop(), w );
 }
 
+//=================================================================================
+// function : GeometryGUI::OnMousePress()
+// purpose  : Manage mouse press events [static]
+//=================================================================================
+void GeometryGUI::OnMousePress( SUIT_ViewWindow* w, QMouseEvent* e )
+{
+  if ( !application() )
+    return;
+  foreach ( GEOMGUI* lib, myGUIMap )
+    lib->OnMousePress( e, application()->desktop(), w );
+}
 
 //=======================================================================
-// function : MakePointAndDisplay
-// purpose  : 
+// function : createGeomAction
+// purpose  :
 //=======================================================================
-void GeometryGUI::MakePointAndDisplay( const double x, const double y, const double z ) 
+void GeometryGUI::createGeomAction( const int id, const QString& label, const QString& icolabel,
+                                    const int accel, const bool toggle, const QString& shortcutAction )
 {
-  try {
-    GEOM::GEOM_Shape_var P = myComponentGeom->MakeVertex( x, y, z );
-    P->NameType( tr("GEOM_VERTEX") );
-    if ( Display( P, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }  
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
+  SUIT_ResourceMgr* resMgr = SUIT_Session::session()->resourceMgr();
+  QPixmap icon = icolabel.isEmpty() ? resMgr->loadPixmap( "GEOM", tr( (QString( "ICO_" )+label).toLatin1().constData() ), false )
+                                    : resMgr->loadPixmap( "GEOM", tr( icolabel.toLatin1().constData() ) );
+  createAction( id,
+                tr( QString( "TOP_%1" ).arg( label ).toLatin1().constData() ),
+                icon,
+                tr( QString( "MEN_%1" ).arg( label ).toLatin1().constData() ),
+                tr( QString( "STB_%1" ).arg( label ).toLatin1().constData() ),
+                accel,
+                application()->desktop(),
+                toggle,
+                this, SLOT( OnGUIEvent() ),
+                shortcutAction );
 }
 
-
-
 //=======================================================================
-// function : MakeVectorAndDisplay()
-// purpose  : 
+// function : createOriginAndBaseVectors
+// purpose  :
 //=======================================================================
-void GeometryGUI::MakeVectorAndDisplay( const gp_Pnt P1, const gp_Pnt P2 )
+void GeometryGUI::createOriginAndBaseVectors()
 {
-  try {
-    GEOM::PointStruct pstruct1 = myComponentGeom->MakePointStruct( P1.X(), P1.Y(), P1.Z() ) ;
-    GEOM::PointStruct pstruct2 = myComponentGeom->MakePointStruct( P2.X(), P2.Y(), P2.Z() ) ;
-    GEOM::GEOM_Shape_var Vector = myComponentGeom->MakeVector( pstruct1, pstruct2 );
-    Vector->NameType(tr("GEOM_VECTOR"));
-    if ( Display( Vector, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
+  SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( application()->activeStudy() );
+  if ( appStudy ) {
+    _PTR(Study) studyDS = appStudy->studyDS();
+    if ( studyDS && !CORBA::is_nil( GetGeomGen() ) ) {
+      GEOM::GEOM_IBasicOperations_var aBasicOperations = GetGeomGen()->GetIBasicOperations( studyDS->StudyId() );
+      if ( !aBasicOperations->_is_nil() ) {
+        SUIT_ResourceMgr* aResourceMgr = SUIT_Session::session()->resourceMgr();
+        double aLength = aResourceMgr->doubleValue( "Geometry", "base_vectors_length", 1.0 );
+        GEOM::GEOM_Object_var anOrigin = aBasicOperations->MakePointXYZ( 0.0, 0.0, 0.0 );
+        GEOM::GEOM_Object_var anOX = aBasicOperations->MakeVectorDXDYDZ( aLength, 0.0, 0.0 );
+        GEOM::GEOM_Object_var anOY = aBasicOperations->MakeVectorDXDYDZ( 0.0, aLength, 0.0 );
+        GEOM::GEOM_Object_var anOZ = aBasicOperations->MakeVectorDXDYDZ( 0.0, 0.0, aLength );
+
+        SALOMEDS::Study_var aDSStudy = ClientStudyToStudy( studyDS );
+        GetGeomGen()->PublishInStudy( aDSStudy, SALOMEDS::SObject::_nil(), anOrigin, "O" );
+        GetGeomGen()->PublishInStudy( aDSStudy, SALOMEDS::SObject::_nil(), anOX, "OX" );
+        GetGeomGen()->PublishInStudy( aDSStudy, SALOMEDS::SObject::_nil(), anOY, "OY" );
+        GetGeomGen()->PublishInStudy( aDSStudy, SALOMEDS::SObject::_nil(), anOZ, "OZ" );
+
+        getApp()->updateObjectBrowser( true );
+      }
+    }
+  }
+}
+
+//=======================================================================
+// function : GeometryGUI::initialize()
+// purpose  : Called when GEOM module is created
+//=======================================================================
+void GeometryGUI::initialize( CAM_Application* app )
+{
+  SalomeApp_Module::initialize( app );
+
+  // ----- create actions --------------
+
+  createGeomAction( GEOMOp::OpImport,     "IMPORT", "", Qt::ControlModifier + Qt::Key_I );
+  createGeomAction( GEOMOp::OpExport,     "EXPORT", "", Qt::ControlModifier + Qt::Key_E );
+
+  createGeomAction( GEOMOp::OpDelete,     "DELETE", "", Qt::Key_Delete );
+
+  createGeomAction( GEOMOp::OpPoint,      "POINT" );
+  createGeomAction( GEOMOp::OpLine,       "LINE" );
+  createGeomAction( GEOMOp::OpCircle,     "CIRCLE" );
+  createGeomAction( GEOMOp::OpEllipse,    "ELLIPSE" );
+  createGeomAction( GEOMOp::OpArc,        "ARC" );
+  createGeomAction( GEOMOp::OpCurve,      "CURVE" );
+  createGeomAction( GEOMOp::OpVector,     "VECTOR" );
+  createGeomAction( GEOMOp::OpPlane,      "PLANE" );
+  createGeomAction( GEOMOp::OpLCS,        "LOCAL_CS" );
+  createGeomAction( GEOMOp::OpOriginAndVectors, "ORIGIN_AND_VECTORS" );
+
+  createGeomAction( GEOMOp::OpBox,        "BOX" );
+  createGeomAction( GEOMOp::OpCylinder,   "CYLINDER" );
+  createGeomAction( GEOMOp::OpSphere,     "SPHERE" );
+  createGeomAction( GEOMOp::OpTorus,      "TORUS" );
+  createGeomAction( GEOMOp::OpCone,       "CONE" );
+  createGeomAction( GEOMOp::OpRectangle,  "RECTANGLE" );
+  createGeomAction( GEOMOp::OpDisk,       "DISK" );
+
+  createGeomAction( GEOMOp::OpPrism,       "EXTRUSION" );
+  createGeomAction( GEOMOp::OpRevolution,  "REVOLUTION" );
+  createGeomAction( GEOMOp::OpFilling,     "FILLING" );
+  createGeomAction( GEOMOp::OpPipe,        "PIPE" );
+  createGeomAction( GEOMOp::OpPipePath,    "PIPE_PATH" );
+
+  createGeomAction( GEOMOp::OpGroupCreate, "GROUP_CREATE" );
+  createGeomAction( GEOMOp::OpGroupEdit,   "GROUP_EDIT" );
+  createGeomAction( GEOMOp::OpGroupUnion,  "GROUP_UNION" );
+  createGeomAction( GEOMOp::OpGroupIntersect, "GROUP_INTERSECT" );
+  createGeomAction( GEOMOp::OpGroupCut,    "GROUP_CUT" );
+
+  createGeomAction( GEOMOp::OpReimport,    "RELOAD_IMPORTED" );
+
+  createGeomAction( GEOMOp::OpQuadFace,    "Q_FACE" );
+  createGeomAction( GEOMOp::OpHexaSolid,   "HEX_SOLID" );
+
+  createGeomAction( GEOMOp::Op2dSketcher,  "SKETCH" );
+  createGeomAction( GEOMOp::Op3dSketcher,  "3DSKETCH" );
+  createGeomAction( GEOMOp::OpExplode,     "EXPLODE" );
+#ifdef WITH_OPENCV
+  createGeomAction( GEOMOp::OpFeatureDetect,"FEATURE_DETECTION" );
+#endif
+  createGeomAction( GEOMOp::OpPictureImport,"PICTURE_IMPORT" );
+
+  createGeomAction( GEOMOp::OpEdge,        "EDGE" );
+  createGeomAction( GEOMOp::OpWire,        "WIRE" );
+  createGeomAction( GEOMOp::OpFace,        "FACE" );
+  createGeomAction( GEOMOp::OpShell,       "SHELL" );
+  createGeomAction( GEOMOp::OpSolid,       "SOLID" );
+  createGeomAction( GEOMOp::OpCompound,    "COMPOUND" );
+
+  createGeomAction( GEOMOp::OpFuse,        "FUSE" );
+  createGeomAction( GEOMOp::OpCommon,      "COMMON" );
+  createGeomAction( GEOMOp::OpCut,         "CUT" );
+  createGeomAction( GEOMOp::OpSection,     "SECTION" );
+
+  createGeomAction( GEOMOp::OpTranslate,      "TRANSLATION" );
+  createGeomAction( GEOMOp::OpRotate,         "ROTATION" );
+  createGeomAction( GEOMOp::OpChangeLoc,      "MODIFY_LOCATION" );
+  createGeomAction( GEOMOp::OpMirror,         "MIRROR" );
+  createGeomAction( GEOMOp::OpScale,          "SCALE" );
+  createGeomAction( GEOMOp::OpOffset,         "OFFSET" );
+  createGeomAction( GEOMOp::OpProjection,     "PROJECTION" );
+  createGeomAction( GEOMOp::OpMultiTranslate, "MUL_TRANSLATION" );
+  createGeomAction( GEOMOp::OpMultiRotate,    "MUL_ROTATION" );
+
+  createGeomAction( GEOMOp::OpPartition,      "PARTITION" );
+  createGeomAction( GEOMOp::OpArchimede,      "ARCHIMEDE" );
+  createGeomAction( GEOMOp::OpFillet3d,       "FILLET" );
+  createGeomAction( GEOMOp::OpChamfer,        "CHAMFER" );
+  //createGeomAction( GEOMOp::OpClipping,        "CLIPPING" );
+  createGeomAction( GEOMOp::OpShapesOnShape,  "GET_SHAPES_ON_SHAPE" );
+  createGeomAction( GEOMOp::OpSharedShapes,   "GET_SHARED_SHAPES" );
+  createGeomAction( GEOMOp::OpExtrudedCut,    "EXTRUDED_CUT" );
+  createGeomAction( GEOMOp::OpExtrudedBoss,   "EXTRUDED_BOSS" );
+  createGeomAction( GEOMOp::OpFillet1d,       "FILLET_1D" );
+  createGeomAction( GEOMOp::OpFillet2d,       "FILLET_2D" );
+
+  createGeomAction( GEOMOp::OpMultiTransform, "MUL_TRANSFORM" );
+  createGeomAction( GEOMOp::OpExplodeBlock,   "EXPLODE_BLOCKS" );
+  createGeomAction( GEOMOp::OpPropagate,      "PROPAGATE" );
+
+  createGeomAction( GEOMOp::OpSewing,           "SEWING" );
+  createGeomAction( GEOMOp::OpGlueFaces,        "GLUE_FACES" );
+  createGeomAction( GEOMOp::OpGlueEdges,        "GLUE_EDGES" );
+  createGeomAction( GEOMOp::OpLimitTolerance,   "LIMIT_TOLERANCE" );
+  createGeomAction( GEOMOp::OpSuppressFaces,    "SUPPRESS_FACES" );
+  createGeomAction( GEOMOp::OpSuppressHoles,    "SUPPERSS_HOLES" );
+  createGeomAction( GEOMOp::OpShapeProcess,     "SHAPE_PROCESS" );
+  createGeomAction( GEOMOp::OpCloseContour,     "CLOSE_CONTOUR" );
+  createGeomAction( GEOMOp::OpRemoveIntWires,   "SUPPRESS_INT_WIRES" );
+  createGeomAction( GEOMOp::OpAddPointOnEdge,   "POINT_ON_EDGE" );
+  createGeomAction( GEOMOp::OpFreeBoundaries,   "CHECK_FREE_BNDS" );
+  createGeomAction( GEOMOp::OpFreeFaces,        "CHECK_FREE_FACES" );
+  createGeomAction( GEOMOp::OpOrientation,      "CHANGE_ORIENTATION" );
+  createGeomAction( GEOMOp::OpRemoveWebs,       "REMOVE_WEBS" );
+  createGeomAction( GEOMOp::OpRemoveExtraEdges, "REMOVE_EXTRA_EDGES" );
+  createGeomAction( GEOMOp::OpFuseEdges,        "FUSE_EDGES" );
+  createGeomAction( GEOMOp::OpUnionFaces,       "UNION_FACES" );
+
+  createGeomAction( GEOMOp::OpPointCoordinates, "POINT_COORDS" );
+  createGeomAction( GEOMOp::OpProperties,       "BASIC_PROPS" );
+  createGeomAction( GEOMOp::OpCenterMass,       "MASS_CENTER" );
+  createGeomAction( GEOMOp::OpInertia,          "INERTIA" );
+  createGeomAction( GEOMOp::OpNormale,          "NORMALE" );
+  createGeomAction( GEOMOp::OpBoundingBox,      "BND_BOX" );
+  createGeomAction( GEOMOp::OpMinDistance,      "MIN_DIST" );
+  createGeomAction( GEOMOp::OpAngle,            "MEASURE_ANGLE" );
+
+  createGeomAction( GEOMOp::OpTolerance,        "TOLERANCE" );
+  createGeomAction( GEOMOp::OpWhatIs,           "WHAT_IS" );
+  createGeomAction( GEOMOp::OpCheckShape,       "CHECK" );
+  createGeomAction( GEOMOp::OpCheckCompound,    "CHECK_COMPOUND" );
+  createGeomAction( GEOMOp::OpGetNonBlocks,     "GET_NON_BLOCKS" );
+  createGeomAction( GEOMOp::OpCheckSelfInters,  "CHECK_SELF_INTERSECTIONS" );
+
+#ifdef _DEBUG_ // PAL16821
+  createGeomAction( GEOMOp::OpCheckGeom,        "CHECK_GEOMETRY" );
+#endif
+
+  createGeomAction( GEOMOp::OpMaterialsLibrary,   "MATERIALS_LIBRARY" );
+  createGeomAction( GEOMOp::OpDMWireframe,        "WIREFRAME" );
+  createGeomAction( GEOMOp::OpDMShading,          "SHADING" );
+  createGeomAction( GEOMOp::OpDMShadingWithEdges, "SHADING_WITH_EDGES" );
+  createGeomAction( GEOMOp::OpShowAll,          "DISPLAY_ALL" );
+  createGeomAction( GEOMOp::OpHideAll,          "ERASE_ALL" );
+  createGeomAction( GEOMOp::OpShow,             "DISPLAY" );
+  createGeomAction( GEOMOp::OpSwitchVectors,    "VECTOR_MODE");
+  createGeomAction( GEOMOp::OpSelectVertex,     "VERTEX_SEL_ONLY" ,"", 0, true );
+  createGeomAction( GEOMOp::OpSelectEdge,       "EDGE_SEL_ONLY", "", 0, true );
+  createGeomAction( GEOMOp::OpSelectWire,       "WIRE_SEL_ONLY", "",  0, true );
+  createGeomAction( GEOMOp::OpSelectFace,       "FACE_SEL_ONLY", "", 0, true );
+  createGeomAction( GEOMOp::OpSelectShell,      "SHELL_SEL_ONLY", "",  0, true );
+  createGeomAction( GEOMOp::OpSelectSolid,      "SOLID_SEL_ONLY", "", 0, true );
+  createGeomAction( GEOMOp::OpSelectCompound,   "COMPOUND_SEL_ONLY", "",  0, true );
+  createGeomAction( GEOMOp::OpSelectAll,        "ALL_SEL_ONLY", "",  0, true );
+  createGeomAction( GEOMOp::OpShowOnly,         "DISPLAY_ONLY" );
+  createGeomAction( GEOMOp::OpShowOnlyChildren, "SHOW_ONLY_CHILDREN" );
+  createGeomAction( GEOMOp::OpBringToFront,     "BRING_TO_FRONT", "", 0, true );
+  createGeomAction( GEOMOp::OpClsBringToFront,  "CLS_BRING_TO_FRONT" );
+  createGeomAction( GEOMOp::OpHide,             "ERASE" );
+
+  createGeomAction( GEOMOp::OpWireframe,        "POP_WIREFRAME", "", 0, true );
+  createGeomAction( GEOMOp::OpShading,          "POP_SHADING", "", 0, true );
+  createGeomAction( GEOMOp::OpShadingWithEdges, "POP_SHADING_WITH_EDGES", "", 0, true );
+  createGeomAction( GEOMOp::OpTexture,          "POP_TEXTURE", "", 0, true );
+  createGeomAction( GEOMOp::OpEdgeWidth,        "EDGE_WIDTH");
+  createGeomAction( GEOMOp::OpIsosWidth,        "ISOS_WIDTH");
+  createGeomAction( GEOMOp::OpVectors,          "POP_VECTORS", "", 0, true );
+  createGeomAction( GEOMOp::OpDeflection,       "POP_DEFLECTION" );
+  createGeomAction( GEOMOp::OpColor,            "POP_COLOR" );
+  createGeomAction( GEOMOp::OpSetTexture,       "POP_SETTEXTURE" );
+  createGeomAction( GEOMOp::OpTransparency,     "POP_TRANSPARENCY" );
+  createGeomAction( GEOMOp::OpIsos,             "POP_ISOS" );
+  createGeomAction( GEOMOp::OpAutoColor,        "POP_AUTO_COLOR" );
+  createGeomAction( GEOMOp::OpNoAutoColor,      "POP_DISABLE_AUTO_COLOR" );
+  createGeomAction( GEOMOp::OpGroupCreatePopup, "POP_CREATE_GROUP" );
+  createGeomAction( GEOMOp::OpDiscloseChildren, "POP_DISCLOSE_CHILDREN" );
+  createGeomAction( GEOMOp::OpConcealChildren,  "POP_CONCEAL_CHILDREN" );
+  createGeomAction( GEOMOp::OpUnpublishObject,  "POP_UNPUBLISH_OBJ" );
+  createGeomAction( GEOMOp::OpPublishObject,    "POP_PUBLISH_OBJ" );
+  createGeomAction( GEOMOp::OpPointMarker,      "POP_POINT_MARKER" );
+  createGeomAction( GEOMOp::OpMaterialProperties,   "POP_MATERIAL_PROPERTIES" );
+  createGeomAction( GEOMOp::OpPredefMaterCustom,    "POP_PREDEF_MATER_CUSTOM" );
+
+  createGeomAction( GEOMOp::OpPipeTShape, "PIPETSHAPE" );
+
+  // Create actions for increase/decrease transparency shortcuts
+  createGeomAction( GEOMOp::OpIncrTransparency, "", "", 0, false,
+                    "Geometry:Increase transparency");
+  createGeomAction( GEOMOp::OpDecrTransparency, "", "", 0, false,
+                    "Geometry:Decrease transparency");
+
+  // Create actions for increase/decrease number of isolines
+  createGeomAction( GEOMOp::OpIncrNbIsos, "", "", 0, false,
+                    "Geometry:Increase number of isolines");
+  createGeomAction( GEOMOp::OpDecrNbIsos, "", "", 0, false,
+                    "Geometry:Decrease number of isolines");
+
+//   createGeomAction( GEOMOp::OpPipeTShapeGroups, "PIPETSHAPEGROUPS" );
+  createGeomAction( GEOMOp::OpDividedDisk, "DIVIDEDDISK" );
+  createGeomAction( GEOMOp::OpDividedCylinder, "DIVIDEDCYLINDER" );
+  createGeomAction( GEOMOp::OpSmoothingSurface, "SMOOTHINGSURFACE" );
+  //@@ insert new functions before this line @@ do not remove this line @@ do not remove this line @@ do not remove this line @@ do not remove this line @@//
+
+  // ---- create menus --------------------------
+
+  int fileId = createMenu( tr( "MEN_FILE" ), -1, -1 );
+  createMenu( separator(),      fileId, 10 );
+  createMenu( GEOMOp::OpImport, fileId, 10 );
+  createMenu( GEOMOp::OpExport, fileId, 10 );
+  createMenu( separator(),      fileId, -1 );
+
+  int editId = createMenu( tr( "MEN_EDIT" ), -1, -1 );
+  createMenu( GEOMOp::OpDelete, editId, -1 );
+
+  int newEntId = createMenu( tr( "MEN_NEW_ENTITY" ), -1, -1, 10 );
+
+  int basicId = createMenu( tr( "MEN_BASIC" ), newEntId, -1 );
+  createMenu( GEOMOp::OpPoint,   basicId, -1 );
+  createMenu( GEOMOp::OpLine,    basicId, -1 );
+  createMenu( GEOMOp::OpCircle,  basicId, -1 );
+  createMenu( GEOMOp::OpEllipse, basicId, -1 );
+  createMenu( GEOMOp::OpArc,     basicId, -1 );
+  createMenu( GEOMOp::OpCurve,   basicId, -1 );
+  createMenu( GEOMOp::Op2dSketcher, basicId, -1 );
+  createMenu( GEOMOp::Op3dSketcher, basicId, -1 );
+  createMenu( separator(),       basicId, -1 );
+  createMenu( GEOMOp::OpVector,  basicId, -1 );
+  createMenu( GEOMOp::OpPlane,   basicId, -1 );
+  createMenu( GEOMOp::OpLCS,     basicId, -1 );
+  createMenu( GEOMOp::OpOriginAndVectors, basicId, -1 );
+
+  int primId = createMenu( tr( "MEN_PRIMITIVES" ), newEntId, -1 );
+  createMenu( GEOMOp::OpBox,       primId, -1 );
+  createMenu( GEOMOp::OpCylinder,  primId, -1 );
+  createMenu( GEOMOp::OpSphere,    primId, -1 );
+  createMenu( GEOMOp::OpTorus,     primId, -1 );
+  createMenu( GEOMOp::OpCone,      primId, -1 );
+  createMenu( GEOMOp::OpRectangle, primId, -1 );
+  createMenu( GEOMOp::OpDisk,      primId, -1 );
+  createMenu( GEOMOp::OpPipeTShape,primId, -1 );
+
+  int genId = createMenu( tr( "MEN_GENERATION" ), newEntId, -1 );
+  createMenu( GEOMOp::OpPrism,      genId, -1 );
+  createMenu( GEOMOp::OpRevolution, genId, -1 );
+  createMenu( GEOMOp::OpFilling,    genId, -1 );
+  createMenu( GEOMOp::OpPipe,       genId, -1 );
+#if OCC_VERSION_LARGE > 0x06050300
+  createMenu( GEOMOp::OpPipePath,   genId, -1 );
+#endif
+
+   int advId = createMenu( tr( "MEN_ADVANCED" ), newEntId, -1 );
+   createMenu( GEOMOp::OpSmoothingSurface, advId, -1 );
+   //@@ insert new functions before this line @@ do not remove this line @@ do not remove this line @@ do not remove this line @@ do not remove this line @@//
+
+  createMenu( separator(), newEntId, -1 );
+
+  int groupId = createMenu( tr( "MEN_GROUP" ), newEntId, -1 );
+  createMenu( GEOMOp::OpGroupCreate,    groupId, -1 );
+  createMenu( GEOMOp::OpGroupEdit,      groupId, -1 );
+  createMenu( GEOMOp::OpGroupUnion,     groupId, -1 );
+  createMenu( GEOMOp::OpGroupIntersect, groupId, -1 );
+  createMenu( GEOMOp::OpGroupCut,       groupId, -1 );
+
+  createMenu( separator(), newEntId, -1 );
+
+  int blocksId = createMenu( tr( "MEN_BLOCKS" ), newEntId, -1 );
+  createMenu( GEOMOp::OpQuadFace,        blocksId, -1 );
+  createMenu( GEOMOp::OpHexaSolid,       blocksId, -1 );
+  createMenu( GEOMOp::OpDividedDisk,     blocksId, -1 );
+  createMenu( GEOMOp::OpDividedCylinder, blocksId, -1 );
+
+  createMenu( separator(),          newEntId, -1 );
+
+  createMenu( GEOMOp::OpExplode,    newEntId, -1 );
+
+  int buildId = createMenu( tr( "MEN_BUILD" ), newEntId, -1 );
+  createMenu( GEOMOp::OpEdge,     buildId, -1 );
+  createMenu( GEOMOp::OpWire,     buildId, -1 );
+  createMenu( GEOMOp::OpFace,     buildId, -1 );
+  createMenu( GEOMOp::OpShell,    buildId, -1 );
+  createMenu( GEOMOp::OpSolid,    buildId, -1 );
+  createMenu( GEOMOp::OpCompound, buildId, -1 );
+
+  createMenu( separator(),          newEntId, -1 );
+
+  createMenu( GEOMOp::OpPictureImport, newEntId, -1 );
+#ifdef WITH_OPENCV
+  createMenu( GEOMOp::OpFeatureDetect, newEntId, -1 );
+#endif
+
+  int operId = createMenu( tr( "MEN_OPERATIONS" ), -1, -1, 10 );
+
+  int boolId = createMenu( tr( "MEN_BOOLEAN" ), operId, -1 );
+  createMenu( GEOMOp::OpFuse,    boolId, -1 );
+  createMenu( GEOMOp::OpCommon,  boolId, -1 );
+  createMenu( GEOMOp::OpCut,     boolId, -1 );
+  createMenu( GEOMOp::OpSection, boolId, -1 );
+
+  int transId = createMenu( tr( "MEN_TRANSFORMATION" ), operId, -1 );
+  createMenu( GEOMOp::OpTranslate,      transId, -1 );
+  createMenu( GEOMOp::OpRotate,         transId, -1 );
+  createMenu( GEOMOp::OpChangeLoc,      transId, -1 );
+  createMenu( GEOMOp::OpMirror,         transId, -1 );
+  createMenu( GEOMOp::OpScale,          transId, -1 );
+  createMenu( GEOMOp::OpOffset,         transId, -1 );
+  createMenu( GEOMOp::OpProjection,     transId, -1 );
+  createMenu( separator(),              transId, -1 );
+  createMenu( GEOMOp::OpMultiTranslate, transId, -1 );
+  createMenu( GEOMOp::OpMultiRotate,    transId, -1 );
+
+  int blockId = createMenu( tr( "MEN_BLOCKS" ), operId, -1 );
+  createMenu( GEOMOp::OpMultiTransform, blockId, -1 );
+  createMenu( GEOMOp::OpExplodeBlock,   blockId, -1 );
+  createMenu( GEOMOp::OpPropagate,      blockId, -1 );
+
+  createMenu( separator(), operId, -1 );
+
+  createMenu( GEOMOp::OpPartition,     operId, -1 );
+  createMenu( GEOMOp::OpArchimede,     operId, -1 );
+  createMenu( GEOMOp::OpShapesOnShape, operId, -1 );
+  createMenu( GEOMOp::OpSharedShapes,  operId, -1 );
+
+  createMenu( separator(), operId, -1 );
+
+  createMenu( GEOMOp::OpFillet1d,      operId, -1 );
+  createMenu( GEOMOp::OpFillet2d,      operId, -1 );
+  createMenu( GEOMOp::OpFillet3d,      operId, -1 );
+  createMenu( GEOMOp::OpChamfer,       operId, -1 );
+  createMenu( GEOMOp::OpExtrudedBoss,  operId, -1 );
+  createMenu( GEOMOp::OpExtrudedCut,   operId, -1 );
+  //createMenu( GEOMOp::OpClipping,      operId, -1 );
+
+  int repairId = createMenu( tr( "MEN_REPAIR" ), -1, -1, 10 );
+  createMenu( GEOMOp::OpShapeProcess,    repairId, -1 );
+  createMenu( GEOMOp::OpSuppressFaces,   repairId, -1 );
+  createMenu( GEOMOp::OpCloseContour,    repairId, -1 );
+  createMenu( GEOMOp::OpRemoveIntWires,  repairId, -1 );
+  createMenu( GEOMOp::OpSuppressHoles,   repairId, -1 );
+  createMenu( GEOMOp::OpSewing,          repairId, -1 );
+  createMenu( GEOMOp::OpGlueFaces,       repairId, -1 );
+  createMenu( GEOMOp::OpGlueEdges,       repairId, -1 );
+  createMenu( GEOMOp::OpLimitTolerance,  repairId, -1 );
+  createMenu( GEOMOp::OpAddPointOnEdge,  repairId, -1 );
+  //createMenu( GEOMOp::OpFreeBoundaries,  repairId, -1 );
+  //createMenu( GEOMOp::OpFreeFaces,       repairId, -1 );
+  createMenu( GEOMOp::OpOrientation,      repairId, -1 );
+  createMenu( GEOMOp::OpRemoveWebs,       repairId, -1 );
+  createMenu( GEOMOp::OpRemoveExtraEdges, repairId, -1 );
+  createMenu( GEOMOp::OpFuseEdges,        repairId, -1 );
+  createMenu( GEOMOp::OpUnionFaces,       repairId, -1 );
+
+  int measurId = createMenu( tr( "MEN_MEASURES" ), -1, -1, 10 );
+  createMenu( GEOMOp::OpPointCoordinates, measurId, -1 );
+  createMenu( GEOMOp::OpProperties,       measurId, -1 );
+  createMenu( separator(),                measurId, -1 );
+  createMenu( GEOMOp::OpCenterMass,       measurId, -1 );
+  createMenu( GEOMOp::OpInertia,          measurId, -1 );
+  createMenu( GEOMOp::OpNormale,          measurId, -1 );
+  createMenu( separator(),                measurId, -1 );
+  createMenu( GEOMOp::OpFreeBoundaries,   measurId, -1 );
+  createMenu( GEOMOp::OpFreeFaces,        measurId, -1 );
+  createMenu( separator(),                measurId, -1 );
+
+  int dimId = createMenu( tr( "MEN_DIMENSIONS" ), measurId, -1 );
+  createMenu( GEOMOp::OpBoundingBox, dimId, -1 );
+  createMenu( GEOMOp::OpMinDistance, dimId, -1 );
+  createMenu( GEOMOp::OpAngle,       dimId, -1 );
+
+  createMenu( separator(),               measurId, -1 );
+  createMenu( GEOMOp::OpTolerance,       measurId, -1 );
+  createMenu( separator(),               measurId, -1 );
+  createMenu( GEOMOp::OpWhatIs,          measurId, -1 );
+  createMenu( GEOMOp::OpCheckShape,      measurId, -1 );
+  createMenu( GEOMOp::OpCheckCompound,   measurId, -1 );
+  createMenu( GEOMOp::OpGetNonBlocks,    measurId, -1 );
+  createMenu( GEOMOp::OpCheckSelfInters, measurId, -1 );
+
+  int toolsId = createMenu( tr( "MEN_TOOLS" ), -1, -1, 50 );
+#if defined(_DEBUG_) || defined(_DEBUG) // PAL16821
+  createMenu( separator(),         toolsId, -1 );
+  createMenu( GEOMOp::OpCheckGeom, toolsId, -1 );
+#endif
+  createMenu( separator(),         toolsId, -1 );
+  createMenu( GEOMOp::OpMaterialsLibrary, toolsId, -1 );
+  createMenu( separator(),         toolsId, -1 );
+
+  int viewId = createMenu( tr( "MEN_VIEW" ), -1, -1 );
+  createMenu( separator(),       viewId, -1 );
+
+  int dispmodeId = createMenu( tr( "MEN_DISPLAY_MODE" ), viewId, -1 );
+  createMenu( GEOMOp::OpDMWireframe,        dispmodeId, -1 );
+  createMenu( GEOMOp::OpDMShading,          dispmodeId, -1 );
+  createMenu( GEOMOp::OpDMShadingWithEdges, dispmodeId, -1 );
+  createMenu( separator(),                  dispmodeId, -1 );
+  createMenu( GEOMOp::OpSwitchVectors,      dispmodeId, -1 );
+
+  createMenu( separator(),       viewId, -1 );
+  createMenu( GEOMOp::OpShowAll, viewId, -1 );
+  createMenu( GEOMOp::OpHideAll, viewId, -1 );
+  createMenu( separator(),       viewId, -1 );
+  createMenu( GEOMOp::OpPublishObject, viewId, -1 );
+  createMenu( separator(),       viewId, -1 );
+
+/*
+  PAL9111:
+  because of these items are accessible through object browser and viewers
+  we have removed they from main menu
+
+  createMenu( GEOMOp::OpShow, viewId, -1 );
+  createMenu( GEOMOp::OpShowOnly, viewId, -1 );
+  createMenu( GEOMOp::OpHide, viewId, -1 );
+*/
+
+  // ---- create toolbars --------------------------
+
+  int basicTbId = createTool( tr( "TOOL_BASIC" ) );
+  createTool( GEOMOp::OpPoint,      basicTbId );
+  createTool( GEOMOp::OpLine,       basicTbId );
+  createTool( GEOMOp::OpCircle,     basicTbId );
+  createTool( GEOMOp::OpEllipse,    basicTbId );
+  createTool( GEOMOp::OpArc,        basicTbId );
+  createTool( GEOMOp::OpCurve,      basicTbId );
+  createTool( GEOMOp::OpVector,     basicTbId );
+  createTool( GEOMOp::Op2dSketcher, basicTbId ); //rnc
+  createTool( GEOMOp::Op3dSketcher, basicTbId ); //rnc
+  createTool( GEOMOp::OpPlane,      basicTbId );
+  createTool( GEOMOp::OpLCS,        basicTbId );
+  createTool( GEOMOp::OpOriginAndVectors, basicTbId );
+
+//   int sketchTbId = createTool( tr( "TOOL_SKETCH" ) );
+//   createTool( GEOMOp::Op2dSketcher,  sketchTbId );
+//   createTool( GEOMOp::Op3dSketcher,  sketchTbId );
+
+  int primTbId = createTool( tr( "TOOL_PRIMITIVES" ) );
+  createTool( GEOMOp::OpBox,        primTbId );
+  createTool( GEOMOp::OpCylinder,   primTbId );
+  createTool( GEOMOp::OpSphere,     primTbId );
+  createTool( GEOMOp::OpTorus,      primTbId );
+  createTool( GEOMOp::OpCone,       primTbId );
+  createTool( GEOMOp::OpRectangle,  primTbId );
+  createTool( GEOMOp::OpDisk,       primTbId );
+  createTool( GEOMOp::OpPipeTShape, primTbId ); //rnc
+
+  int blocksTbId = createTool( tr( "TOOL_BLOCKS" ) );
+  createTool( GEOMOp::OpDividedDisk, blocksTbId );
+  createTool( GEOMOp::OpDividedCylinder, blocksTbId );
+
+//   int advancedTbId = createTool( tr( "TOOL_ADVANCED" ) ); //rnc
+//   createTool( GEOMOp::OpPipeTShape, advancedTbId );
+
+  int boolTbId = createTool( tr( "TOOL_BOOLEAN" ) );
+  createTool( GEOMOp::OpFuse,       boolTbId );
+  createTool( GEOMOp::OpCommon,     boolTbId );
+  createTool( GEOMOp::OpCut,        boolTbId );
+  createTool( GEOMOp::OpSection,    boolTbId );
+
+  int genTbId = createTool( tr( "TOOL_GENERATION" ) );
+  createTool( GEOMOp::OpPrism,      genTbId );
+  createTool( GEOMOp::OpRevolution, genTbId );
+  createTool( GEOMOp::OpFilling,    genTbId );
+  createTool( GEOMOp::OpPipe,       genTbId );
+#if OCC_VERSION_LARGE > 0x06050300
+  createTool( GEOMOp::OpPipePath,   genTbId );
+#endif
+
+  int transTbId = createTool( tr( "TOOL_TRANSFORMATION" ) );
+  createTool( GEOMOp::OpTranslate,      transTbId );
+  createTool( GEOMOp::OpRotate,         transTbId );
+  createTool( GEOMOp::OpChangeLoc,      transTbId );
+  createTool( GEOMOp::OpMirror,         transTbId );
+  createTool( GEOMOp::OpScale,          transTbId );
+  createTool( GEOMOp::OpOffset,         transTbId );
+  createTool( GEOMOp::OpProjection,     transTbId );
+  createTool( separator(),              transTbId );
+  createTool( GEOMOp::OpMultiTranslate, transTbId );
+  createTool( GEOMOp::OpMultiRotate,    transTbId );
+
+  int operTbId = createTool( tr( "TOOL_OPERATIONS" ) );
+  createTool( GEOMOp::OpExplode,         operTbId );
+  createTool( GEOMOp::OpPartition,       operTbId );
+  createTool( GEOMOp::OpArchimede,       operTbId );
+  createTool( GEOMOp::OpShapesOnShape,   operTbId );
+  createTool( GEOMOp::OpSharedShapes,    operTbId );
+
+  int featTbId = createTool( tr( "TOOL_FEATURES" ) );
+  createTool( GEOMOp::OpFillet1d,        featTbId );
+  createTool( GEOMOp::OpFillet2d,        featTbId );
+  createTool( GEOMOp::OpFillet3d,        featTbId );
+  createTool( GEOMOp::OpChamfer,         featTbId );
+  createTool( GEOMOp::OpExtrudedBoss,    featTbId );
+  createTool( GEOMOp::OpExtrudedCut,     featTbId );
+
+  int buildTbId = createTool( tr( "TOOL_BUILD" ) );
+  createTool( GEOMOp::OpEdge,     buildTbId );
+  createTool( GEOMOp::OpWire,     buildTbId );
+  createTool( GEOMOp::OpFace,     buildTbId );
+  createTool( GEOMOp::OpShell,    buildTbId );
+  createTool( GEOMOp::OpSolid,    buildTbId );
+  createTool( GEOMOp::OpCompound, buildTbId );
+
+  int measureTbId = createTool( tr( "TOOL_MEASURES" ) );
+  createTool( GEOMOp::OpPointCoordinates, measureTbId );
+  createTool( GEOMOp::OpProperties,       measureTbId );
+  createTool( GEOMOp::OpCenterMass,       measureTbId );
+  createTool( GEOMOp::OpInertia,          measureTbId );
+  createTool( GEOMOp::OpNormale,          measureTbId );
+  createTool( separator(),                measureTbId );
+  createTool( GEOMOp::OpBoundingBox,      measureTbId );
+  createTool( GEOMOp::OpMinDistance,      measureTbId );
+  createTool( GEOMOp::OpAngle,            measureTbId );
+  createTool( GEOMOp::OpTolerance  ,      measureTbId );
+  createTool( separator(),                measureTbId );
+  createTool( GEOMOp::OpFreeBoundaries,   measureTbId );
+  createTool( GEOMOp::OpFreeFaces,        measureTbId );
+  createTool( separator(),                measureTbId );
+  createTool( GEOMOp::OpWhatIs,           measureTbId );
+  createTool( GEOMOp::OpCheckShape,       measureTbId );
+  createTool( GEOMOp::OpCheckCompound,    measureTbId );
+  createTool( GEOMOp::OpGetNonBlocks,     measureTbId );
+  createTool( GEOMOp::OpCheckSelfInters,  measureTbId );
+
+  int picturesTbId = createTool( tr( "TOOL_PICTURES" ) );
+  createTool( GEOMOp::OpPictureImport,    picturesTbId );
+  #ifdef WITH_OPENCV
+    createTool( GEOMOp::OpFeatureDetect,  picturesTbId );
+  #endif
+
+  int advancedTbId = createTool( tr( "TOOL_ADVANCED" ) );
+  createTool( GEOMOp::OpSmoothingSurface, advancedTbId );
+  //@@ insert new functions before this line @@ do not remove this line @@ do not remove this line @@ do not remove this line @@ do not remove this line @@//
+
+  // ---- create popup menus --------------------------
+
+  QString clientOCCorVTK = "(client='OCCViewer' or client='VTKViewer')";
+  QString clientOCC = "(client='OCCViewer')";
+  QString clientOCCorVTK_AndSomeVisible = clientOCCorVTK + " and selcount>0 and isVisible";
+  QString clientOCC_AndSomeVisible = clientOCC + " and selcount>0 and isVisible";
+
+  QString clientOCCorOB = "(client='ObjectBrowser' or client='OCCViewer')";
+  QString clientOCCorVTKorOB = "(client='ObjectBrowser' or client='OCCViewer' or client='VTKViewer')";
+  QString clientOCCorVTKorOB_AndSomeVisible = clientOCCorVTKorOB + " and selcount>0 and isVisible";
+  QString clientOCCorOB_AndSomeVisible = clientOCCorOB + " and selcount>0 and isVisible";
+
+  QString autoColorPrefix =
+    "(client='ObjectBrowser' or client='OCCViewer') and type='Shape' and selcount=1 and isOCC=true";
+
+  QtxPopupMgr* mgr = popupMgr();
+
+  mgr->insert( action(  GEOMOp::OpDelete ), -1, -1 );  // delete
+  mgr->setRule( action( GEOMOp::OpDelete ), QString("$type in {'Shape' 'Group'} and selcount>0"), QtxPopupMgr::VisibleRule );
+  mgr->insert( action(  GEOMOp::OpGroupCreatePopup ), -1, -1 ); // create group
+  mgr->setRule( action( GEOMOp::OpGroupCreatePopup ), QString("type='Shape' and selcount=1 and isOCC=true"), QtxPopupMgr::VisibleRule );
+  mgr->insert( action(  GEOMOp::OpDiscloseChildren ), -1, -1 ); // disclose child items
+  mgr->setRule( action( GEOMOp::OpDiscloseChildren ), QString("client='ObjectBrowser' and type='Shape' and selcount=1 and hasConcealedChildren=true"), QtxPopupMgr::VisibleRule );
+
+  mgr->insert( action(  GEOMOp::OpConcealChildren ), -1, -1 ); // conceal shild items
+  mgr->setRule( action( GEOMOp::OpConcealChildren ), QString("client='ObjectBrowser' and type='Shape' and selcount=1 and hasDisclosedChildren=true"), QtxPopupMgr::VisibleRule );
+  mgr->insert( action(  GEOMOp::OpGroupEdit ), -1, -1 );  // edit group
+  mgr->setRule( action( GEOMOp::OpGroupEdit ),  QString("client='ObjectBrowser' and type='Group' and selcount=1 and isOCC=true"), QtxPopupMgr::VisibleRule );
+  mgr->insert( separator(), -1, -1 );     // -----------
+
+#if OCC_VERSION_LARGE > 0x06050200
+  //QString bringRule = clientOCCorOB + " and ($component={'GEOM'}) and (selcount>0) and isOCC=true and topLevel=false";
+  QString bringRule = clientOCCorOB + " and ($component={'GEOM'}) and (selcount>0) and isOCC=true";
+  mgr->insert( action(GEOMOp::OpBringToFront ), -1, -1 ); // bring to front
+  mgr->setRule(action(GEOMOp::OpBringToFront), bringRule, QtxPopupMgr::VisibleRule );
+  mgr->setRule(action(GEOMOp::OpBringToFront), "topLevel=true", QtxPopupMgr::ToggleRule );
+  mgr->insert( action(GEOMOp::OpClsBringToFront ), -1, -1 ); // clear bring to front
+  mgr->setRule( action(GEOMOp::OpClsBringToFront ), clientOCC, QtxPopupMgr::VisibleRule );
+#endif
+  mgr->insert( separator(), -1, -1 );     // -----------
+  dispmodeId = mgr->insert(  tr( "MEN_DISPLAY_MODE" ), -1, -1 ); // display mode menu
+  mgr->insert( action(  GEOMOp::OpWireframe ), dispmodeId, -1 ); // wireframe
+  mgr->setRule( action( GEOMOp::OpWireframe ), clientOCCorVTK_AndSomeVisible + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+  mgr->setRule( action( GEOMOp::OpWireframe ), clientOCCorVTK + " and displaymode='Wireframe'", QtxPopupMgr::ToggleRule );
+  mgr->insert( action(  GEOMOp::OpShading ), dispmodeId, -1 ); // shading
+  mgr->setRule( action( GEOMOp::OpShading ), clientOCCorVTK_AndSomeVisible + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+  mgr->setRule( action( GEOMOp::OpShading ), clientOCCorVTK + " and displaymode='Shading'", QtxPopupMgr::ToggleRule );
+  mgr->insert( action(  GEOMOp::OpShadingWithEdges ), dispmodeId, -1 ); // shading with edges
+  mgr->setRule( action( GEOMOp::OpShadingWithEdges ), clientOCCorVTK_AndSomeVisible + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+  mgr->setRule( action( GEOMOp::OpShadingWithEdges ), clientOCCorVTK + " and displaymode='ShadingWithEdges'", QtxPopupMgr::ToggleRule );
+  mgr->insert( action(  GEOMOp::OpTexture ), dispmodeId, -1 ); // wireframe
+  mgr->setRule( action( GEOMOp::OpTexture ), clientOCC_AndSomeVisible, QtxPopupMgr::VisibleRule );
+  mgr->setRule( action( GEOMOp::OpTexture), clientOCC + " and displaymode='Texture'", QtxPopupMgr::ToggleRule );
+  mgr->insert( separator(), dispmodeId, -1 );
+  mgr->insert( action(  GEOMOp::OpVectors ), dispmodeId, -1 ); // vectors
+  mgr->setRule( action( GEOMOp::OpVectors ), clientOCCorVTK_AndSomeVisible  + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+  mgr->setRule( action( GEOMOp::OpVectors ), clientOCCorVTK + " and isVectorsMode", QtxPopupMgr::ToggleRule );
+  mgr->insert( separator(), -1, -1 );     // -----------
+  
+  mgr->insert( action(  GEOMOp::OpColor ), -1, -1 ); // color
+  mgr->setRule( action( GEOMOp::OpColor ), clientOCCorVTKorOB_AndSomeVisible + " and ($component={'GEOM'})" + "and isPhysicalMaterial=false", QtxPopupMgr::VisibleRule );
+  mgr->insert( action(  GEOMOp::OpTransparency ), -1, -1 ); // transparency
+  mgr->setRule( action( GEOMOp::OpTransparency ), clientOCCorVTK_AndSomeVisible + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+  mgr->insert( action(  GEOMOp::OpIsos ), -1, -1 ); // isos
+  mgr->setRule( action( GEOMOp::OpIsos ), clientOCCorVTK_AndSomeVisible + " and selcount>0 and isVisible" + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+  mgr->insert( action(  GEOMOp::OpDeflection ), -1, -1 ); // deflection
+  mgr->setRule( action( GEOMOp::OpDeflection ), clientOCCorVTK_AndSomeVisible + " and selcount>0 and isVisible" + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+  mgr->insert( action(  GEOMOp::OpPointMarker ), -1, -1 ); // point marker
+  //mgr->setRule( action( GEOMOp::OpPointMarker ), QString( "selcount>0 and $typeid in {%1}" ).arg(GEOM_POINT ), QtxPopupMgr::VisibleRule );
+  mgr->setRule( action( GEOMOp::OpPointMarker ), QString( "selcount>0 and ( $typeid in {%1} or compoundOfVertices=true ) " ).arg(GEOM::VERTEX).arg(GEOM::COMPOUND), QtxPopupMgr::VisibleRule );
+  
+  // material properties
+  mgr->insert( action(  GEOMOp::OpMaterialProperties ), -1, -1 ); 
+  mgr->setRule( action( GEOMOp::OpMaterialProperties ), clientOCCorVTK_AndSomeVisible + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+
+ // texture
+  mgr->insert( action(  GEOMOp::OpSetTexture ), -1, -1 );
+  mgr->setRule( action( GEOMOp::OpSetTexture ), clientOCCorOB_AndSomeVisible + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+
+  int lineW = mgr->insert(  tr( "MEN_LINE_WIDTH" ), -1, -1 ); // line width menu
+  mgr->insert( action(  GEOMOp::OpEdgeWidth ), lineW, -1 ); // edge width
+  mgr->setRule( action( GEOMOp::OpEdgeWidth ), clientOCCorVTK_AndSomeVisible + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+
+  mgr->insert( action(  GEOMOp::OpIsosWidth ), lineW, -1 ); // isos width
+  mgr->setRule( action( GEOMOp::OpIsosWidth ), clientOCCorVTK_AndSomeVisible + " and ($component={'GEOM'})", QtxPopupMgr::VisibleRule );
+
+  mgr->insert( separator(), -1, -1 );     // -----------
+  mgr->insert( action(  GEOMOp::OpAutoColor ), -1, -1 ); // auto color
+  mgr->setRule( action( GEOMOp::OpAutoColor ), autoColorPrefix + " and isAutoColor=false", QtxPopupMgr::VisibleRule );
+  mgr->insert( action(  GEOMOp::OpNoAutoColor ), -1, -1 ); // disable auto color
+  mgr->setRule( action( GEOMOp::OpNoAutoColor ), autoColorPrefix + " and isAutoColor=true", QtxPopupMgr::VisibleRule );
+  mgr->insert( separator(), -1, -1 );     // -----------
+
+  QString canDisplay = "($component={'GEOM'}) and (selcount>0) and ({true} in $canBeDisplayed) ",
+          onlyComponent = "((type='Component') and selcount=1)",
+          rule = canDisplay + "and ((($type in {%1}) and( %2 )) or " + onlyComponent + ")",
+          types = "'Shape' 'Group'";
+
+  mgr->insert( action(  GEOMOp::OpShow ), -1, -1 ); // display
+  mgr->setRule( action( GEOMOp::OpShow ), rule.arg( types ).arg( "not isVisible" ), QtxPopupMgr::VisibleRule );
+
+  mgr->insert( action(  GEOMOp::OpHide ), -1, -1 ); // erase
+  mgr->setRule( action( GEOMOp::OpHide ), rule.arg( types ).arg( "isVisible" ), QtxPopupMgr::VisibleRule );
+
+  mgr->insert( action(  GEOMOp::OpHideAll ), -1, -1 ); // erase All
+  mgr->setRule( action( GEOMOp::OpHideAll ), clientOCCorVTK, QtxPopupMgr::VisibleRule );
+
+  QString selectOnly = "(client='OCCViewer' or client='VTKViewer') and (selcount=0)";
+
+  int selectonlyId = mgr->insert( tr("MEN_SELECT_ONLY"), -1, -1);                //select only menu
+  mgr->insert( action(GEOMOp::OpSelectVertex),   selectonlyId, -1);                                  //Vertex
+  mgr->setRule(action(GEOMOp::OpSelectVertex),   selectOnly, QtxPopupMgr::VisibleRule);
+  mgr->setRule(action(GEOMOp::OpSelectVertex),   selectOnly + " and selectionmode='VERTEX'", QtxPopupMgr::ToggleRule);
+  mgr->insert( action(GEOMOp::OpSelectEdge),     selectonlyId, -1);                                  //Edge
+  mgr->setRule(action(GEOMOp::OpSelectEdge),     selectOnly, QtxPopupMgr::VisibleRule);
+  mgr->setRule(action(GEOMOp::OpSelectEdge),     selectOnly + " and selectionmode='EDGE'", QtxPopupMgr::ToggleRule);
+  mgr->insert( action(GEOMOp::OpSelectWire),     selectonlyId, -1);                                  //Wire
+  mgr->setRule(action(GEOMOp::OpSelectWire),     selectOnly, QtxPopupMgr::VisibleRule);
+  mgr->setRule(action(GEOMOp::OpSelectWire),     selectOnly + " and selectionmode='WIRE'", QtxPopupMgr::ToggleRule);
+  mgr->insert( action(GEOMOp::OpSelectFace),     selectonlyId, -1);                                  //Face
+  mgr->setRule(action(GEOMOp::OpSelectFace),     selectOnly, QtxPopupMgr::VisibleRule);
+  mgr->setRule(action(GEOMOp::OpSelectFace),     selectOnly + " and selectionmode='FACE'", QtxPopupMgr::ToggleRule);
+  mgr->insert( action(GEOMOp::OpSelectShell),    selectonlyId, -1);                                  //Shell
+  mgr->setRule(action(GEOMOp::OpSelectShell),    selectOnly, QtxPopupMgr::VisibleRule);
+  mgr->setRule(action(GEOMOp::OpSelectShell),    selectOnly + " and selectionmode='SHELL'", QtxPopupMgr::ToggleRule);
+  mgr->insert( action(GEOMOp::OpSelectSolid),    selectonlyId, -1);                                  //Solid
+  mgr->setRule(action(GEOMOp::OpSelectSolid),    selectOnly, QtxPopupMgr::VisibleRule);
+  mgr->setRule(action(GEOMOp::OpSelectSolid),    selectOnly + " and selectionmode='SOLID'", QtxPopupMgr::ToggleRule);
+  mgr->insert( action(GEOMOp::OpSelectCompound), selectonlyId, -1);                                  //Compound
+  mgr->setRule(action(GEOMOp::OpSelectCompound), selectOnly, QtxPopupMgr::VisibleRule);
+  mgr->setRule(action(GEOMOp::OpSelectCompound), selectOnly + " and selectionmode='COMPOUND'", QtxPopupMgr::ToggleRule);
+  mgr->insert( separator(), selectonlyId, -1);
+  mgr->insert( action(GEOMOp::OpSelectAll),      selectonlyId, -1);                                  //Clear selection filter
+  mgr->setRule(action(GEOMOp::OpSelectAll),      selectOnly, QtxPopupMgr::VisibleRule);
+  mgr->setRule(action(GEOMOp::OpSelectAll),      selectOnly + " and selectionmode='ALL'", QtxPopupMgr::ToggleRule);
+  mgr->insert( action(GEOMOp::OpShowOnly ), -1, -1 ); // display only
+  mgr->setRule(action(GEOMOp::OpShowOnly ), rule.arg( types ).arg( "true" ), QtxPopupMgr::VisibleRule );
+  mgr->insert( action(GEOMOp::OpShowOnlyChildren ), -1, -1 ); // display only children
+  mgr->setRule(action(GEOMOp::OpShowOnlyChildren ), (canDisplay + "and ($type in {%1}) and client='ObjectBrowser' and hasChildren=true").arg( types ), QtxPopupMgr::VisibleRule );
+
+  mgr->insert( separator(), -1, -1 );     // -----------
+  mgr->insert( action(  GEOMOp::OpUnpublishObject ), -1, -1 ); // Unpublish object
+  mgr->setRule( action( GEOMOp::OpUnpublishObject ), QString("client='ObjectBrowser' and $type in {'Shape' 'Group'} and selcount>0"), QtxPopupMgr::VisibleRule );
+
+  mgr->insert( action(  GEOMOp::OpPublishObject ), -1, -1 ); // Publish object
+  mgr->setRule( action( GEOMOp::OpPublishObject ), QString("client='ObjectBrowser' and isComponent=true"), QtxPopupMgr::VisibleRule );
+
+  mgr->insert( action(  GEOMOp::OpReimport ), -1, -1 );  // delete
+  mgr->setRule( action( GEOMOp::OpReimport ), QString("$imported in {'true'} and selcount>0"), QtxPopupMgr::VisibleRule );
+
+  mgr->hide( mgr->actionId( action( myEraseAll ) ) );
+
+  SUIT_ResourceMgr* resMgr = SUIT_Session::session()->resourceMgr();
+  if (resMgr) {
+    GEOM_AISShape::setTopLevelDisplayMode((GEOM_AISShape::TopLevelDispMode)resMgr->integerValue("Geometry", "toplevel_dm", 0));
+    QColor c = resMgr->colorValue( "Geometry", "toplevel_color", QColor( 170, 85, 0 ) );
+    GEOM_AISShape::setTopLevelColor(SalomeApp_Tools::color(c));
+  }
+}
+
+//=======================================================================
+// function : GeometryGUI::activateModule()
+// purpose  : Called when GEOM module is activated
+//=======================================================================
+bool GeometryGUI::activateModule( SUIT_Study* study )
+{
+  if ( CORBA::is_nil( myComponentGeom ) )
+    return false;
+
+  bool res = SalomeApp_Module::activateModule( study );
+
+  if ( !res )
+    return false;
+  setMenuShown( true );
+  setToolShown( true );
+
+  // import Python module that manages GEOM plugins (need to be here because SalomePyQt API uses active module)
+  PyGILState_STATE gstate = PyGILState_Ensure();
+  PyObject* pluginsmanager = PyImport_ImportModuleNoBlock((char*)"salome_pluginsmanager");
+  if (pluginsmanager == NULL)
+    PyErr_Print();
+  else {
+    PyObject* result =
+      PyObject_CallMethod(pluginsmanager, (char*)"initialize", (char*)"isss", 1, "geom",
+                          tr("MEN_NEW_ENTITY").toStdString().c_str(),
+                          tr("GEOM_PLUGINS_OTHER").toStdString().c_str());
+    if (result == NULL)
+      PyErr_Print();
+    Py_XDECREF(result);
+  }
+  PyGILState_Release(gstate);
+  // end of GEOM plugins loading
+
+  connect( application()->desktop(), SIGNAL( windowActivated( SUIT_ViewWindow* ) ),
+          this, SLOT( onWindowActivated( SUIT_ViewWindow* ) ) );
+
+  // Reset actions accelerator keys
+  action(GEOMOp::OpImport)->setEnabled( true ); // Import: CTRL + Key_I
+  action(GEOMOp::OpExport)->setEnabled( true ); // Export: CTRL + Key_E
+  action(GEOMOp::OpDelete)->setEnabled( true ); // Delete: Key_Delete
+
+  GUIMap::Iterator it;
+  for ( it = myGUIMap.begin(); it != myGUIMap.end(); ++it )
+    it.value()->activate( application()->desktop() );
+
+  LightApp_SelectionMgr* sm = getApp()->selectionMgr();
+
+  connect( sm, SIGNAL( currentSelectionChanged() ), this, SLOT( updateCreationInfo() ));
+  if ( !myCreationInfoWdg )
+    myCreationInfoWdg = new GEOMGUI_CreationInfoWdg( getApp() );
+  getApp()->insertDockWindow( myCreationInfoWdg->getWinID(), myCreationInfoWdg );
+  getApp()->placeDockWindow( myCreationInfoWdg->getWinID(), Qt::LeftDockWidgetArea );
+
+  SUIT_ViewManager* vm;
+  ViewManagerList OCCViewManagers, VTKViewManagers;
+
+  application()->viewManagers( OCCViewer_Viewer::Type(), OCCViewManagers );
+  QListIterator<SUIT_ViewManager*> itOCC( OCCViewManagers );
+  while ( itOCC.hasNext() && (vm = itOCC.next()) )
+    myOCCSelectors.append( new GEOMGUI_OCCSelector( ((OCCViewer_ViewManager*)vm)->getOCCViewer(), sm ) );
+
+  application()->viewManagers( SVTK_Viewer::Type(), VTKViewManagers );
+  QListIterator<SUIT_ViewManager*> itVTK( VTKViewManagers );
+  while ( itVTK.hasNext() && (vm = itVTK.next()) )
+    myVTKSelectors.append( new LightApp_VTKSelector( dynamic_cast<SVTK_Viewer*>( vm->getViewModel() ), sm ) );
+
+  //NPAL 19674
+  SALOME_ListIO selected;
+  sm->selectedObjects( selected );
+  sm->clearSelected();
+
+  // disable OCC selectors
+  getApp()->selectionMgr()->setEnabled( false, OCCViewer_Viewer::Type() );
+  QListIterator<GEOMGUI_OCCSelector*> itOCCSel( myOCCSelectors );
+  while ( itOCCSel.hasNext() )
+    if ( GEOMGUI_OCCSelector* sr = itOCCSel.next() )
+      sr->setEnabled(true);
+
+  // disable VTK selectors
+  getApp()->selectionMgr()->setEnabled( false, SVTK_Viewer::Type() );
+  QListIterator<LightApp_VTKSelector*> itVTKSel( myVTKSelectors );
+  while ( itVTKSel.hasNext() )
+    if ( LightApp_VTKSelector* sr = itVTKSel.next() )
+      sr->setEnabled(true);
+
+  sm->setSelectedObjects( selected, true );   //NPAL 19674
+
+  QMenu* viewMenu = menuMgr()->findMenu( STD_Application::MenuViewId );
+  if ( viewMenu )
+    connect( viewMenu, SIGNAL( aboutToShow() ), this, SLOT( onViewAboutToShow() ) );
+
+  // 0020836 (Basic vectors and origin)
+  SUIT_ResourceMgr* aResourceMgr = SUIT_Session::session()->resourceMgr();
+  if ( aResourceMgr->booleanValue( "Geometry", "auto_create_base_objects", false ) ) {
+    SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( application()->activeStudy() );
+    if ( appStudy ) {
+      _PTR(Study) studyDS = appStudy->studyDS();
+      if ( studyDS ) {
+        _PTR(SComponent) aSComponent = studyDS->FindComponent("GEOM");
+        if ( !aSComponent ) // create objects automatically only if there is no GEOM component
+          createOriginAndBaseVectors();
+      }
+    }
   }
-}
 
+  return true;
+}
 
 //=======================================================================
-// function : MakeBoxAndDisplay()
-// purpose  : 
+// function : GeometryGUI::deactivateModule()
+// purpose  : Called when GEOM module is deactivated
 //=======================================================================
-void GeometryGUI::MakeBoxAndDisplay( const gp_Pnt P1, const gp_Pnt P2 )
+bool GeometryGUI::deactivateModule( SUIT_Study* study )
 {
-  try {
-    GEOM::GEOM_Shape_var box = myComponentGeom->MakeBox( P1.X(), P1.Y(), P1.Z(), P2.X(), P2.Y(), P2.Z() );
-    box->NameType(tr("GEOM_BOX"));
-    if ( Display( box, "") ) {
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-    }
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-}
+  QMenu* viewMenu = menuMgr()->findMenu( STD_Application::MenuViewId );
+  if ( viewMenu )
+    disconnect( viewMenu, SIGNAL( aboutToShow() ), this, SLOT( onViewAboutToShow() ) );
 
+  setMenuShown( false );
+  setToolShown( false );
 
+  disconnect( application()->desktop(), SIGNAL( windowActivated( SUIT_ViewWindow* ) ),
+             this, SLOT( onWindowActivated( SUIT_ViewWindow* ) ) );
 
+  LightApp_SelectionMgr* selMrg = getApp()->selectionMgr();
 
-//=======================================================================
-// function : MakePlaneAndDisplay()
-// purpose  : Plane point is P1 and dx, dy, dz define a normal vector
-//=======================================================================
-void GeometryGUI::MakePlaneAndDisplay( const gp_Pnt P1,        const Standard_Real dx,
-                                      const Standard_Real dy, const Standard_Real dz,
-                                      const Standard_Real TrimSize )
-{
-  try {
-    gp_Dir aDirection;
-    aDirection.SetCoord(dx, dy, dz) ;
-    gp_Ax2 Axis( P1, aDirection );
-    
-    GEOM::PointStruct pstruct = myComponentGeom->MakePointStruct(P1.X(), P1.Y(), P1.Z() ) ;
-    GEOM::PointStruct d = myComponentGeom->MakePointStruct(aDirection.X(), aDirection.Y(), aDirection.Z()) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
-    GEOM::GEOM_Shape_ptr plane = myComponentGeom->MakePlane(pstruct, dstruct, TrimSize) ;
-    plane->NameType(tr("GEOM_PLANE"));
-    if ( Display( plane, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-}
+  disconnect( selMrg, SIGNAL( currentSelectionChanged() ), this, SLOT( updateCreationInfo() ));
+  getApp()->removeDockWindow( myCreationInfoWdg->getWinID() );
+  myCreationInfoWdg = 0;
 
+  EmitSignalCloseAllDialogs();
 
-//=======================================================================
-// function : MakeWorkingPlane()
-// purpose  : Change the point of view3d
-//=======================================================================
-void GeometryGUI::MakeWorkingPlane( const gp_Pnt P, const gp_Dir D)
-{
-  if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() != VIEW_OCC) {
-    GeomGUI->myDesktop->putInfo( tr("GEOM_PRP_NOT_FOR_VTK_VIEWER") ) ;
-    return ;
-  }
-  OCCViewer_ViewPort* vp = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewPort();
-  Handle( V3d_View) view3d = ((OCCViewer_ViewPort3d*)vp)->getView();
-  view3d->SetAt( P.X(), P.Y(), P.Z() );
-  view3d->SetProj( D.X(), D.Y(), D.Z() );
-  myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-}
+  GUIMap::Iterator it;
+  for ( it = myGUIMap.begin(); it != myGUIMap.end(); ++it )
+    it.value()->deactivate();
+
+  // Unset actions accelerator keys
+  action(GEOMOp::OpImport)->setEnabled( false ); // Import: CTRL + Key_I
+  action(GEOMOp::OpExport)->setEnabled( false ); // Export: CTRL + Key_E
+  action(GEOMOp::OpDelete)->setEnabled( false ); // Delete: Key_Delete
+
+  qDeleteAll(myOCCSelectors);
+  myOCCSelectors.clear();
+  selMrg->setEnabled( true, OCCViewer_Viewer::Type() );
+
+  qDeleteAll(myVTKSelectors);
+  myVTKSelectors.clear();
+  selMrg->setEnabled( true, SVTK_Viewer::Type() );
 
+  return SalomeApp_Module::deactivateModule( study );
+}
 
 //=======================================================================
-// function : MakePrismAndDisplay()
-// purpose  : P1 and P2 is to define a vector for prism
+// function : onWindowActivated()
+// purpose  : update menu items' status - disable non-OCC-viewer-compatible actions
 //=======================================================================
-void GeometryGUI::MakePrismAndDisplay( GEOM::GEOM_Shape_ptr BaseShape, const gp_Pnt P1, const gp_Pnt P2 )
+void GeometryGUI::onWindowActivated( SUIT_ViewWindow* win )
 {
-  try {
-    GEOM::PointStruct PS1 = myComponentGeom->MakePointStruct(P1.X(), P1.Y(), P1.Z() ) ;
-    GEOM::PointStruct PS2 = myComponentGeom->MakePointStruct(P2.X(), P2.Y(), P2.Z() ) ;
-    if( BaseShape->_is_nil() ) {
-      myDesktop->putInfo (tr("GEOM_PRP_NULLSHAPE")) ; 
-      return ;
-    }
-    
-    GEOM::GEOM_Shape_ptr result = myComponentGeom->MakePrism( BaseShape, PS1, PS2 ) ;
-    if (result->_is_nil()) {
-      myDesktop->putInfo (tr("GEOM_PRP_NULLSHAPE")) ; 
-      return ;
-    }  
-
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, result);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    result->NameType( type );
-
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
-}
+  if ( !win )
+    return;
 
+  const bool ViewOCC = ( win->getViewManager()->getType() == OCCViewer_Viewer::Type() );
+  //const bool ViewVTK = ( win->getViewManager()->getType() == SVTK_Viewer::Type() );
 
-//=====================================================================================
-// function : MakeLineAndDisplay()
-// purpose  : Create an infinite oriented line (linear edge in fact) 
-//=====================================================================================
-void GeometryGUI::MakeLineAndDisplay( const gp_Pnt InitPoint, const gp_Pnt LastPoint )
-{
-  gp_Pnt P1,P2;  
-  double dx, dy, dz ;
-  GetBipointDxDyDz( InitPoint, LastPoint, dx, dy, dz ) ;
-  Standard_Real length = InitPoint.Distance(LastPoint) ;
-  if( length <= Precision::Confusion() ) {
-    myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-    return ;
-  }
-  
-  Standard_Real coeff = 1E6 / length ;
-  
-  /* To create a line with length = 1E6            */
-  /* Precision::Infinite() is 1E100 in OCC  */
-  P1.SetX( InitPoint.X() - (coeff * dx) ) ;
-  P1.SetY( InitPoint.Y() - (coeff * dy) ) ;
-  P1.SetZ( InitPoint.Z() - (coeff * dz) ) ;
-  
-  P2.SetX( LastPoint.X() + (coeff * dx) ) ;
-  P2.SetY( LastPoint.Y() + (coeff * dy) ) ;
-  P2.SetZ( LastPoint.Z() + (coeff * dz) ) ;
-  
-  try {
-    GEOM::PointStruct pstruct = myComponentGeom->MakePointStruct(P1.X(), P1.Y(), P1.Z()) ;
-    GEOM::PointStruct d = myComponentGeom->MakePointStruct(P2.X(), P2.Y(), P2.Z()) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
-    
-    GEOM::GEOM_Shape_ptr result = myComponentGeom->MakeLine(pstruct, dstruct) ;
-    if(result->_is_nil()) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return ;
-    }
-    result->NameType(tr("GEOM_LINE"));
-    
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_READY"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
-}
+  // disable non-OCC viewframe menu commands
+//  action( GEOMOp::Op2dSketcher )->setEnabled( ViewOCC ); // SKETCHER
+  action( GEOMOp::OpSuppressFaces )->setEnabled( ViewOCC ); // SuppressFace
+  action( GEOMOp::OpSuppressHoles )->setEnabled( ViewOCC ); // SuppressHole
+  action( GEOMOp::OpCloseContour )->setEnabled( ViewOCC ); // CloseContour
+  action( GEOMOp::OpRemoveIntWires )->setEnabled( ViewOCC ); // RemoveInternalWires
+  action( GEOMOp::OpAddPointOnEdge )->setEnabled( ViewOCC ); // AddPointOnEdge
+//  action( GEOMOp::OpFreeBoundaries )->setEnabled( ViewOCC ); // Free boundaries
 
+  action( GEOMOp::OpGroupCreate )->setEnabled( ViewOCC ); // Create Group
+  action( GEOMOp::OpGroupEdit )->setEnabled( ViewOCC ); // Edit Group
 
+  action( GEOMOp::OpMultiTransform )->setEnabled( ViewOCC ); // MENU BLOCKS - MULTI-TRANSFORMATION
+}
 
-//=======================================================================
-// function : MakeBooleanAndDisplay()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::MakeBooleanAndDisplay( GEOM::GEOM_Shape_ptr Shape1, GEOM::GEOM_Shape_ptr Shape2, const short operation )
+void GeometryGUI::windows( QMap<int, int>& mappa ) const
 {
-  try {
-    GEOM::GEOM_Shape_ptr result = myComponentGeom->MakeBoolean( Shape1, Shape2, operation ) ;
-    if (result->_is_nil()) {
-      myDesktop->putInfo (tr("GEOM_PRP_NULLSHAPE")) ; 
-      return ;
-    }  
-
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, result);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    result->NameType( type );
-
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
+  mappa.insert( SalomeApp_Application::WT_ObjectBrowser, Qt::LeftDockWidgetArea );
+  mappa.insert( SalomeApp_Application::WT_PyConsole, Qt::BottomDockWidgetArea );
+  if ( myCreationInfoWdg )
+    mappa.insert( myCreationInfoWdg->getWinID(), Qt::LeftDockWidgetArea );
 }
 
-
-//=====================================================================================
-// function : MakeSphere()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeSphereAndDisplay( const gp_Pnt aCenterPoint, const double aRadius )
+void GeometryGUI::viewManagers( QStringList& lst ) const
 {
-  try {
-    if( aRadius <= Precision::Confusion() ) {
-      QAD_MessageBox::warn1 ( QAD_Application::getDesktop(), tr ("GEOM_WRN_WARNING"),
-                             tr ("GEOM_WRN_RADIUS_NULL"),   tr ("GEOM_BUT_YES") );
-      return ;
-    }
-    GEOM::GEOM_Shape_ptr result = myComponentGeom->MakeSphere(aCenterPoint.X(),aCenterPoint.Y(),aCenterPoint.Z(), aRadius);
-    result->NameType(tr("GEOM_SPHERE"));
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
+  lst.append( OCCViewer_Viewer::Type() );
 }
 
-
-//=====================================================================================
-// function : MakeConeAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeConeAndDisplay( const gp_Pnt BasePoint,
-                                     const gp_Dir aDir,
-                                     const double Radius1,
-                                     const double Radius2,
-                                     const double aHeight )
+void GeometryGUI::onViewManagerAdded( SUIT_ViewManager* vm )
 {
-  try {
-    if( ( Radius1 <= Precision::Confusion() && Radius2 <= Precision::Confusion() ) || aHeight <= Precision::Confusion() )
-      return ;
-    GEOM::PointStruct pstruct = myComponentGeom->MakePointStruct( BasePoint.X(), BasePoint.Y(), BasePoint.Z() ) ;
-    GEOM::PointStruct d = myComponentGeom->MakePointStruct( aDir.X(), aDir.Y(), aDir.Z() ) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
-    
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeCone( pstruct, dstruct, Radius1, Radius2, aHeight ) ;  
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return  ;
-    }
-    result->NameType(tr("GEOM_CONE"));
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  } 
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
+  if ( vm && vm->getType() == OCCViewer_Viewer::Type() )
+  {
+    qDebug( "connect" );
+    connect( vm, SIGNAL( keyPress  ( SUIT_ViewWindow*, QKeyEvent* ) ),
+             this, SLOT( OnKeyPress( SUIT_ViewWindow*, QKeyEvent* ) ) );
+    connect( vm, SIGNAL( mousePress( SUIT_ViewWindow*, QMouseEvent* ) ),
+             this, SLOT( OnMousePress( SUIT_ViewWindow*, QMouseEvent* ) ) );
+    connect( vm, SIGNAL( mouseMove ( SUIT_ViewWindow*, QMouseEvent* ) ),
+             this, SLOT( OnMouseMove( SUIT_ViewWindow*, QMouseEvent* ) ) );
+    connect( vm, SIGNAL( mouseRelease ( SUIT_ViewWindow*, QMouseEvent* ) ),
+             this, SLOT( OnMouseRelease( SUIT_ViewWindow*, QMouseEvent* ) ) );
+
+    LightApp_SelectionMgr* sm = getApp()->selectionMgr();
+    myOCCSelectors.append( new GEOMGUI_OCCSelector( ((OCCViewer_ViewManager*)vm)->getOCCViewer(), sm ) );
+
+    // disable OCC selectors
+    getApp()->selectionMgr()->setEnabled( false, OCCViewer_Viewer::Type() );
+    QListIterator<GEOMGUI_OCCSelector*> itOCCSel( myOCCSelectors );
+    while ( itOCCSel.hasNext() )
+      if ( GEOMGUI_OCCSelector* sr = itOCCSel.next() )
+        sr->setEnabled(true);
+  }
+  else if ( vm->getType() == SVTK_Viewer::Type() )
+  {
+    LightApp_SelectionMgr* sm = getApp()->selectionMgr();
+    myVTKSelectors.append( new LightApp_VTKSelector( dynamic_cast<SVTK_Viewer*>( vm->getViewModel() ), sm ) );
+
+    // disable VTK selectors
+    getApp()->selectionMgr()->setEnabled( false, SVTK_Viewer::Type() );
+    QListIterator<LightApp_VTKSelector*> itVTKSel( myVTKSelectors );
+    while ( itVTKSel.hasNext() )
+      if ( LightApp_VTKSelector* sr = itVTKSel.next() )
+        sr->setEnabled(true);
   }
-  return  ;
 }
 
-
-//=====================================================================================
-// function : MakeCylinderAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeCylinderAndDisplay( const gp_Pnt BasePoint,
-                                         const gp_Dir aDir,
-                                         const double Radius,
-                                         const double aHeight )
+void GeometryGUI::onViewManagerRemoved( SUIT_ViewManager* vm )
 {
-  try {
-    if( Radius <= Precision::Confusion() || aHeight <= Precision::Confusion() )
-      return ;
-    GEOM::PointStruct pstruct = myComponentGeom->MakePointStruct( BasePoint.X(), BasePoint.Y(), BasePoint.Z() ) ;
-    GEOM::PointStruct d = myComponentGeom ->MakePointStruct( aDir.X(), aDir.Y(), aDir.Z() ) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
-    
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeCylinder(pstruct, dstruct, Radius, aHeight) ;
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return  ;
-    }
-    result->NameType(tr("GEOM_CYLINDER"));
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
+  SUIT_ViewModel* viewer = vm->getViewModel();
+  if ( vm->getType() == OCCViewer_Viewer::Type() )
+  {
+    QListIterator<GEOMGUI_OCCSelector*> itOCCSel( myOCCSelectors );
+    while ( itOCCSel.hasNext() )
+      if ( GEOMGUI_OCCSelector* sr = itOCCSel.next() )
+        if ( sr->viewer() == viewer )
+        {
+          /*delete*/ myOCCSelectors.takeAt( myOCCSelectors.indexOf( sr ) );
+          break;
+        }
+  }
+  if ( vm->getType() == SVTK_Viewer::Type() )
+  {
+    QListIterator<LightApp_VTKSelector*> itVTKSel( myVTKSelectors );
+    while ( itVTKSel.hasNext() )
+      if ( LightApp_VTKSelector* sr = itVTKSel.next() )
+        if ( sr->viewer() == viewer )
+        {
+          /*delete*/ myVTKSelectors.takeAt( myVTKSelectors.indexOf( sr ) );
+          break;
+        }
   }
-  return  ;
 }
 
+//================================================================================
+/*!
+ * \brief Slot called when selection changed. Shows creation info of a selected object 
+ */
+//================================================================================
 
-//=====================================================================================
-// function : MakeTorusAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeTorusAndDisplay( const gp_Pnt BasePoint,
-                                      const gp_Dir aDir,
-                                      const double Radius1,
-                                      const double Radius2 )
+void GeometryGUI::updateCreationInfo()
 {
-  try {
-    if( Radius1 <= Precision::Confusion() || Radius2 <= Precision::Confusion() )
-      return ;
-    
-    GEOM::PointStruct pstruct = myComponentGeom->MakePointStruct( BasePoint.X(), BasePoint.Y(), BasePoint.Z() ) ;
-    GEOM::PointStruct d = myComponentGeom ->MakePointStruct( aDir.X(), aDir.Y(), aDir.Z() ) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
-    
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeTorus(pstruct, dstruct, Radius1, Radius2) ;
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return  ;
-    }
-    result->NameType(tr("GEOM_TORUS"));
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return  ;
-}
+  myCreationInfoWdg->clear();
 
+  // Code below is commented to have myCreationInfoWdg filled as soon as it is shown again
+  // if ( !myCreationInfoWdg->isVisible() )
+  //   return;
 
-//=====================================================================================
-// function : MakePipeAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakePipeAndDisplay( GEOM::GEOM_Shape_ptr aPath, GEOM::GEOM_Shape_ptr aBase ) 
-{
-  try {
-    GEOM::GEOM_Shape_ptr result = myComponentGeom->MakePipe(aPath, aBase);
-    if ( !result->_is_nil() && Display( result, "") ) {
+  // look for a sole selected GEOM_Object
+  GEOM::GEOM_Object_var geomObj;
 
-      TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, result);
-      Standard_CString type;
-      GetShapeTypeString(S,type);
-      result->NameType( type );
+  SALOME_ListIO selected;
+  getApp()->selectionMgr()->selectedObjects( selected );
 
-      myDesktop->putInfo( tr("GEOM_PRP_DONE") );
-    }
-    else {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
+  _PTR(Study) study = dynamic_cast<SalomeApp_Study*>( getApp()->activeStudy() )->studyDS();
+  SALOME_ListIteratorOfListIO selIt( selected );
+  for ( ; selIt.More(); selIt.Next() )
+  {
+    Handle(SALOME_InteractiveObject) io = selIt.Value();
+    if ( !io->hasEntry() ) continue;
+    _PTR(SObject) sobj = study->FindObjectID( io->getEntry() );
+    if ( !sobj ) continue;
+    CORBA::Object_var      obj = GeometryGUI::ClientSObjectToObject( sobj );
+    GEOM::GEOM_Object_var gobj = GEOM::GEOM_Object::_narrow( obj );
+    if ( !gobj->_is_nil() )
+    {
+      if ( !geomObj->_is_nil() )
+        return; // several GEOM objects selected
+      geomObj = gobj;
     }
   }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
-}
+  if ( geomObj->_is_nil() ) return;
 
+  // pass creation info of geomObj to myCreationInfoWdg
 
-//=====================================================================================
-// function : MakeFillingAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeFillingAndDisplay( GEOM::GEOM_Shape_ptr SectionShape, 
-                                        const short mindeg,
-                                        const short maxdeg,
-                                        const double tol3d, 
-                                        const double tol2d, 
-                                        const short nbiter )
-{  
-  try {
-    GEOM::GEOM_Shape_ptr result = myComponentGeom->MakeFilling( SectionShape,
-                                                         mindeg, maxdeg,
-                                                         tol3d, tol2d, nbiter );
-    if (result->_is_nil()) {
-      myDesktop->putInfo (tr("GEOM_PRP_NULLSHAPE")) ; 
-      return ;
-    }  
-
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, result);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    result->NameType( type );
-
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-    return ;  
-  } 
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-}
-
+  QPixmap icon;
+  QString operationName;
+  myCreationInfoWdg->setOperation( icon, operationName );
 
+  try
+  {
+    OCC_CATCH_SIGNALS;
+    GEOM::CreationInformation_var info = geomObj->GetCreationInformation();
+    if ( &info.in() )
+    {
+      SUIT_ResourceMgr* resMgr = SUIT_Session::session()->resourceMgr();
+      QString name = info->operationName.in();
+      if ( !name.isEmpty() )
+      {
+        icon = resMgr->loadPixmap( "GEOM", tr( ("ICO_"+name).toLatin1().constData() ), false );
+        operationName = tr( ("MEN_"+name).toLatin1().constData() );
+        if ( operationName.startsWith( "MEN_" ))
+          operationName = name; // no translation
+        myCreationInfoWdg->setOperation( icon, operationName );
 
-//=====================================================================================
-// function : MakeMirrorAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeMirrorAndDisplay( GEOM::GEOM_Shape_ptr Shape1, GEOM::GEOM_Shape_ptr Shape2 )
-{
-  try {
-    GEOM::GEOM_Shape_var result  = myComponentGeom->MakeMirrorByPlane( Shape1, Shape2 );
-    if (result->_is_nil()) {
-      myDesktop->putInfo (tr("GEOM_PRP_NULLSHAPE")) ; 
-      return ;
-    }  
-    result->NameType( Shape1->NameType() );
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
+        for ( size_t i = 0; i < info->params.length(); ++i )
+          myCreationInfoWdg->addParam( info->params[i].name.in(),
+                                       info->params[i].value.in() );
+      }
+    }
   }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
+  catch (...)
+  {
   }
-  return ;
 }
 
+QString GeometryGUI::engineIOR() const
+{
+  if ( !CORBA::is_nil( GetGeomGen() ) )
+    return QString( getApp()->orb()->object_to_string( GetGeomGen() ) );
+  return "";
+}
 
-//=====================================================================================
-// function : MakeSewingAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeSewingAndDisplay( GEOM::GEOM_Gen::ListOfIOR& listShapesIOR,
-                                       const Standard_Real precision )
+#if OCC_VERSION_LARGE > 0x06040000 // Porting to OCCT6.5.1
+Handle(TColStd_HArray1OfByte) GeometryGUI::getTexture
+#else
+Handle(Graphic3d_HArray1OfBytes) GeometryGUI::getTexture
+#endif
+      (SalomeApp_Study* theStudy, int theId, int& theWidth, int& theHeight)
 {
-  try {
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeSewing(listShapesIOR, precision) ;
-    if( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_NULLSHAPE")) ;
-      return ;
-    }
+  theWidth = theHeight = 0;
 
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, result);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    result->NameType( type );
+#if OCC_VERSION_LARGE > 0x06040000 // Porting to OCCT6.5.1
+  Handle(TColStd_HArray1OfByte) aTexture;
+#else
+  Handle(Graphic3d_HArray1OfBytes) aTexture;
+#endif
 
-    if( Display( result, "") )
-      myDesktop ->putInfo(tr("GEOM_PRP_DONE")) ;
-    return ;
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-}
+  if (theStudy) {
+    TextureMap aTextureMap = myTextureMap[ theStudy->studyDS()->StudyId() ];
+    aTexture = aTextureMap[ theId ];
+    if ( aTexture.IsNull() ) {
+      GEOM::GEOM_IInsertOperations_var aInsOp = GeometryGUI::GetGeomGen()->GetIInsertOperations( theStudy->studyDS()->StudyId() );
+      if ( !aInsOp->_is_nil() ) {
+        CORBA::Long aWidth, aHeight;
+        SALOMEDS::TMPFile_var aStream = aInsOp->GetTexture( theId, aWidth, aHeight );
+        if ( aWidth > 0 && aHeight > 0 && aStream->length() > 0 ) {
+          theWidth  = aWidth;
+          theHeight = aHeight;
 
+#if OCC_VERSION_LARGE > 0x06040000 // Porting to OCCT6.5.1
+          aTexture  = new TColStd_HArray1OfByte (1, aStream->length());
+#else
+          aTexture  = new Graphic3d_HArray1OfBytes (1, aStream->length());
+#endif
 
-//=====================================================================================
-// function : MakeCompoundAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeCompoundAndDisplay( GEOM::GEOM_Gen::ListOfIOR& listShapesIOR )
-{
-  try {
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeCompound(listShapesIOR) ;
-    if( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_NULLSHAPE")) ;
-      return ;
+          for (int i = 0; i < aStream->length(); i++)
+            aTexture->SetValue( i+1, (Standard_Byte)aStream[i] );
+          aTextureMap[ theId ] = aTexture;
+        }
+      }
     }
-    result->NameType(tr("GEOM_COMPOUND"));
-    if( Display( result, "" ))
-      myDesktop->putInfo(tr("GEOM_PRP_DONE")) ;
   }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
+  return aTexture;
 }
 
-
-//=====================================================================================
-// function : MakeFaceAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeFaceAndDisplay( GEOM::GEOM_Shape_ptr aWire, const Standard_Boolean wantPlanar )
+LightApp_Selection* GeometryGUI::createSelection() const
 {
-  try {
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeFace( aWire, wantPlanar) ;
-    if( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_NULLSHAPE")) ;
-      return ;
-    }
-    if ( wantPlanar )
-      result->NameType(tr("GEOM_PLANE"));
-    else
-      result->NameType(tr("GEOM_FACE"));
-    if( Display( result, "") )
-      myDesktop ->putInfo(tr("GEOM_PRP_DONE")) ;
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
+  return new GEOMGUI_Selection();
 }
 
-
-
-//=====================================================================================
-// function : MakeLinearEdgeAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeLinearEdgeAndDisplay( const gp_Pnt P1, const gp_Pnt P2 )
+void GeometryGUI::contextMenuPopup( const QString& client, QMenu* menu, QString& title )
 {
-  try {
-    GEOM::PointStruct ps1 = myComponentGeom->MakePointStruct( P1.X(), P1.Y(), P1.Z() ) ;
-    GEOM::PointStruct ps2 = myComponentGeom->MakePointStruct( P2.X(), P2.Y(), P2.Z() ) ;
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeEdge( ps1, ps2 ) ;
-    if( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_NULLSHAPE")) ;
-      return ;
+  SalomeApp_Module::contextMenuPopup( client, menu, title );
+  SALOME_ListIO lst;
+  getApp()->selectionMgr()->selectedObjects( lst );
+
+  //Add submenu for predefined materials
+  bool isPredefMat = SUIT_Session::session()->resourceMgr()->booleanValue( "Geometry", "predef_materials" );
+  if ( ( client == "OCCViewer" || client == "VTKViewer" ) && lst.Extent() > 0 ) {
+    QtxPopupMgr* mgr = popupMgr();
+    //get parrent for submenu
+    QAction* act = mgr->action( mgr->actionId( action(  GEOMOp::OpMaterialProperties ) ) );
+    //Clear old  menu
+    QMenu* oldMenu = act->menu() ;
+    if( oldMenu ) {
+      delete oldMenu;
+    }
+    if( isPredefMat ){
+      QMenu* matMenu = new QMenu();
+      QSignalMapper* signalMapper = new QSignalMapper( matMenu );
+      
+      //Get current material model for the object
+      QVariant v;
+      LightApp_Application* anApp = dynamic_cast<LightApp_Application*>( getApp() );
+      if ( anApp && anApp->activeViewManager() ) {
+        LightApp_Study* aStudy = dynamic_cast<LightApp_Study*>( anApp->activeStudy() );
+        if( aStudy ) {
+          v = aStudy->getObjectProperty( anApp->activeViewManager()->getGlobalId(), lst.Last()->getEntry(), GEOM::propertyName( GEOM::Material ), QVariant() );
+        }
+      }
+      QString curModel = "";
+      if ( v.canConvert<QString>() ) curModel = v.toString();
+      // get list of all predefined materials
+      QStringList materials = Material_ResourceMgr::resourceMgr()->materials();
+      bool found = false;
+      foreach ( QString material, materials ) 
+      {
+        QAction* menAct = matMenu->addAction( material );
+        connect(menAct, SIGNAL( toggled( bool ) ), signalMapper, SLOT( map() ) );
+        signalMapper->setMapping( menAct, material );
+        menAct->setCheckable( true );
+        // Set checked if this material is current 
+        Material_Model aModel;
+        aModel.fromResources( material );
+        if ( !found && aModel.toProperties() == curModel ) {
+          menAct->setChecked( true );
+          found = true;
+        }
+      }
+      matMenu->insertAction( matMenu->addSeparator(), action(  GEOMOp::OpPredefMaterCustom ) );
+      matMenu->insertSeparator( action(  GEOMOp::OpPredefMaterCustom ) );
+      connect( signalMapper, SIGNAL( mapped( const QString & ) ),
+                 this, SLOT( OnSetMaterial( const QString & ) ) );
+      act->setMenu( matMenu );
     }
-    result->NameType(tr("GEOM_EDGE"));
-    if( Display( result, "") )
-      myDesktop ->putInfo(tr("GEOM_PRP_DONE")) ;
   }
-  catch(const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
+  //Set name
+  if ( ( client == "OCCViewer" || client == "VTKViewer" ) && lst.Extent() == 1 ) {
+    Handle(SALOME_InteractiveObject) io = lst.First();
+    SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( application()->activeStudy() );
+    _PTR(Study) study = appStudy->studyDS();
+    _PTR(SObject) obj = study->FindObjectID( io->getEntry() );
+    if ( obj ) {
+      QString aName = QString( obj->GetName().c_str() );
+      aName.remove( QRegExp("\\s+$") );
+      title = aName;
+    }
   }
-  return ;
 }
 
-
-//=====================================================================================
-// function : MakeOrientationChangeAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeOrientationChangeAndDisplay( GEOM::GEOM_Shape_ptr Shape )
+void GeometryGUI::OnSetMaterial(const QString& theName)
 {
-  try {
-    GEOM::GEOM_Shape_var result = myComponentGeom->OrientationChange( Shape ) ;
-    if( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_NULLSHAPE")) ;
-      return ;
-    }
-    result->NameType( Shape->NameType() );
-    if ( Display( result, "" ))
-      myDesktop->putInfo(tr("GEOM_PRP_DONE")); 
-    return ;
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
+  OnGUIEvent( GEOMOp::OpPredefMaterial, QVariant( theName ) );
 }
 
 
-//=====================================================================================
-// function : MakeScaleAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeScaleAndDisplay( GEOM::GEOM_Shape_ptr Shape, const gp_Pnt centralPoint, const Standard_Real factor )
+void GeometryGUI::createPreferences()
 {
-  try {
-    GEOM::PointStruct P = myComponentGeom->MakePointStruct(centralPoint.X(), centralPoint.Y(), centralPoint.Z() ) ;
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeScaleTransform(Shape, P, factor) ;
-    //    result->NameType(tr("GEOM_SCALE"));
-    result->NameType( Shape->NameType() );
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-    else 
-      myDesktop->putInfo (tr("GEOM_PRP_NULLSHAPE")) ; 
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
-}
+  int tabId = addPreference( tr( "PREF_TAB_SETTINGS" ) );
 
+  int genGroup = addPreference( tr( "PREF_GROUP_GENERAL" ), tabId );
+  setPreferenceProperty( genGroup, "columns", 2 );
 
-//=======================================================================================
-// function : MakeRevolutionAndDisplay()
-// purpose  :
-//=======================================================================================
-void GeometryGUI::MakeRevolutionAndDisplay( GEOM::GEOM_Shape_ptr Shape, const gp_Pnt loc, const gp_Dir dir, const Standard_Real revolAngle )
-{
-  try {
-    GEOM::AxisStruct axis = myComponentGeom->MakeAxisStruct(loc.X(), loc.Y(), loc.Z(), dir.X(), dir.Y(), dir.Z() ) ;
-    GEOM::GEOM_Shape_ptr result = myComponentGeom->MakeRevolution(Shape, axis, revolAngle) ;
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return  ;
-    }
+  int dispmode = addPreference( tr( "PREF_DISPLAY_MODE" ), genGroup,
+                                LightApp_Preferences::Selector,
+                                "Geometry", "display_mode" );
 
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, result);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    result->NameType( type );
+  addPreference( tr( "PREF_SHADING_COLOR" ), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "shading_color" );
 
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return  ;
-}
+  addPreference( tr( "PREF_EDGES_IN_SHADING" ), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "edges_in_shading_color" );
 
+  addPreference( tr( "PREF_WIREFRAME_COLOR" ), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "wireframe_color" );
 
-//=======================================================================================
-// function : MakeRotationAndDisplay()
-// purpose  :
-//=======================================================================================
-void GeometryGUI::MakeRotationAndDisplay( GEOM::GEOM_Shape_ptr Shape,
-                                         const gp_Pnt loc,
-                                         const gp_Dir dir,
-                                         const Standard_Real angle )
-{
-  try {
-    const GEOM::AxisStruct axis = myComponentGeom->MakeAxisStruct(loc.X(), loc.Y(), loc.Z(), dir.X(), dir.Y(), dir.Z() ) ;
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeRotation(Shape, axis, angle);
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT") );
-      return ;
-    }
-    result->NameType( Shape->NameType() );
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }  
-  return  ;
-}
+  addPreference( tr( "PREF_FREE_BOUND_COLOR" ), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "free_bound_color" );
 
+  addPreference( tr( "PREF_LINE_COLOR"), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "line_color" );
 
-//=================================================================================
-// function : MakeTranslationAndDisplay()
-// purpose  : Translate a shape
-//=================================================================================
-void GeometryGUI::MakeTranslationAndDisplay( GEOM::GEOM_Shape_ptr Shape, gp_Vec V )
-{
-  try {
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeTranslation( Shape, V.X(), V.Y(), V.Z() ) ;
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT") );
-      return ;
-    }
-    result->NameType( Shape->NameType() );
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }  
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return  ;
-}
+  addPreference( tr( "PREF_POINT_COLOR"), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "point_color" );
 
-//=================================================================================
-// function : MakeMultiTranslation1DAndDisplay()
-// purpose  : Multi-Translate a shape
-//=================================================================================
-void GeometryGUI::MakeMultiTranslation1DAndDisplay( GEOM::GEOM_Shape_ptr Shape, const gp_Dir Dir, const double Step, const short NbTimes ) 
-{
-  try {
-    GEOM::PointStruct d = myComponentGeom->MakePointStruct( Dir.X(), Dir.Y(), Dir.Z() ) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
+  addPreference( tr( "PREF_ISOS_COLOR" ), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "isos_color" );
 
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeMultiTranslation1D( Shape, dstruct, Step, NbTimes );
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT") );
-      return ;
-    }
-    result->NameType( tr("GEOM_COMPOUND") );
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }  
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return  ;
-}
+  addPreference( tr( "PREF_TOPLEVEL_COLOR" ), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "toplevel_color" );
 
+  int top_lev_dm = addPreference( tr( "PREF_TOPLEVEL_DM" ), genGroup,
+                      LightApp_Preferences::Selector, "Geometry", "toplevel_dm" );
 
-//=================================================================================
-// function : MakeMultiTranslation2DAndDisplay()
-// purpose  : Multi-Translate a shape
-//=================================================================================
-void GeometryGUI::MakeMultiTranslation2DAndDisplay( GEOM::GEOM_Shape_ptr Shape, const gp_Dir Dir1, const double Step1, const short NbTimes1, const gp_Dir Dir2, const double Step2, const short NbTimes2 ) 
-{
-  try {
-    GEOM::PointStruct d1 = myComponentGeom->MakePointStruct( Dir1.X(), Dir1.Y(), Dir1.Z() ) ;
-    GEOM::DirStruct dstruct1 = myComponentGeom->MakeDirection(d1) ;
-    GEOM::PointStruct d2 = myComponentGeom->MakePointStruct( Dir2.X(), Dir2.Y(), Dir2.Z() ) ;
-    GEOM::DirStruct dstruct2 = myComponentGeom->MakeDirection(d2) ;
-
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeMultiTranslation2D( Shape, dstruct1, Step1, NbTimes1, dstruct2, Step2, NbTimes2 );
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT") );
-      return ;
-    }
-    result->NameType( tr("GEOM_COMPOUND") );
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }  
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return  ;
-}
+  int step = addPreference( tr( "PREF_STEP_VALUE" ), genGroup,
+                            LightApp_Preferences::IntSpin, "Geometry", "SettingsGeomStep" );
 
+  int defl = addPreference( tr( "PREF_DEFLECTION" ), genGroup,
+                            LightApp_Preferences::DblSpin, "Geometry", "deflection_coeff" );
 
-//=================================================================================
-// function : MakeMultiRotation1DAndDisplay()
-// purpose  : Multi-Rotate a shape
-//=================================================================================
-void GeometryGUI::MakeMultiRotation1DAndDisplay( GEOM::GEOM_Shape_ptr Shape, const gp_Dir Dir, const gp_Pnt Loc, const short NbTimes ) 
-{
-  try {
-    GEOM::PointStruct d = myComponentGeom->MakePointStruct( Dir.X(), Dir.Y(), Dir.Z() ) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
-    GEOM::PointStruct pstruct = myComponentGeom->MakePointStruct( Loc.X(), Loc.Y(), Loc.Z() ) ;
-
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeMultiRotation1D( Shape, dstruct, pstruct, NbTimes );
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT") );
-      return ;
-    }
-    result->NameType( tr("GEOM_COMPOUND") );
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }  
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return  ;
-}
+  addPreference( tr( "PREF_PREDEF_MATERIALS" ), genGroup,
+                 LightApp_Preferences::Bool, "Geometry", "predef_materials" );
 
+  int material = addPreference( tr( "PREF_MATERIAL" ), genGroup,
+                                LightApp_Preferences::Selector,
+                                "Geometry", "material" );
 
-//=================================================================================
-// function : MakeMultiRotation2DAndDisplay()
-// purpose  : Multi-Rotate a shape
-//=================================================================================
-void GeometryGUI::MakeMultiRotation2DAndDisplay( GEOM::GEOM_Shape_ptr Shape, const gp_Dir Dir, const gp_Pnt Loc, const double Ang, const short NbTimes1, const double Step, const short NbTimes2 ) 
-{
-  try {
-    GEOM::PointStruct d = myComponentGeom->MakePointStruct( Dir.X(), Dir.Y(), Dir.Z() ) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
-    GEOM::PointStruct pstruct = myComponentGeom->MakePointStruct( Loc.X(), Loc.Y(), Loc.Z() ) ;
-
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeMultiRotation2D( Shape, dstruct, pstruct, Ang, NbTimes1, Step, NbTimes2 );
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT") );
-      return ;
-    }
-    result->NameType( tr("GEOM_COMPOUND") );
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }  
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return  ;
-}
+  addPreference( tr( "PREF_EDITGROUP_COLOR" ), genGroup,
+                 LightApp_Preferences::Color, "Geometry", "editgroup_color" );
 
+  const int nb = 4;
+  int wd[nb];
+  int iter=0;
 
+  wd[iter++] = addPreference( tr( "PREF_EDGE_WIDTH" ), genGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "edge_width" );
 
-//=======================================================================================
-// function : MakeArcAndDisplay()
-// purpose  : Make an arc of circle from InitPoint to CirclePoint and passing on EndPoint
-//=======================================================================================
-void GeometryGUI::MakeArcAndDisplay( gp_Pnt InitPoint, gp_Pnt CirclePoint, gp_Pnt EndPoint )
-{
-  gp_Vec v1( CirclePoint, InitPoint ) ;
-  gp_Vec v2( CirclePoint, EndPoint ) ;
-  if( v1.IsParallel(v2, Precision::Angular() ) )
-    return ;
-  
-  try { 
-    GEOM::PointStruct pI = myComponentGeom->MakePointStruct( InitPoint.X(), InitPoint.Y(), InitPoint.Z() );
-    GEOM::PointStruct pC = myComponentGeom->MakePointStruct( CirclePoint.X(), CirclePoint.Y(), CirclePoint.Z() );
-    GEOM::PointStruct pE = myComponentGeom->MakePointStruct( EndPoint.X(), EndPoint.Y(), EndPoint.Z() );
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeArc(pI, pC, pE) ;
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return  ;
-    }
-    result->NameType(tr("GEOM_ARC"));
-    if ( Display(  result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }    
-  return ;
-}
+  wd[iter++] = addPreference( tr( "PREF_ISOLINES_WIDTH" ), genGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "isolines_width" );
 
+  wd[iter++] = addPreference( tr( "PREF_PREVIEW_EDGE_WIDTH" ), genGroup,
+                                     LightApp_Preferences::IntSpin, "Geometry", "preview_edge_width" );
 
-//=====================================================================================
-// function : MakeCircleAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeCircleAndDisplay( const gp_Pnt CenterPoint, const gp_Dir dir, const Standard_Real Radius )
-{
-  try {
-    GEOM::PointStruct pstruct = myComponentGeom->MakePointStruct( CenterPoint.X(), CenterPoint.Y(),  CenterPoint.Z() ) ;
-    GEOM::PointStruct d = myComponentGeom->MakePointStruct( dir.X(), dir.Y(), dir.Z() ) ;
-    GEOM::DirStruct dstruct = myComponentGeom->MakeDirection(d) ;
-    
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeCircle(pstruct, dstruct, Radius) ;
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT") );
-      return ;
-    }
-    result->NameType(tr("GEOM_CIRCLE"));
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
+  wd[iter++] = addPreference( tr( "PREF_MEASURES_LINE_WIDTH" ), genGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "measures_line_width" );
+
+  for (int i = 0; i < nb; i++) {
+    setPreferenceProperty( wd[i], "min", 1 );
+    setPreferenceProperty( wd[i], "max", 5 );
   }
-  return  ;
-}
+  int isoGroup = addPreference( tr( "PREF_ISOS" ), tabId );
+  setPreferenceProperty( isoGroup, "columns", 2 );
+  int isoU = addPreference( tr( "PREF_ISOS_U" ), isoGroup,
+                                  LightApp_Preferences::IntSpin, "Geometry", "iso_number_u" );
+  setPreferenceProperty( isoU, "min", 0 );
+  setPreferenceProperty( isoU, "max", 100000 );
+  int isoV = addPreference( tr( "PREF_ISOS_V" ), isoGroup,
+                                 LightApp_Preferences::IntSpin, "Geometry", "iso_number_v" );
+  setPreferenceProperty( isoV, "min", 0 );
+  setPreferenceProperty( isoV, "max", 100000 );
+
+  // Quantities with individual precision settings
+  int precGroup = addPreference( tr( "GEOM_PREF_GROUP_PRECISION" ), tabId );
+  setPreferenceProperty( precGroup, "columns", 2 );
+
+  const int nbQuantities = 8;
+  int prec[nbQuantities], ii = 0;
+  prec[ii++] = addPreference( tr( "GEOM_PREF_length_precision" ), precGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "length_precision" );
+  prec[ii++] = addPreference( tr( "GEOM_PREF_angle_precision" ), precGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "angle_precision" );
+  prec[ii++] = addPreference( tr( "GEOM_PREF_len_tol_precision" ), precGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "len_tol_precision" );
+  prec[ii++] = addPreference( tr( "GEOM_PREF_ang_tol_precision" ), precGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "ang_tol_precision" );
+  prec[ii++] = addPreference( tr( "GEOM_PREF_weight_precision" ), precGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "weight_precision" );
+  prec[ii++] = addPreference( tr( "GEOM_PREF_density_precision" ), precGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "density_precision" );
+  prec[ii++] = addPreference( tr( "GEOM_PREF_parametric_precision" ), precGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "parametric_precision" );
+  prec[ii  ] = addPreference( tr( "GEOM_PREF_param_tol_precision" ), precGroup,
+                              LightApp_Preferences::IntSpin, "Geometry", "param_tol_precision" );
+
+  // Set property for precision value for spinboxes
+  for ( ii = 0; ii < nbQuantities; ii++ ){
+    setPreferenceProperty( prec[ii], "min", -14 );
+    setPreferenceProperty( prec[ii], "max", 14 );
+    setPreferenceProperty( prec[ii], "precision", 2 );
+  }
+
+  int VertexGroup = addPreference( tr( "PREF_GROUP_VERTEX" ), tabId );
+  setPreferenceProperty( VertexGroup, "columns", 2 );
+
+  int typeOfMarker = addPreference( tr( "PREF_TYPE_OF_MARKER" ), VertexGroup,
+                                    LightApp_Preferences::Selector, "Geometry", "type_of_marker" );
+
+  int markerScale = addPreference( tr( "PREF_MARKER_SCALE" ), VertexGroup,
+                                   LightApp_Preferences::Selector, "Geometry", "marker_scale" );
+
+  // Set property for default display mode
+  QStringList aModesList;
+  aModesList.append( tr("MEN_WIREFRAME") );
+  aModesList.append( tr("MEN_SHADING") );
+  aModesList.append( tr("MEN_SHADING_WITH_EDGES") );
+
+  QList<QVariant> anIndexesList;
+  anIndexesList.append(0);
+  anIndexesList.append(1);
+  anIndexesList.append(2);
+
+  setPreferenceProperty( dispmode, "strings", aModesList );
+  setPreferenceProperty( dispmode, "indexes", anIndexesList );
+
+  // Set property for top level display mode
+  QStringList aTopModesList;
+  aTopModesList.append( tr("MEN_SHOW_ADD_WACTOR") );
+  aTopModesList.append( tr("MEN_KEEP_CURRENT_DM") );
+  aTopModesList.append( tr("MEN_WIREFRAME") );
+  aTopModesList.append( tr("MEN_SHADING") );
+  aTopModesList.append( tr("MEN_SHADING_WITH_EDGES") );
 
+  QList<QVariant> aTopIndexesList;
+  aTopIndexesList.append(0);
+  aTopIndexesList.append(1);
+  aTopIndexesList.append(2);
+  aTopIndexesList.append(3);
+  aTopIndexesList.append(4);
 
+  setPreferenceProperty( top_lev_dm, "strings", aTopModesList );
+  setPreferenceProperty( top_lev_dm, "indexes", aTopIndexesList );
 
-//=====================================================================================
-// function : MakeWireAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeWireAndDisplay( GEOM::GEOM_Gen::ListOfIOR& listShapesIOR )
-{
-  try {
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeWire(listShapesIOR) ;
-    if( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_NULLSHAPE")) ;
-      return ;
-    }
-    result->NameType(tr("GEOM_WIRE"));
-    if( Display( result, "") )
-      myDesktop ->putInfo(tr("GEOM_PRP_DONE")) ;
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return ;
-}
+  // Set property for step value for spinboxes
+  setPreferenceProperty( step, "min", 1 );
+  setPreferenceProperty( step, "max", 10000 );
+  setPreferenceProperty( step, "precision", 3 );
 
+  // Set property for deflection value for spinboxes
+  setPreferenceProperty( defl, "min", GEOM::minDeflection() );
+  setPreferenceProperty( defl, "max", 1.0 );
+  setPreferenceProperty( defl, "step", 1.0e-04 );
+  setPreferenceProperty( defl, "precision", 6 );
 
-//=====================================================================================
-// function : MakePartitionAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakePartitionAndDisplay (const GEOM::GEOM_Gen::ListOfIOR& listShapesIOR,
-                                           const GEOM::GEOM_Gen::ListOfIOR& listToolsIOR,
-                                           const GEOM::GEOM_Gen::ListOfIOR& listKeepInsIOR,
-                                           const GEOM::GEOM_Gen::ListOfIOR& listRemoveInsIOR,
-                                           const GEOM::shape_type           limit)
-{
-  try {
-    GEOM::GEOM_Shape_var result = myComponentGeom->Partition(listShapesIOR,
-                                                             listToolsIOR,
-                                                             listKeepInsIOR,
-                                                             listRemoveInsIOR,
-                                                             (CORBA::Short) limit);
-    if( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_NULLSHAPE")) ;
-      return ;
-    }
-    result->NameType(tr("GEOM_PARTITION"));
-    if( Display( result, "") )
-      myDesktop ->putInfo(tr("GEOM_PRP_DONE")) ;
-    return ;
+  // Set property for default material
+  setPreferenceProperty( material, "strings", Material_ResourceMgr::resourceMgr()->materials() );
+  
+  // Set property vertex marker type
+  QList<QVariant> aMarkerTypeIndicesList;
+  QList<QVariant> aMarkerTypeIconsList;
+
+  SUIT_ResourceMgr* resMgr = SUIT_Session::session()->resourceMgr();
+  for ( int i = GEOM::MT_POINT; i < GEOM::MT_USER; i++ ) {
+    QString icoFile = QString( "ICON_VERTEX_MARKER_%1" ).arg( i );
+    QPixmap pixmap = resMgr->loadPixmap( "GEOM", tr( qPrintable( icoFile ) ) );
+    aMarkerTypeIndicesList << (i-1);
+    aMarkerTypeIconsList << pixmap;
   }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
+
+  setPreferenceProperty( typeOfMarker, "indexes", aMarkerTypeIndicesList );
+  setPreferenceProperty( typeOfMarker, "icons",   aMarkerTypeIconsList );
+
+  // Set property for vertex marker scale
+  QList<QVariant> aMarkerScaleIndicesList;
+  QStringList     aMarkerScaleValuesList;
+
+  for ( int iii = GEOM::MS_10; iii <= GEOM::MS_70; iii++ ) {
+    aMarkerScaleIndicesList << iii;
+    aMarkerScaleValuesList  << QString::number( (iii-(int)GEOM::MS_10)*0.5 + 1.0 );
   }
-}
 
-//=======================================================================
-// function : SetState()
-// purpose  : Sets myState = aState a private field indicating which methode is active
-//=======================================================================
-void GeometryGUI::SetState(int aState )
-{  this->myState = aState ;  return ; }
+  setPreferenceProperty( markerScale, "strings", aMarkerScaleValuesList );
+  setPreferenceProperty( markerScale, "indexes", aMarkerScaleIndicesList );
 
+  int originGroup = addPreference( tr( "PREF_GROUP_ORIGIN_AND_BASE_VECTORS" ), tabId );
+  setPreferenceProperty( originGroup, "columns", 2 );
 
-//=======================================================================
-// function : ResetState()
-// purpose  : Sets myState = -1 a private field indicating which methode is active
-//=======================================================================
-void GeometryGUI::ResetState()
-{  this->myState = -1 ;  return ; }
+  int baseVectorsLength = addPreference( tr( "PREF_BASE_VECTORS_LENGTH" ), originGroup,
+                                         LightApp_Preferences::DblSpin, "Geometry", "base_vectors_length" );
+  setPreferenceProperty( baseVectorsLength, "min", 0.01 );
+  setPreferenceProperty( baseVectorsLength, "max", 1000 );
 
+  addPreference( tr( "PREF_AUTO_CREATE" ), originGroup,
+                 LightApp_Preferences::Bool, "Geometry", "auto_create_base_objects" );
 
-//=======================================================================
-// function : EmitSignalDeactivateDialog()
-// purpose  : Emit a signal to deactivate the active dialog Box
-//=======================================================================
-void GeometryGUI::EmitSignalDeactivateDialog()
-{
-  emit this->SignalDeactivateActiveDialog() ;
-  return ;
+  int operationsGroup = addPreference( tr( "PREF_GROUP_OPERATIONS" ), tabId );
+  setPreferenceProperty( operationsGroup, "columns", 2 );
+
+  addPreference( tr( "GEOM_PREVIEW" ), operationsGroup,
+                 LightApp_Preferences::Bool, "Geometry", "geom_preview" );
 }
 
-//=======================================================================
-// function : EmitSignalCloseAllDialogs()
-// purpose  : Emit a signal to deactivate all non modal dialogs box
-//=======================================================================
-void GeometryGUI::EmitSignalCloseAllDialogs()
+void GeometryGUI::preferencesChanged( const QString& section, const QString& param )
 {
-  emit this->SignalCloseAllDialogs() ;
-  return ;
+  if (section == "Geometry") {
+    SUIT_ResourceMgr* aResourceMgr = SUIT_Session::session()->resourceMgr();
+    if (param == QString("SettingsGeomStep")) {
+      double spin_step = aResourceMgr->doubleValue(section, param, 100.);
+      EmitSignalDefaultStepValueChanged(spin_step);
+    }
+    else if (param == QString("toplevel_color")) {
+      QColor c = aResourceMgr->colorValue( "Geometry", "toplevel_color", QColor( 170, 85, 0 ) );
+      GEOM_AISShape::setTopLevelColor(SalomeApp_Tools::color(c));
+    }
+    else if (param == QString("toplevel_dm")) {
+      GEOM_AISShape::setTopLevelDisplayMode((GEOM_AISShape::TopLevelDispMode)aResourceMgr->integerValue("Geometry", "toplevel_dm", 0));
+    }
+  }
 }
 
-
-//=======================================================================
-// function : GetActiveDialogBox()
-// purpose  : 
-//=======================================================================
-QDialog* GeometryGUI::GetActiveDialogBox()
+LightApp_Displayer* GeometryGUI::displayer()
 {
-  return this->myActiveDialogBox ;
+  if ( !myDisplayer )
+    myDisplayer = new GEOM_Displayer( dynamic_cast<SalomeApp_Study*>( getApp()->activeStudy() ) );
+  return myDisplayer;
 }
 
-
-//=======================================================================
-// function : SetActiveDialogBox()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::SetActiveDialogBox(QDialog* aDlg)
+void GeometryGUI::setLocalSelectionMode(const int mode)
 {
-  this->myActiveDialogBox = (QDialog*)aDlg ;
-  return ;
+  myLocalSelectionMode = mode;
 }
 
-
-//=======================================================================
-// function : GetActiveStudy()
-// purpose  : 
-//=======================================================================
-QAD_Study* GeometryGUI::GetActiveStudy()
+int GeometryGUI::getLocalSelectionMode() const
 {
-  return this->myActiveStudy ;
+  return myLocalSelectionMode;
 }
 
+const char gSeparator = '_'; // character used to separate parameter names
+const char gDigitsSep = ':'; // character used to separate numeric parameter values (color = r:g:b)
 
-//=======================================================================
-// function : GetActiveDesktop()
-// purpose  : 
-//=======================================================================
-QAD_Desktop* GeometryGUI::GetDesktop()
+/*!
+ * \brief Store visual parameters
+ *
+ * This method is called just before the study document is saved.
+ * Store visual parameters in AttributeParameter attribute(s)
+ */
+void GeometryGUI::storeVisualParameters (int savePoint)
 {
-  return this->myDesktop ;
-}
+  SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>(application()->activeStudy());
+  if ( !appStudy || !appStudy->studyDS() )
+    return;
+  _PTR(Study) studyDS = appStudy->studyDS();
+
+  // componentName is used for encoding of entries when storing them in IParameters
+  std::string componentName = myComponentGeom->ComponentDataType();
+  //_PTR(SComponent) aSComponent = studyDS->FindComponent("GEOM");
+  //if (!aSComponent) return;
+
+  // IParameters
+  _PTR(AttributeParameter) ap = studyDS->GetModuleParameters("Interface Applicative",
+                                                             componentName.c_str(),
+                                                             savePoint);
+  _PTR(IParameters) ip = ClientFactory::getIParameters(ap);
+
+  QList<SUIT_ViewManager*> lst;
+  QList<SUIT_ViewManager*>::Iterator it;
+
+  // main cycle to store parameters of displayed objects
+  lst.clear();
+  getApp()->viewManagers(lst);
+  for (it = lst.begin(); it != lst.end(); it++) {
+    SUIT_ViewManager* vman = *it;
+    QString vType = vman->getType();
+    int aMgrId = vman->getGlobalId();
+    // saving VTK actors properties
+    QVector<SUIT_ViewWindow*> views = vman->getViews();
+    for (int i = 0, iEnd = vman->getViewsCount(); i < iEnd; i++) {
+      const ObjMap anObjects = appStudy->getObjectMap(aMgrId);
+      ObjMap::ConstIterator o_it = anObjects.begin();
+      for (; o_it != anObjects.end(); o_it++) {
+        const PropMap aProps = o_it.value();
+
+        //Check that object exists in the study
+        _PTR(SObject) obj( studyDS->FindObjectID( o_it.key().toLatin1().data() ) );
+        if ( !obj || !(aProps.count() > 0))
+          continue;
+        // entry is "encoded" = it does NOT contain component adress, since it is a
+        // subject to change on next component loading
+
+        std::string entry = ip->encodeEntry(o_it.key().toLatin1().data(), componentName);
+
+        _PTR(GenericAttribute) anAttr;
+        if (!obj->FindAttribute(anAttr, "AttributeIOR"))
+          continue;
+
+        QString param, occParam = vType;
+        occParam += GEOM::sectionSeparator();
+        occParam += QString::number(aMgrId);
+        occParam += GEOM::sectionSeparator();
+
+        if (aProps.contains(GEOM::propertyName( GEOM::Visibility ))) {
+          param = occParam + GEOM::propertyName( GEOM::Visibility );
+          ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::Visibility )).toBool() ? "On" : "Off");
+        }
+
+        if (aProps.contains(GEOM::propertyName( GEOM::DisplayMode ))) {
+          param = occParam + GEOM::propertyName( GEOM::DisplayMode );
+          ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::DisplayMode )).toString().toStdString());
+        }
+
+        if (aProps.contains(GEOM::propertyName( GEOM::Color ))) {
+          QColor c = aProps.value(GEOM::propertyName( GEOM::Color )).value<QColor>();
+          QStringList val;
+          val << QString::number(c.redF());
+          val << QString::number(c.greenF());
+          val << QString::number(c.blueF());
+          param = occParam + GEOM::propertyName( GEOM::Color );
+          ip->setParameter(entry, param.toStdString(), val.join( GEOM::subSectionSeparator()).toStdString());
+        }
+
+        if (vType == SVTK_Viewer::Type()) {
+          if (aProps.contains(GEOM::propertyName( GEOM::Opacity ))) {
+            param = occParam + GEOM::propertyName( GEOM::Opacity );
+            ip->setParameter(entry, param.toStdString(), QString::number(1. - aProps.value(GEOM::propertyName( GEOM::Transparency )).toDouble()).toStdString());
+          }
+        } else if (vType == SOCC_Viewer::Type()) {
+          if (aProps.contains(GEOM::propertyName( GEOM::Transparency ))) {
+            param = occParam + GEOM::propertyName( GEOM::Transparency );
+            ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::Transparency )).toString().toStdString());
+          }
+
+          if (aProps.contains(GEOM::propertyName( GEOM::TopLevel ))) {
+            param = occParam + GEOM::propertyName( GEOM::TopLevel );
+            ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::TopLevel )).toString().toStdString());
+          }
+        }
+
+        if (aProps.contains(GEOM::propertyName( GEOM::NbIsos ))) {
+          param = occParam + GEOM::propertyName( GEOM::NbIsos );
+          ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::NbIsos )).toString().toStdString());
+        }
+
+        if (aProps.contains(GEOM::propertyName( GEOM::EdgesDirection ))) {
+          param = occParam + GEOM::propertyName( GEOM::EdgesDirection );
+          ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::EdgesDirection )).toString().toStdString());
+        }
+
+        if (aProps.contains(GEOM::propertyName( GEOM::Deflection ))) {
+          param = occParam + GEOM::propertyName( GEOM::Deflection );
+          ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::Deflection )).toString().toStdString());
+        }
+
+        //Marker type of the vertex - ONLY for the "Vertex" and "Compound of the Vertex"
+        if (aProps.contains(GEOM::propertyName( GEOM::PointMarker ))) {
+          param = occParam + GEOM::propertyName( GEOM::PointMarker );
+          ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::PointMarker )).toString().toStdString());
+        }
+
+        if (aProps.contains(GEOM::propertyName( GEOM::Material ))) {
+          param = occParam + GEOM::propertyName( GEOM::Material );
+          ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::Material )).toString().toStdString());
+        }
+
+        if (aProps.contains(GEOM::propertyName( GEOM::LineWidth ))) {
+             param = occParam + GEOM::propertyName( GEOM::LineWidth );
+           ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::LineWidth )).toString().toStdString());
+        }
+
+        if (aProps.contains(GEOM::propertyName( GEOM::IsosWidth ))) {
+          param = occParam + GEOM::propertyName( GEOM::IsosWidth );
+          ip->setParameter(entry, param.toStdString(), aProps.value(GEOM::propertyName( GEOM::IsosWidth )).toString().toStdString());
+        }
+      } // object iterator
+    } // for (views)
+  } // for (viewManagers)
+}
+
+/*!
+ * \brief Restore visual parameters
+ *
+ * This method is called after the study document is opened.
+ * Restore visual parameters from AttributeParameter attribute(s)
+ */
+void GeometryGUI::restoreVisualParameters (int savePoint)
+{
+  SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>(application()->activeStudy());
+  if (!appStudy || !appStudy->studyDS())
+    return;
+  _PTR(Study) studyDS = appStudy->studyDS();
 
+  // componentName is used for encoding of entries when storing them in IParameters
+  std::string componentName = myComponentGeom->ComponentDataType();
+  //_PTR(SComponent) aSComponent = studyDS->FindComponent("GEOM");
+  //if (!aSComponent) return;
 
-//=====================================================================================
-// function : OnSubShapeGetAll()
-// purpose  : Explode a shape in all sub shapes with a SubShapeType
-//=====================================================================================
-bool GeometryGUI::OnSubShapeGetAll(const TopoDS_Shape& ShapeTopo, const char* ShapeTopoIOR, const int SubShapeType)
-{
-  SALOMEDS::Study_var   aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::SObject_var theObj = aStudy->FindObjectIOR( ShapeTopoIOR );
-  if ( theObj->_is_nil() ) {
-    myDesktop->putInfo(tr("GEOM_PRP_SHAPE_IN_STUDY"));
-    return false ;
-  }
+  // IParameters
+  _PTR(AttributeParameter) ap = studyDS->GetModuleParameters("Interface Applicative",
+                                                             componentName.c_str(),
+                                                             savePoint);
+  _PTR(IParameters) ip = ClientFactory::getIParameters(ap);
 
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-  SALOMEDS::SObject_var fatherSF = aStudy->FindObjectID(myActiveStudy->getActiveStudyFrame()->entry());
-  SALOMEDS::GenericAttribute_var anAttr;
-  SALOMEDS::AttributeName_var    aName;
-  SALOMEDS::AttributeIOR_var     anIOR;
-  SALOMEDS::AttributePixMap_var  aPixmap;
-
-  /* We create a sub object for each sub shape as attribute of the main object  */
-  /* Each sub object contains list (length=1) containing its index in the main shape */
-  GEOM::GEOM_Shape_var aShape  = myComponentGeom->GetIORFromString( ShapeTopoIOR );
-  GEOM::GEOM_Gen::ListOfGeomShapes_var listGeomShapes = new GEOM::GEOM_Gen::ListOfGeomShapes;
-  GEOM::GEOM_Shape_var aResult ;
-  
-  try {
-    listGeomShapes = myComponentGeom->SubShapeAll( aShape, SubShapeType );
-    if( listGeomShapes->length() < 1 ) {
-      myDesktop->putInfo (tr("GEOM_PRP_ABORT"));
-      return false ;
-    }
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  
-  /* open transaction */
-  QAD_Operation* op = new SALOMEGUI_ImportOperation( myActiveStudy );
-  op->start();
-  
-  TopoDS_Shape mainTopo = ShapeReader.GetShape(myComponentGeom, aShape);
-  TopoDS_Shape mainShape;
-  bool main = false;
-  while ( !main ) {
-    if ( aShape->IsMainShape() ) {
-      mainShape = ShapeReader.GetShape(myComponentGeom, aShape);
-      main = true;
-    } else
-      aShape = myComponentGeom->GetIORFromString( aShape->MainName() );
-  }
-  
-  /* Loop on each sub shape created */
-  /* int i = 1 ; /* index for the nameType */  
-  for( int j=0; j<listGeomShapes->length(); j++) {
-    
-    /* Get each sub shape extracted CORBA and OCC */
-    aResult = listGeomShapes[j] ;    
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, aResult);
-    
-    if ( S.IsNull() ) {
-      myDesktop->putInfo (tr("GEOM_PRP_ABORT"));
-      return false;
-    }
+  std::vector<std::string> entries = ip->getEntries();
 
-// NRI : Following lines are commented according to bugID SAL695 (see history)
-//      BRepCheck_Analyzer anAnalyzer(S);
-//      if(!anAnalyzer.IsValid()) {
-//        myDesktop->putInfo (tr("GEOM_PRP_ABORT"));
-//        MESSAGE("#### An exploded shape number "<< j << " is not valid");
-//        op->abort();
-//        return false;
-//      }
-    
-    /* Set the nameType of sub shape */
-    char* nameG = (char *)malloc(20);
-    Standard_CString Type;
-    if ( GetShapeTypeString(S, Type) ) {
-      aResult->NameType( Type );
-      sprintf (nameG, "%s_%d", Type, GetIndex( S, mainShape, SubShapeType ) );
-    } 
-    else {
-      aResult->NameType( tr("GEOM_SHAPE") );
-      sprintf (nameG, "%s_%d", tr("GEOM_SHAPE").latin1(), this->myNbGeom++ );
-    }
-    SALOMEDS::SObject_var   SO = aStudy->FindObjectIOR( aResult->Name() );
+  for (std::vector<std::string>::iterator entIt = entries.begin(); entIt != entries.end(); ++entIt)
+  {
+    // entry is a normal entry - it should be "decoded" (setting base adress of component)
+    QString entry (ip->decodeEntry(*entIt).c_str());
 
-    bool allreadyexist = false;
-          
-    if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-      OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-      Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-      
-      Handle(GEOM_AISShape) result = new GEOM_AISShape( S, nameG );      
-      Handle(GEOM_InteractiveObject) IO = new GEOM_InteractiveObject(aResult->Name(), Fatherior, "GEOM");
-      
-      MESSAGE ( "SO->_is_nil() " << SO->_is_nil() )
-
-      if ( SO->_is_nil() ) {
-       SALOMEDS::SObject_var newObj = aStudyBuilder->NewObject( theObj );
-        anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributeName");
-        aName = SALOMEDS::AttributeName::_narrow(anAttr);
-        aName->SetValue(nameG);
-        anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributeIOR");
-        anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-        anIOR->SetValue(aResult->Name());
-
-       anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributePixMap");
-       aPixmap = SALOMEDS::AttributePixMap::_narrow(anAttr);
-       MESSAGE( " Type " << S.ShapeType() )
-       if ( S.ShapeType() == TopAbs_COMPOUND ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPOUND" );
-       } else if ( S.ShapeType() == TopAbs_COMPSOLID ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPSOLID" );
-       } else if ( S.ShapeType() == TopAbs_SOLID ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_SOLID" );
-       } else if ( S.ShapeType() == TopAbs_SHELL ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_SHELL" );
-       } else if ( S.ShapeType() == TopAbs_FACE ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_FACE" );
-       } else if ( S.ShapeType() == TopAbs_WIRE ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_WIRE" );
-       } else if ( S.ShapeType() == TopAbs_EDGE ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_EDGE" );
-       } else if ( S.ShapeType() == TopAbs_VERTEX ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_VERTEX" );
-       }
-
-       MESSAGE ( " aPixmap->GetPixMap " << aPixmap->GetPixMap() )
-
-       SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-       aStudyBuilder->Addreference(newObj1, newObj);
-       IO->setEntry(newObj->GetID());
-
-       aResult->StudyShapeId( newObj->GetID() );
-      } else {
-       allreadyexist = true;
-       if ( ! SObjectExist(theObj, aResult->Name()) ) {
-         SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(theObj);
-         aStudyBuilder->Addreference(newObj1, SO);
-         IO->setEntry(SO->GetID());
-         aResult->StudyShapeId( SO->GetID() );
-       }
-      }
-      
-      result->setIO( IO );
-      result->setName( nameG );
-      if ( !allreadyexist )
-       ic->Display(result);
-      
-    } else if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-      VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-      
-      int themode = myRenderInter->GetDisplayMode();
-      vtkRenderer *theRenderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-      vtkRenderWindow *renWin = theRenderer->GetRenderWindow();
-      
-      Handle(GEOM_InteractiveObject) IO = new GEOM_InteractiveObject(aResult->Name(), Fatherior,"GEOM");
-      
-      if ( SO->_is_nil() ) {
-       SALOMEDS::SObject_var newObj = aStudyBuilder->NewObject( theObj );
-        anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributeIOR");
-        anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-        anIOR->SetValue(aResult->Name());
-        anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributeName");
-        aName = SALOMEDS::AttributeName::_narrow(anAttr);
-        aName->SetValue(nameG);
-       
-       anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributePixMap");
-       aPixmap = SALOMEDS::AttributePixMap::_narrow(anAttr);
-       if ( S.ShapeType() == TopAbs_COMPOUND ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPOUND" );
-       } else if ( S.ShapeType() == TopAbs_COMPSOLID ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPSOLID" );
-       } else if ( S.ShapeType() == TopAbs_SOLID ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_SOLID" );
-       } else if ( S.ShapeType() == TopAbs_SHELL ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_SHELL" );
-       } else if ( S.ShapeType() == TopAbs_FACE ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_FACE" );
-       } else if ( S.ShapeType() == TopAbs_WIRE ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_WIRE" );
-       } else if ( S.ShapeType() == TopAbs_EDGE ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_EDGE" );
-       } else if ( S.ShapeType() == TopAbs_VERTEX ) {
-         aPixmap->SetPixMap( "ICON_OBJBROWSER_VERTEX" );
-       }
-
-       SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-       aStudyBuilder->Addreference(newObj1, newObj);
-       IO->setEntry(newObj->GetID());
-      } else {
-       allreadyexist = true;
-       if ( ! SObjectExist(theObj, aResult->Name()) ) {
-         SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(theObj);
-         aStudyBuilder->Addreference(newObj1, SO);
-         IO->setEntry(SO->GetID());
-       }
-      }
-      
-      if ( !allreadyexist ) {
-       vtkActorCollection* theActors = 
-         GEOM_AssemblyBuilder::BuildActors(S,0,themode,Standard_True);
-       theActors->InitTraversal();
-       vtkActor* anActor = (vtkActor*)theActors->GetNextActor();
-       while(!(anActor==NULL)) {
-         GEOM_Actor* GActor = GEOM_Actor::SafeDownCast( anActor );
-         GActor->setIO( IO );
-         GActor->setName( nameG );
-         theRenderer->AddActor(GActor);
-         renWin->Render();
-         anActor = (vtkActor*)theActors->GetNextActor();
-       }
-      }
-    }
+    // Check that the entry corresponds to a real object in the Study
+    // as the object may be deleted or modified after the visual state is saved.
+    _PTR(SObject) so = studyDS->FindObjectID(entry.toLatin1().data());
+    if (!so) continue; //Skip the not existent entry
+
+    std::vector<std::string> paramNames = ip->getAllParameterNames( *entIt );
+    std::vector<std::string> paramValues = ip->getAllParameterValues( *entIt );
+
+    std::vector<std::string>::iterator namesIt = paramNames.begin();
+    std::vector<std::string>::iterator valuesIt = paramValues.begin();
+
+    // actors are stored in a map after displaying of them for
+    // quicker access in the future: map < viewID to actor >
+    NCollection_DataMap<int, GEOM_Actor*          > vtkActors;
+    NCollection_DataMap<int, Handle(GEOM_AISShape)> occActors;
+
+    QString viewerTypStr;
+    QString viewIndexStr;
+    int viewIndex;
+    QVector<PropMap> aListOfMap;
+
+    for (; namesIt != paramNames.end(); ++namesIt, ++valuesIt)
+    {
+      // visual parameters are stored in strings as follows: ViewerType_ViewIndex_ParamName.
+      // '_' is used as separator and should not be used in viewer type or parameter names.
+      QStringList lst = QString((*namesIt).c_str()).split( GEOM::sectionSeparator(), QString::SkipEmptyParts);
+      if (lst.size() != 3)
+        continue;
+
+      viewerTypStr = lst[0];
+      viewIndexStr = lst[1];
+      QString paramNameStr = lst[2];
+
+      bool ok;
+      viewIndex = viewIndexStr.toUInt(&ok);
+      if (!ok) // bad conversion of view index to integer
+        continue;
+
+      if ((viewIndex + 1) > aListOfMap.count()) {
+        aListOfMap.resize(viewIndex + 1);
+      }
+
+      QString val((*valuesIt).c_str());
+      if (paramNameStr == GEOM::propertyName( GEOM::Visibility )) {
+        aListOfMap[viewIndex].insert(GEOM::propertyName( GEOM::Visibility ), val == "On");
+      } else if (paramNameStr == GEOM::propertyName( GEOM::Opacity )) {
+        aListOfMap[viewIndex].insert(GEOM::propertyName( GEOM::Transparency ), 1. - val.toDouble());
+      } else if (paramNameStr == GEOM::propertyName( GEOM::Transparency )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::Transparency ), val.toDouble() );
+      } else if (paramNameStr == GEOM::propertyName( GEOM::TopLevel )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::TopLevel ), val == "true" || val == "1");
+      } else if (paramNameStr == GEOM::propertyName( GEOM::DisplayMode )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::DisplayMode ), val.toInt());
+      } else if (paramNameStr == GEOM::propertyName( GEOM::NbIsos )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::NbIsos ), val);
+      } else if (paramNameStr == GEOM::propertyName( GEOM::Color )) {
+        QStringList rgb = val.split(GEOM::subSectionSeparator());
+        if (rgb.count() == 3) {
+          QColor c = QColor::fromRgbF(rgb[0].toDouble(), rgb[1].toDouble(), rgb[2].toDouble());
+          aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::Color ), c);
+        }
+      } else if (paramNameStr == GEOM::propertyName( GEOM::EdgesDirection )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::EdgesDirection ), val == "true" || val == "1");
+      } else if (paramNameStr == GEOM::propertyName( GEOM::Deflection )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::Deflection ), val.toDouble());
+      } else if (paramNameStr == GEOM::propertyName( GEOM::PointMarker )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::PointMarker ), val);
+      } else if (paramNameStr == GEOM::propertyName( GEOM::Material )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::Material ), val);
+      } else if (paramNameStr == GEOM::propertyName( GEOM::LineWidth )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::LineWidth ), val.toInt());
+      } else if (paramNameStr == GEOM::propertyName( GEOM::IsosWidth )) {
+        aListOfMap[viewIndex].insert( GEOM::propertyName( GEOM::IsosWidth ), val.toInt());
+      }
+    } // for names/parameters iterator
+
+    QList<SUIT_ViewManager*> lst = getApp()->viewManagers();
+
+    for (int index = 0; index < aListOfMap.count(); index++) {
+
+      appStudy->setObjectPropMap(index, entry, aListOfMap[index]);
+
+      //Get Visibility property of the current PropMap
+      if (aListOfMap[index].value(GEOM::propertyName( GEOM::Visibility )) == 1) {
+        SUIT_ViewManager* vman = lst.at(index);
+        SUIT_ViewModel* vmodel = vman->getViewModel();
+        displayer()->Display(entry, true, dynamic_cast<SALOME_View*>(vmodel));
+      }
+    }
+  } // for entries iterator
+
+  // update all VTK and OCC views
+  QList<SUIT_ViewManager*> lst;
+  getApp()->viewManagers(lst);
+  for (QList<SUIT_ViewManager*>::Iterator it = lst.begin(); it != lst.end(); it++) {
+    SUIT_ViewModel* vmodel = (*it)->getViewModel();
+    if (!vmodel)
+      continue;
+    if (vmodel->getType() == SVTK_Viewer::Type()) {
+      SVTK_ViewWindow* vtkView = (SVTK_ViewWindow*) (*it)->getActiveView();
+      vtkView->getRenderer()->ResetCameraClippingRange();
+      vtkView->Repaint();
+    }
+    else if (vmodel->getType() == SOCC_Viewer::Type()) {
+      //SOCC_ViewWindow* occView = (SOCC_ViewWindow*) (*it)->getActiveView();
+      SALOME_View* occVMod = dynamic_cast<SALOME_View*>(vmodel);
+      if (occVMod)
+        occVMod->Repaint();
+    }
+  }
+}
+
+void GeometryGUI::onViewAboutToShow()
+{
+  SUIT_ViewWindow* window = application()->desktop()->activeWindow();
+  QAction* a = action( GEOMOp::OpSwitchVectors );
+  if ( window ) {
+    a->setEnabled(true);
+    bool vmode = window->property("VectorsMode").toBool();
+    a->setText ( vmode == 1 ? tr( "MEN_VECTOR_MODE_OFF" ) : tr("MEN_VECTOR_MODE_ON") );
+  } else {
+    a->setText ( tr("MEN_VECTOR_MODE_ON") );
+    a->setEnabled(false);
   }
+}
 
-  /* commit transaction */
-  op->finish();
-  
-  myActiveStudy->updateObjBrowser();
-  myDesktop->putInfo (tr("GEOM_PRP_READY"));
-  return true ;
+/*!
+  \brief Return action by id
+  \param id identifier of the action
+  \return action
+*/
+QAction* GeometryGUI::getAction(const int id) {
+  return action(id);
 }
 
+/*!
+  \brief GEOM module message handler
 
+  This method can be re-implemented in the subclasses.
+  This is a GEOM module message handler.
 
-//=====================================================================================
-// function : GetIndexSubShapeSelected()
-// purpose  : Define a ListOfID of sub shapes selected in ShapeTopo with SubShapeType
-//          : Method used by Dialogs
-//=====================================================================================
-bool GeometryGUI::GetIndexSubShapeSelected( const TopoDS_Shape& ShapeTopo,
-                                           const int SubShapeType,
-                                           GEOM::GEOM_Shape::ListOfSubShapeID& ListOfID,
-                                           Standard_Integer& aLocalContextId,
-                                           bool& myUseLocalContext )
+  \param msg the message received.
+*/
+void GeometryGUI::message(const QString& msg)
 {
-  //* Test the type of viewer */
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC ) {
-    return false;
-  }
-  
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)this->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
+  // dispatch message
+  QStringList data = msg.split("/");
+  const int nbStrings = data.count();
 
-  ic->InitSelected();
-  int nbSelected = ic->NbSelected();
-  ListOfID.length(nbSelected);
-  
+  if (nbStrings > 0) {
+    if (data[0] == "modified") {
+      // get mesh entry
+      QString anIOR = nbStrings > 1 ? data[1] : QString();
 
-  //***************** DEFINE INDEX OF EACH SELECTION *********************//
-  int i = 0 ;
-  ic->InitSelected(); /* to restart */
-  while( ic->MoreSelected() ) {
-
-    /* Find index of sub shape into main shape */
-    TopExp_Explorer Exp ( ShapeTopo, TopAbs_ShapeEnum(SubShapeType) );
-    int index = 1;
-    bool found = false ;
-    while ( Exp.More() ) {
-      if ( (Exp.Current()).IsSame( ic->SelectedShape()) ) {
-       found = true ;
-       break;
+      if ( anIOR.isEmpty() ) {
+        return;
       }
-      index++;
-      Exp.Next();
-    }
-    if( !found ) {
-      /* Manage local context from DialogBox */
-      ic->CloseLocalContext(aLocalContextId) ;
-      myUseLocalContext = false ;
-      return false ;
+
+      // Get the geom object.
+      GEOM::GEOM_Object_ptr anObj = GeometryGUI::GetObjectFromIOR (anIOR);
+
+      // Clear the shape buffer
+      GeometryGUI::ClearShapeBuffer (anObj);
     }
-    ListOfID[i] = index ;
-    i++;
-    ic->NextSelected();
   }
-    //***************** END  *********************//
-
-  /* Manage local context from DialogBox */
-  ic->CloseLocalContext(aLocalContextId) ;
-  myUseLocalContext = false ;
-  
-  return true ;
 }
 
+/*!
+  \brief Clears the shape buffer.
 
-//=====================================================================================
-// function : OnSubShapeGetSelected()
-// purpose  :
-//=====================================================================================
-bool GeometryGUI::OnSubShapeGetSelected( const TopoDS_Shape& ShapeTopo,
-                                        const char* ShapeTopoIOR,
-                                        const int SubShapeType,
-                                        Standard_Integer& aLocalContextId,
-                                        bool& myUseLocalContext )
+  This is a static method. It clears the shape buffer.
+
+  \param theObj the object
+*/
+void GeometryGUI::ClearShapeBuffer( GEOM::GEOM_Object_ptr theObj )
 {
-  //* Test the type of viewer */
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC ) {
-    return false;
-  }
+  if ( CORBA::is_nil( theObj ) )
+    return;
 
-  SALOMEDS::Study_var   aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::SObject_var theObj = aStudy->FindObjectIOR( ShapeTopoIOR );
-  if ( theObj->_is_nil() ) {
-    myDesktop->putInfo(tr("GEOM_PRP_SHAPE_IN_STUDY"));
-    return false ;
-  }
+  CORBA::String_var IOR = SalomeApp_Application::orb()->object_to_string( theObj );
+  TCollection_AsciiString asciiIOR( (char *)IOR.in() );
+  GEOM_Client::get_client().RemoveShapeFromBuffer( asciiIOR );
 
+  SALOMEDSClient_StudyManager *aManager = SalomeApp_Application::studyMgr();
 
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  
-  if( myUseLocalContext == false ) {
-    /* local context is from DialogBox */
-    MESSAGE("Error : No local context opened for sub shapes method" << endl ) ;
-    return false ;
-  }
+  if (!aManager)
+    return;
 
-  GEOM::GEOM_Shape_var aShape  = myComponentGeom->GetIORFromString( ShapeTopoIOR );
-  TopoDS_Shape mainTopo = ShapeReader.GetShape(myComponentGeom, aShape);
-
-  TopoDS_Shape mainShape;
-  bool main = false;
-  while ( !main ) {
-    if ( aShape->IsMainShape() ) {
-      mainShape = ShapeReader.GetShape(myComponentGeom, aShape);
-      main = true;
-    } else
-      aShape = myComponentGeom->GetIORFromString( aShape->MainName() );
-  }
+  _PTR(Study) aStudy = aManager->GetStudyByID(theObj->GetStudyID());
 
-  GEOM::GEOM_Shape::ListOfSubShapeID_var ListOfID = new GEOM::GEOM_Shape::ListOfSubShapeID;
-  ic->InitSelected();
-  int nbSelected = ic->NbSelected();
-  ListOfID->length(nbSelected);
-  
-  TopoDS_Compound compound;
-  ic->InitSelected(); /* to init again */ 
-  BRep_Builder B;
-  B.MakeCompound( compound );
-
-  int i = 0;
-  /* We create a unique compound containing all the sub shapes selected by user as attribute of the main shape */
-  /* the compound is homogenous by selection */
-  while(ic->MoreSelected()) {
-    int index = GetIndex( ic->SelectedShape(), mainShape, SubShapeType );
-    ListOfID[i] = index ;
-    B.Add( compound, ic->SelectedShape() );
-    i++;
-    ic->NextSelected();
-  }
-  /* Test if user has selected sub shapes */
-  if( ListOfID->length() < 1 )
-    return false ;
+  if ( !aStudy )
+    return;
 
-  GEOM::GEOM_Shape_var aResult ;
-  try {
-    aResult = myComponentGeom->SubShape( aShape, SubShapeType, ListOfID );
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
+  _PTR(SObject) aSObj ( aStudy->FindObjectIOR( std::string( IOR ) ) );
+  if ( !aSObj )
+    return;
 
-  /* local context from DialogBox */
-  ic->CloseLocalContext(aLocalContextId) ;
-  myUseLocalContext = false ;
-
-  char* nameG =  (char *)malloc(20);
-  Standard_CString Type;
-
-  Handle(GEOM_AISShape) result; 
-  Handle(GEOM_InteractiveObject) IO ;
-
-  //  if ( ! SObjectExist(theObj, aResult->Name()) ) {
-  if ( nbSelected == 1 ) {
-    TopExp_Explorer Exp ( compound, TopAbs_ShapeEnum(SubShapeType) );
-    if ( Exp.More() ) {
-      if ( GetShapeTypeString(Exp.Current(),Type) ) {
-       aResult->NameType( Type );
-       sprintf (nameG, "%s_%d", Type, GetIndex( Exp.Current(), mainTopo, SubShapeType ) );
-      } else {
-       aResult->NameType( tr("GEOM_SHAPE") );
-       sprintf (nameG, "%s_%d", tr("GEOM_SHAPE").latin1(), this->myNbGeom++ );
-      }
-      result = new GEOM_AISShape( Exp.Current(), nameG );
-      IO = new GEOM_InteractiveObject(aResult->Name(), Fatherior, "GEOM");
+  _PTR(ChildIterator) anIt ( aStudy->NewChildIterator( aSObj ) );
+  for ( anIt->InitEx( true ); anIt->More(); anIt->Next() ) {
+    _PTR(GenericAttribute) anAttr;
+    if ( anIt->Value()->FindAttribute(anAttr, "AttributeIOR") ) {
+      _PTR(AttributeIOR) anIOR ( anAttr );
+      TCollection_AsciiString asciiIOR( (char*)anIOR->Value().c_str() );
+      GEOM_Client::get_client().RemoveShapeFromBuffer( asciiIOR );
     }
   }
-  else {
-    if ( GetShapeTypeString(compound,Type) ) {
-      aResult->NameType( Type );
-      sprintf (nameG, "%s_%d", Type, this->myNbGeom++ );
-    } else {
-      aResult->NameType( tr("GEOM_SHAPE") );
-      sprintf (nameG, "%s_%d", tr("GEOM_SHAPE").latin1(), this->myNbGeom++ );
-    }
-    result = new GEOM_AISShape( compound, nameG );
-    IO = new GEOM_InteractiveObject(aResult->Name(), Fatherior, "GEOM");
-  }
-  
-  SALOMEDS::SObject_var SO = aStudy->FindObjectIOR( aResult->Name() );
-  
-  /* open transaction */
-  QAD_Operation* op = new SALOMEGUI_ImportOperation( myActiveStudy );
-  op->start();
-  
-  SALOMEDS::StudyBuilder_var     aStudyBuilder = aStudy->NewBuilder();
-  SALOMEDS::SObject_var          fatherSF = aStudy->FindObjectID(myActiveStudy->getActiveStudyFrame()->entry());
-  SALOMEDS::GenericAttribute_var anAttr;
-  SALOMEDS::AttributeName_var    aName;
-  SALOMEDS::AttributeIOR_var     anIOR;
-  SALOMEDS::AttributePixMap_var  aPixmap;
-  bool allreadyexist = false;
-
-  if ( SO->_is_nil() ) {
-    SALOMEDS::SObject_var newObj = aStudyBuilder->NewObject( theObj );
-    anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributeIOR");
-    anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-    anIOR->SetValue(aResult->Name());
-    anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributeName");
-    aName = SALOMEDS::AttributeName::_narrow(anAttr);
-    aName->SetValue(result->getName());
-    
-    anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributePixMap");
-    aPixmap = SALOMEDS::AttributePixMap::_narrow(anAttr);
-    if ( result->Shape().ShapeType() == TopAbs_COMPOUND ) {
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPOUND" );
-    } else if ( result->Shape().ShapeType() == TopAbs_COMPSOLID ) {
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPSOLID" );
-    } else if ( result->Shape().ShapeType() == TopAbs_SOLID ) {
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_SOLID" );
-    } else if ( result->Shape().ShapeType() == TopAbs_SHELL ) {
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_SHELL" );
-    } else if ( result->Shape().ShapeType() == TopAbs_FACE ) {
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_FACE" );
-    } else if ( result->Shape().ShapeType() == TopAbs_WIRE ) {
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_WIRE" );
-    } else if ( result->Shape().ShapeType() == TopAbs_EDGE ) {
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_EDGE" );
-    } else if ( result->Shape().ShapeType() == TopAbs_VERTEX ) {
-      aPixmap->SetPixMap( "ICON_OBJBROWSER_VERTEX" );
-    }
+}
 
-    SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-    aStudyBuilder->Addreference(newObj1, newObj);
-    
-    IO->setEntry(newObj->GetID());
-    aResult->StudyShapeId(newObj->GetID());
-  } else {
-    allreadyexist = true;
-    if ( ! SObjectExist(theObj, aResult->Name()) ) {
-      SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(theObj);
-      aStudyBuilder->Addreference(newObj1, SO);
-    
-      IO->setEntry(SO->GetID());
-      aResult->StudyShapeId(SO->GetID());
-    }
-  }
-  
-  /* commit transaction */
-  op->finish();
-  
-  result->setIO( IO );
-  result->setName( nameG );
-
-  if ( !allreadyexist )
-    ic->Display(result);
-
-  this->OnDisplayAll(true);
-  myActiveStudy->updateObjBrowser();
-  myDesktop->putInfo (tr("GEOM_PRP_READY"));
-
-  return true ;
-}
-
-
-//=====================================================================================
-// function : OnSuppressFaces() 
-// purpose  : To suppress faces from a shape
-//          : The result is one or more shells/faces as main shapes !
-//=====================================================================================
-bool GeometryGUI::OnSuppressFaces( const TopoDS_Shape& ShapeTopo,
-                                  const char* ShapeTopoIOR,
-                                  const Standard_Integer& aLocalContextId,
-                                  bool& myUseLocalContext )
-{
-  /* Test the type of viewer */
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC ) {
-    return false;
-  }
-  
-  SALOMEDS::Study_var   aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::SObject_var theObj = aStudy->FindObjectIOR( ShapeTopoIOR );
-  if ( theObj->_is_nil() ) {
-    myDesktop->putInfo(tr("GEOM_PRP_SHAPE_IN_STUDY"));
-    return false ;
-  }
-  
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  
-  if( myUseLocalContext == false ) {
-    /* local context is from DialogBox */
-    MESSAGE("Error : No local context opened for suppress faces method" << endl ) ;
-    return false ;
-  }
-  
-  GEOM::GEOM_Shape::ListOfSubShapeID_var ListOfID = new GEOM::GEOM_Shape::ListOfSubShapeID;
-  ic->InitSelected();
-  int nbSelected = ic->NbSelected();
-  ListOfID->length(nbSelected);
-
-  /* Create a list of indices of faces to be suppressed */
-  int i = 0;
-  const int SubShapeType = 4 ; /* GEOM::FACE type */
-  ic->InitSelected();          /* to repositioning at beginning */
-  while( ic->MoreSelected() ) {
-    int index = GetIndex( ic->SelectedShape(), ShapeTopo, SubShapeType );
-    ListOfID[i] = index ;
-    i++;
-    ic->NextSelected();
-  }
-  
-  /* Close local context opened in DialogBox */
-  ic->CloseLocalContext(aLocalContextId) ;
-  myUseLocalContext = false ;
-  
-  /* Here is the main shape */
-  GEOM::GEOM_Shape_var aShape = myComponentGeom->GetIORFromString( ShapeTopoIOR );  
-  GEOM::GEOM_Gen::ListOfGeomShapes_var listGeomShapes = new GEOM::GEOM_Gen::ListOfGeomShapes;
-  
-  /* Call geom method that return a list of shells/faces as result of suppress */
-  try {
-    listGeomShapes = myComponentGeom->SuppressFaces( aShape, ListOfID );
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  
-  /* Test list of shells/faces */
-  if( listGeomShapes->length() < 1 ) {
-    return false ;
-  }
-
-  /* Loop on each object created */
-  for( int i=0; i<listGeomShapes->length(); i++ ) {
-    
-    GEOM::GEOM_Shape_var aShellOrFace = listGeomShapes[i] ;
-    TopoDS_Shape S = ShapeReader.GetShape( this->myComponentGeom, aShellOrFace );
-    
-    if( S.IsNull() ) {
-      return false ;
-    }
-    
-    char* nameG =  (char *)malloc(20);
-    Standard_CString Type;
-    if ( GetShapeTypeString(S, Type) ) {
-      aShellOrFace->NameType( Type );
-      sprintf (nameG, "%s_%d", Type, this->myNbGeom++);
-    }
-    else {
-      aShellOrFace->NameType( tr("GEOM_SHAPE") );
-      sprintf (nameG, "%s_%d", tr("GEOM_SHAPE").latin1(), this->myNbGeom++ );
-    }
-    
-    /* Display with name */
-    if( !Display( aShellOrFace, nameG) ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return false ;
-    }
-  }
-  
-  myDesktop->putInfo (tr("GEOM_PRP_READY"));
-  return true ;
-}
-
-
-//=====================================================================================
-// function : OnSuppressHole() 
-// purpose  : To suppress an hole on a shape 'ShapeTopo'.
-//          : 'ListOfIdEndFace' may be an empty list.
-//          : This means that hole do not traverse ShapeTopo.
-//          : Warning : the hole to be suppressed must be defined by one or two single closed wires !
-//=====================================================================================
-bool GeometryGUI::OnSuppressHole( const char* ShapeTopoIOR,
-                                 const GEOM::GEOM_Shape::ListOfSubShapeID& ListOfIdFace,
-                                 const GEOM::GEOM_Shape::ListOfSubShapeID& ListOfIdWire,
-                                 const GEOM::GEOM_Shape::ListOfSubShapeID& ListOfIdEndFace )
-{
-  /* Test the type of viewer */
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC ) {
-    return false;
-  }
-  
-  try {
-    GEOM::GEOM_Shape_var aShape  = myComponentGeom->GetIORFromString( ShapeTopoIOR );    
-    GEOM::GEOM_Shape_var aResult = myComponentGeom->SuppressHole( aShape, ListOfIdFace, ListOfIdWire, ListOfIdEndFace ) ;
-  
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, aResult);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    aResult->NameType( type );
-
-    if ( Display( aResult, "" ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return true ;
-}
-
-
-//=====================================================================================
-// function : OnSuppressHolesInFaceOrShell() 
-// purpose  : To suppress one or more holes on a face
-//          : 'ListOfIdWires' contains indices or wires/holes.
-//=====================================================================================
-bool GeometryGUI::OnSuppressHolesInFaceOrShell( const char* ShapeTopoIOR,
-                                               const GEOM::GEOM_Shape::ListOfSubShapeID& ListOfIdWires )
-{
-  /* Test the type of viewer */
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC ) {
-    return false;
-  }
-  
-  try {
-    GEOM::GEOM_Shape_var aShape  = myComponentGeom->GetIORFromString( ShapeTopoIOR );    
-    GEOM::GEOM_Shape_var aResult = myComponentGeom->SuppressHolesInFaceOrShell( aShape, ListOfIdWires ) ;
-    
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, aResult);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    aResult->NameType( type );
-    
-    if ( Display( aResult, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return true ;
-}
-
-
-
-//=======================================================================
-// function : activeStudyChanged()
-// purpose  : static
-//=======================================================================
-void GeometryGUI::activeStudyChanged( QAD_Desktop* parent )
-{
-  MESSAGE ("GeometryGUI::activeStudyChanged init.")
-  /* Create or retrieve an object GeomGUI */
-  GeometryGUI::GetOrCreateGeometryGUI(parent); 
-  if(GeomGUI != 0) {  
-
-    if (GeomGUI->myState == CURRENT_SKETCH) {
-      GeomGUI->mySketcher.Clear();
-      GeomGUI->ResetState();
-    }
-
-    QMenuBar* Mb = GeomGUI->myDesktop->getMainMenuBar();
-    bool ViewOCC = false;
-    if ( GeomGUI->myDesktop->getActiveStudy()->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) 
-      ViewOCC = true;
-
-    Mb->setItemEnabled( 312, ViewOCC); //Sketch
-    Mb->setItemEnabled( 309, ViewOCC); //SuppressFace
-    Mb->setItemEnabled( 314, ViewOCC); //SuppressHole
-    
-    Mb->setItemEnabled( 703, ViewOCC);// ShadingColor Settings
-    Mb->setItemEnabled( 704, ViewOCC);// Isos Settings
-
-    GeomGUI->EraseSimulationShape() ;
-    GeomGUI->EmitSignalCloseAllDialogs() ;
-    GeomGUI = 0 ;
-  }
-
-  //  GeomGUI->SetSettings( parent );
-  // MESSAGE ("GeometryGUI::activeStudyChanged done.")
-  return ;
-}
-
-
-//=======================================================================
-// function : DefineDlgPosition()
-// purpose  : Define x and y the default position for a dialog box
-//=======================================================================
-bool GeometryGUI::DefineDlgPosition(QWidget* aDlg, int& x, int& y)
-{
-  /* Here the position is on the bottom right corner - 10 */
-  QAD_Desktop* PP = QAD_Application::getDesktop() ;
-  x = abs ( PP->x() + PP->size().width()  - aDlg->size().width()  - 10 ) ;
-  y = abs ( PP->y() + PP->size().height() - aDlg->size().height() - 10 ) ;
-  return true ;  
-}
-
-//=======================================================================
-// function : OnGUIEvent() [static]
-// purpose  : manage all events on GUI
-//=======================================================================
-bool GeometryGUI::OnGUIEvent(int theCommandID, QAD_Desktop* parent)
-{
-  /* Create or retrieve an object GeomGUI */
-  GeometryGUI::GetOrCreateGeometryGUI(parent);
-
-  SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->getStudyDocument();
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-  
-  OCCViewer_Viewer3d* v3d;
-  Handle(AIS_InteractiveContext) ic;
-  vtkRenderer* Renderer;
-
-  QMenuBar* Mb = GeomGUI->myDesktop->getMainMenuBar();
-
-  bool ViewOCC = false;
-
-  if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-    v3d = ((OCCViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-    ic = v3d->getAISContext();
-    ViewOCC = true;    
-    Mb->setItemEnabled( 312, ViewOCC);//Sketch
-    Mb->setItemEnabled( 309, ViewOCC);//SuppressFace
-    Mb->setItemEnabled( 314, ViewOCC);//SuppressHole
-    
-    Mb->setItemEnabled( 703, ViewOCC);// ShadingColor Settings
-    Mb->setItemEnabled( 704, ViewOCC);// Isos Settings
-
-  } else if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-    Renderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-
-    // OnSuppressFaces, OnSuppressHole, SETTINGS - SHADING COLOR, SETTINGS - ISOS, SETTINGS : STEP VALUE FOR SPIN BOXES, SKETCHER, ISOS - POPUP VIEWER, 
-    Mb->setItemEnabled( 312, ViewOCC);//Sketch
-    Mb->setItemEnabled( 309, ViewOCC);//SuppressFace
-    Mb->setItemEnabled( 314, ViewOCC);//SuppressHole
-    
-    Mb->setItemEnabled( 703, ViewOCC);// ShadingColor Settings
-    Mb->setItemEnabled( 704, ViewOCC);// Isos Settings
-  } else {
-    return 0;
-  }
-
-  if (GeomGUI->myState == CURRENT_SKETCH && theCommandID != 10000 && theCommandID != 10001 && theCommandID != 10002 && theCommandID != 10003 && theCommandID != 10004 && theCommandID != 10006 && theCommandID != 10007 && theCommandID != 10008 && theCommandID != 10010 && theCommandID != 10011 && theCommandID != 10012 && theCommandID != 10013 && theCommandID != 10014 && theCommandID != 3133 && theCommandID != 3134)
-    return false;
-
-  switch (theCommandID)
-    { 
-    case 31: // COPY
-      GeomGUI->OnEditCopy();
-      break;
-    
-    case 33: // DELETE
-      GeomGUI->OnEditDelete();
-      break;
-
-    case 111:
-      {
-       GeomGUI->SetState(111);
-       GeomGUI->Import();
-       GeomGUI->ResetState();
-       break;
-      }
-    case 112:
-      {
-       GeomGUI->SetState(112);
-       GeomGUI->Import();
-       GeomGUI->ResetState();
-       break;
-      }
-    case 113: // IMPORT STEP
-      {
-       GeomGUI->SetState(113);
-       GeomGUI->Import();
-       GeomGUI->ResetState();
-       break;
-      }
-
-    case 121: // EXPORT BREP
-      {
-       GeomGUI->SetState(121);
-       GeomGUI->Export();
-       GeomGUI->ResetState();
-       break;
-      }
-
-    case 122: // EXPORT IGES
-      {
-       GeomGUI->SetState(122);
-       GeomGUI->Export();
-       GeomGUI->ResetState();
-       break;
-      }
-
-    case 123: // EXPORT STEP
-      {
-       GeomGUI->SetState(123);
-       GeomGUI->Export();
-       GeomGUI->ResetState();
-       break;
-      }
-      
-    case 303: // EXPLODE : use ic
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_SubShapeDlg *aDlg = new GeometryGUI_SubShapeDlg( parent, "", Sel, ic ) ;
-       break ;
-      }
-      
-    case 304: // GEOM::EDGE
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_EdgeDlg *aDlg = new GeometryGUI_EdgeDlg( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 305: // GEOM::WIRE
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_WireDlg *aDlg = new GeometryGUI_WireDlg( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 306: // GEOM::FACE
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_FaceDlg *aDlg = new GeometryGUI_FaceDlg ( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 308: // GEOM::COMPOUND
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_CompoundDlg *aDlg = new GeometryGUI_CompoundDlg ( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 309: // SUPPRESS FACES : use ic
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_SuppressFacesDlg *aDlg = new GeometryGUI_SuppressFacesDlg( parent, "", Sel, ic ) ;
-       break ;
-      }
-      
-    case 314: // SUPPRESS HOLES : use ic
-      {
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-         GeomGUI->EmitSignalDeactivateDialog() ;
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         GeometryGUI_SuppressHoleDlg *aDlg = new GeometryGUI_SuppressHoleDlg( parent, "", Sel, ic ) ;
-       }
-       else { 
-         GeomGUI->myDesktop->putInfo( tr("GEOM_PRP_NOT_FOR_VTK_VIEWER") ) ;
-       }
-       break ;
-      }
-    case 501: // SEWING
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_SewingDlg *aDlg = new GeometryGUI_SewingDlg ( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 502: // ORIENTATION
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_OrientationDlg *aDlg = new GeometryGUI_OrientationDlg( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 601: // PROPERTIES (Length, surface, volume)
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_PropertiesDlg *aDlg = new GeometryGUI_PropertiesDlg( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 604: // CDG : Center of mass
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_CenterMassDlg *aDlg = new GeometryGUI_CenterMassDlg ( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 605: // INERTIA
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_InertiaDlg *aDlg = new GeometryGUI_InertiaDlg( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 607: // MAXTOLERANCE
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_MaxToleranceDlg *aDlg = new GeometryGUI_MaxToleranceDlg( parent, "", Sel ) ;
-       break ;
-      }
-     
-    case 608: // WHATIS
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_WhatisDlg *aDlg = new GeometryGUI_WhatisDlg( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 609: // CHECKSHAPE
-     {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_CheckShape *aDlg = new GeometryGUI_CheckShape( parent, "", Sel ) ;
-       break ;
-     }
-     
-    case 701: // SETTINGS - COPY
-      {
-       QMenuData* pp;
-       QMenuItem* item = parent->menuBar()->findItem(701,&pp);
-       bool check = !pp->isItemChecked(701);
-       pp->setItemChecked(701,check);
-       Settings_Copy = check;  
-       QAD_CONFIG->addSetting( "Geometry:SettingsCopy", Settings_Copy );
-       break;
-      }
-
-    case 702: // SETTINGS - ADD IN STUDY
-      {
-       QMenuData* pp;
-       QMenuItem* item = parent->menuBar()->findItem(702,&pp);
-       bool check = !pp->isItemChecked(702);
-       pp->setItemChecked(702,check);
-       Settings_AddInStudy = check;
-       
-       QAD_CONFIG->addSetting( "Geometry:SettingsAddInStudy", Settings_AddInStudy );
-       break;
-      }
-
-    case 703: // SETTINGS - SHADING COLOR
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       
-       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() ) {
-         GeomGUI->myShadingColor = 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( GeomGUI->myShadingColor );
-             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()  );     
-       }
-       break;
-      }
-
-     
-    case 704: // SETTINGS - ISOS
-      {
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-
-       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";
-       
-       GeometryGUI_NbIsosDlg * NbIsosDlg = new GeometryGUI_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 = ic->Current()->Attributes();
-             CurDrawer->UIsoAspect()->SetNumber( UIso );
-             CurDrawer->VIsoAspect()->SetNumber( VIso );
-             ic->SetLocalAttributes(aSh, CurDrawer);
-             ic->Redisplay(aSh);       
-           }
-           ite.Next();
-         }
-       ic->UpdateCurrentViewer();
-       break;
-      }
-    case 705: // SETTINGS : STEP VALUE FOR SPIN BOXES
-      {
-       //NRI   if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-       //NRI     break;
-       
-       QString step = QAD_CONFIG->getSetting( "Geometry:SettingsGeomStep" );
-       if( step.isEmpty() )
-         step = "100.0" ;
-
-       Standard_Boolean res = false ;
-       double dd = 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 */
-         GeomGUI->SignalDefaultStepValueChanged( dd ) ;
-       }
-       else
-         parent->putInfo(tr("GEOM_PRP_ABORT"));
-
-       break ;
-      }
-      
-    case 801: // ADD IN STUDY - POPUP VIEWER
-      {
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       const SALOME_ListIO& ListSelected = Sel->StoredIObjects();
-       SALOME_ListIteratorOfListIO It( ListSelected );
-       for ( ; It.More(); It.Next() ) {
-         Handle(SALOME_InteractiveObject) IObject = It.Value();
-         GeomGUI->AddInStudy(true, IObject);
-       }
-       /* Is set on the dialog box */
-       QApplication::restoreOverrideCursor();
-       break;
-      }
-
-    case 901: // RENAME
-      {
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       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 );
-               GeomGUI->myActiveStudy->renameIObject( IObject, nm );
-               QApplication::restoreOverrideCursor();
-             }
-           }
-         }
-       }
-       break;
-      }  
-    case 903: // DISPLAY OBJECT BROWSER
-      {
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-         // VTK
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         
-         SALOMEDS::SObject_var fatherSF = 
-           aStudy->FindObjectID(GeomGUI->myActiveStudy->getActiveStudyFrame()->entry());
-
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-         
-         for(;It.More();It.Next()) {
-           Handle(SALOME_InteractiveObject) IObject = It.Value();
-           SALOMEDS::SObject_var obj = aStudy->FindObjectID( IObject->getEntry() );
-
-           VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-
-            SALOMEDS::GenericAttribute_var anAttr;
-            SALOMEDS::AttributeName_var    aName;
-            SALOMEDS::AttributeIOR_var     anIOR;
-        
-           if(myRenderInter->isInViewer(IObject)) {
-             myRenderInter->Display(IObject);
-           }
-           else {
-             // Create new actor
-             if ( !obj->_is_nil() ) {
-               if ( obj->FindAttribute(anAttr, "AttributeIOR")) {
-                 // this SObject may be GEOM module root SObject
-                 SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-                 bool useSubItems = false;
-                 while (anIter->More() && !useSubItems) {
-                   SALOMEDS::SObject_var subobj = anIter->Value();
-                   SALOMEDS::GenericAttribute_var aTmpAttr;
-                   if (subobj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-                     anAttr = aTmpAttr;
-                     obj = subobj;
-                     useSubItems = true;
-                   } else anIter->Next();
-                 }
-                 
-                 while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-                   anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-                   GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-                   TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-
-                   if (obj->FindAttribute(anAttr, "AttributeName")) {
-                     aName = SALOMEDS::AttributeName::_narrow(anAttr);
-
-                     vtkRenderer* theRenderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-                     vtkActorCollection* theAllActors = theRenderer->GetActors();
-                     theAllActors->InitTraversal();
-                     vtkActor* actor = (vtkActor*)theAllActors->GetNextActor();
-                     Handle(SALOME_InteractiveObject) anIObj;
-                     // don't create new study object if it already exists
-                     bool isDisplayed = false;
-                     while(!(actor==NULL)) {
-                       SALOME_Actor* Gactor = SALOME_Actor::SafeDownCast(actor);
-                       if (Gactor!=NULL) {
-                         if (Gactor->hasIO()) {
-                           if (strcmp(Gactor->getIO()->getEntry(),obj->GetID())==0) {
-                             isDisplayed = true;
-                             anIObj = Gactor->getIO();
-                             if (!anIObj.IsNull()) myRenderInter->Display(anIObj);
-                           }
-                         }
-                       }
-                       actor=(vtkActor*)(theAllActors->GetNextActor());
-                     }
-                     if (!isDisplayed) {
-                       // open transaction
-                       QAD_Operation* op = new SALOMEGUI_ImportOperation( GeomGUI->myActiveStudy );
-                       op->start();
-                       
-                       SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-                       aStudyBuilder->Addreference(newObj1, obj);
-                       // commit transaction
-                       op->finish();
-                       
-                       vtkRenderWindow *renWin = theRenderer->GetRenderWindow();
-                       int themode = myRenderInter->GetDisplayMode();
-                       
-                       vtkActorCollection* theActors = 
-                         GEOM_AssemblyBuilder::BuildActors(Shape,0,themode,Standard_True);
-                       theActors->InitTraversal();
-                       vtkActor* anActor = (vtkActor*)theActors->GetNextActor();
-                       while(!(anActor==NULL)) {
-                         GEOM_Actor* GActor = GEOM_Actor::SafeDownCast( anActor );
-                         Handle(GEOM_InteractiveObject) IO = new GEOM_InteractiveObject(anIOR->Value(), Fatherior,"GEOM");
-                         IO->setEntry(obj->GetID());
-                         GActor->setIO( IO );
-                         GActor->setName( IObject->getName() );
-                         
-                         theRenderer->AddActor(GActor);
-                         renWin->Render();
-                         anActor = (vtkActor*)theActors->GetNextActor();
-                       }
-                     }
-                   }
-                   // next item iteration
-                   if (useSubItems) {
-                     anIter->Next();
-                     anAttr = SALOMEDS::GenericAttribute::_nil();
-                     while (anIter->More() && anAttr->_is_nil()) {
-                       SALOMEDS::SObject_var subobject = anIter->Value();
-                       SALOMEDS::GenericAttribute_var aTmpAttribute;
-                       if (subobject->FindAttribute(aTmpAttribute, "AttributeIOR")) {
-                         anAttr = aTmpAttribute;
-                         obj = subobject;
-                       } else anIter->Next();
-                     }
-                   } else anAttr = SALOMEDS::GenericAttribute::_nil();
-                 }
-               }
-             }
-           }
-         }
-         GeomGUI->myActiveStudy->updateObjBrowser( true );
-         QApplication::restoreOverrideCursor();
-
-       } else if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-         for(;It.More();It.Next()) {
-           Handle(SALOME_InteractiveObject) IObject = It.Value();
-
-           SALOMEDS::SObject_var fatherSF = 
-             aStudy->FindObjectID( GeomGUI->myActiveStudy->getActiveStudyFrame()->entry());
-            SALOMEDS::GenericAttribute_var anAttr;
-            SALOMEDS::AttributeName_var    aName;
-            SALOMEDS::AttributeIOR_var     anIOR;
-
-           if ( v3d->isInViewer( IObject, true ) ) {
-             Standard_Boolean found;
-             Handle(GEOM_AISShape) aSh = GeomGUI->ConvertIOinGEOMAISShape( IObject, found, true );
-             if ( found ) {
-               ic->Display(aSh);
-               ic->AddOrRemoveCurrentObject(aSh, true);
-             }
-             
-           } else {
-             SALOMEDS::SObject_var obj = aStudy->FindObjectID( IObject->getEntry() );        
-             if ( !obj->_is_nil() ) {
-               if ( obj->FindAttribute(anAttr, "AttributeIOR")) {
-                 // this SObject may be GEOM module root SObject
-                 SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-                 bool useSubItems = false;
-                 while (anIter->More() && !useSubItems) {
-                   SALOMEDS::SObject_var subobj = anIter->Value();
-                   SALOMEDS::GenericAttribute_var aTmpAttr;
-                   if (subobj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-                     anAttr = aTmpAttr;
-                     obj = subobj;
-                     useSubItems = true;
-                   } else anIter->Next();
-                 }
-                 while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-                   anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-                   GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-                   TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-                   if (obj->FindAttribute(anAttr, "AttributeName")) {
-                     aName = SALOMEDS::AttributeName::_narrow(anAttr);
-                     // searchin for already displayed objects with the same shape
-                     AIS_ListOfInteractive aDisplayed;
-                     ic->DisplayedObjects(aDisplayed);
-                     AIS_ListIteratorOfListOfInteractive anIObjects(aDisplayed);
-                     Handle(AIS_Shape) anAISShape;
-                     for(;anIObjects.More();anIObjects.Next()) {
-                       anAISShape = Handle(AIS_Shape)::DownCast(anIObjects.Value());
-                       if (!anAISShape.IsNull()) {
-                         if (anAISShape->Shape().IsSame(Shape)) break;
-                         anAISShape.Nullify();
-                       }
-                     }
-                     if (!anAISShape.IsNull()) {
-                       if (!ic->IsDisplayed(anAISShape)) ic->Display(anAISShape);
-                     } else {
-                       if (!useSubItems) {
-                         // open transaction
-                         QAD_Operation* op = new SALOMEGUI_ImportOperation( GeomGUI->myActiveStudy );
-                         op->start();
-                         
-                         SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-                         aStudyBuilder->Addreference(newObj1, obj);
-                         // commit transaction
-                         op->finish();
-                       }
-
-                       Handle(GEOM_AISShape) aSh = new GEOM_AISShape(Shape, aName->Value());
-                       aSh->SetShadingColor( GeomGUI->myShadingColor );
-                       Handle(GEOM_InteractiveObject) IO = new GEOM_InteractiveObject(anIOR->Value(),
-                                                                                      Fatherior,
-                                                                                      "GEOM");
-                       IO->setEntry(obj->GetID());
-                       aSh->setIO( IO );
-                       aSh->setName( aName->Value() );
-                       ic->Display (aSh);
-                       if (!useSubItems) ic->AddOrRemoveCurrentObject(aSh, true);
-                     }
-                   }
-                   // next item iteration
-                   if (useSubItems) {
-                     anIter->Next();
-                     anAttr=SALOMEDS::GenericAttribute::_nil();
-                     while (anIter->More() && anAttr->_is_nil()) {
-                       SALOMEDS::SObject_var subobject = anIter->Value();
-                       SALOMEDS::GenericAttribute_var aTmpAttribute;
-                       if (subobject->FindAttribute(aTmpAttribute, "AttributeIOR")) {
-                         anAttr = aTmpAttribute;
-                         obj = subobject;
-                       } else anIter->Next();
-                     }
-                   } else anAttr = SALOMEDS::GenericAttribute::_nil();
-                 }
-               }
-             }
-           }
-         }
-         GeomGUI->myActiveStudy->updateObjBrowser( true );
-         QApplication::restoreOverrideCursor();
-       }
-       break;
-      }
-      
-    case 3011: // POINT
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_PointDlg *aDlg = new GeometryGUI_PointDlg( parent, "", Sel, ic ) ; 
-       break;
-      }
-      
-    case 3012:  // LINE
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_LineDlg *aDlg = new GeometryGUI_LineDlg( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 3013:  // CIRCLE
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_CircleDlg *aDlg = new GeometryGUI_CircleDlg( parent, "", Sel ) ;
-       break ;
-      }
-
-    case 3015:  // ARC
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_ArcDlg *aDlg = new GeometryGUI_ArcDlg( parent, "", Sel ) ;
-       break ;
-      }
-      
-    case 3016: // VECTOR
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_VectorDlg *aDlg = new GeometryGUI_VectorDlg( parent, "", Sel ) ;
-       break;
-      }
-      
-    case 3017: // PLANE
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_PlaneDlg *aDlg = new GeometryGUI_PlaneDlg( parent, "", Sel ) ;
-       break;
-      }
-      
-    case 3018: // WORKING PLANE
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_WorkingPlaneDlg *aDlg = new GeometryGUI_WorkingPlaneDlg( parent, "", Sel ) ;
-       break;
-      }
-      
-    case 312: // SKETCHER
-      {
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-         break;
-
-       GeomGUI->EmitSignalDeactivateDialog() ;
-
-       ((OCCViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->onViewTop(); // DCQ : 28/02/2002
-       
-       GeomGUI->mySketcher = Sketch( v3d->getViewer3d() );
-       GeomGUI->SetState(CURRENT_SKETCH);
-       
-       QMenuBar* Mb = GeomGUI->myDesktop->getMainMenuBar();
-       QMenuData* pp;
-
-        QMenuItem* item = Mb->findItem(10010,&pp);
-       GeomGUI->mySketcher.SetParameterVisibility(LENGTH_PARAMETER,pp->isItemChecked(10010));
-       item = Mb->findItem(10011,&pp);
-       GeomGUI->mySketcher.SetParameterVisibility(ANGLE_PARAMETER,pp->isItemChecked(10011));
-       item = Mb->findItem(10012,&pp);
-       GeomGUI->mySketcher.SetParameterVisibility(RADIUS_PARAMETER,pp->isItemChecked(10012));
-       item = Mb->findItem(10013,&pp);
-       GeomGUI->mySketcher.SetParameterVisibility(XVALUE_PARAMETER,pp->isItemChecked(10013));
-       item = Mb->findItem(10014,&pp);
-       GeomGUI->mySketcher.SetParameterVisibility(YVALUE_PARAMETER,pp->isItemChecked(10014));
-       
-       GeomGUI->mySketcher.SetTransitionStatus(NOCONSTRAINT);
-       item = Mb->findItem(3133,&pp);
-       pp->setItemChecked(3133,false);
-       item = Mb->findItem(3134,&pp);
-       pp->setItemChecked(3134,false);
-       break;
-      }
-
-    case 3021: // BOX
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_BoxDlg *aDlg = new GeometryGUI_BoxDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 3022: // CYLINDER
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_CylinderDlg *aDlg = new GeometryGUI_CylinderDlg( parent, "", Sel ) ;        
-       break;
-      }
-
-    case 3023: // SPHERE
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_SphereDlg *aDlg = new GeometryGUI_SphereDlg( parent, "", Sel ) ;
-       break;
-      }
-      
-    case 3024: // TORUS
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_TorusDlg *aDlg = new GeometryGUI_TorusDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 3025: // CONE
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_ConeDlg *aDlg = new GeometryGUI_ConeDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 3131:
-      {
-       break;
-      }
-
-    case 3133: // sketcher
-      { 
-       QMenuBar* Mb = GeomGUI->myDesktop->getMainMenuBar();
-        QMenuData* pp;
-       QMenuItem* item = Mb->findItem(3133,&pp);
-       pp->setItemChecked(3133,!pp->isItemChecked(3133));
-       if (pp->isItemChecked(3133) == true) 
-         GeomGUI->mySketcher.SetTransitionStatus(TANGENT);
-       else
-         GeomGUI->mySketcher.SetTransitionStatus(NOCONSTRAINT);
-
-       pp->setItemChecked(3134,false);
-       break;
-      }
-
-    case 3134: // sketcher
-      {
-       QMenuBar* Mb = GeomGUI->myDesktop->getMainMenuBar();
-        QMenuData* pp;
-       QMenuItem* item = Mb->findItem(3134,&pp);
-       pp->setItemChecked(3134,!pp->isItemChecked(3134));
-       if (pp->isItemChecked(3134) == true) 
-         GeomGUI->mySketcher.SetTransitionStatus(PERPENDICULAR);
-       else 
-         GeomGUI->mySketcher.SetTransitionStatus(NOCONSTRAINT);
-       
-       pp->setItemChecked(3133,false);
-       break;
-      }
-
-    case 4011: // FUSE
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_FuseDlg *aDlg = new GeometryGUI_FuseDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4012: // COMMON
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_CommonDlg *aDlg = new GeometryGUI_CommonDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4013: // CUT
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_CutDlg *aDlg = new GeometryGUI_CutDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4014: // SECTION
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_SectionDlg *aDlg = new GeometryGUI_SectionDlg( parent, "", Sel ) ;
-       break;
-      }
-      
-    case 4021: // TRANSLATION
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_TranslationDlg *aDlg = new GeometryGUI_TranslationDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4022: // ROTATION
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_RotationDlg *aDlg = new GeometryGUI_RotationDlg( parent, "", Sel ) ;
-       break;
-      }
-
-   case 4030: // MULTI TRANSLATION
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_MultiTranslationDlg *aDlg = new GeometryGUI_MultiTranslationDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4040: // MULTI ROTATION
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_MultiRotationDlg *aDlg = new GeometryGUI_MultiRotationDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4023: // MIRROR
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_MirrorDlg *aDlg = new GeometryGUI_MirrorDlg( parent, "", Sel ) ;
-       break;
-      }
-      
-    case 4024: // SCALE
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_ScaleDlg *aDlg = new GeometryGUI_ScaleDlg( parent, "", Sel ) ;
-       break;
-      }
-      
-    case 4025: // PARTITION
-      {                
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_PartitionDlg *aDlg = new GeometryGUI_PartitionDlg( parent, "", Sel ) ;      
-       break;
-      }
-
-    case 4026: // ARCHIMEDE
-      {                
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_ArchimedeDlg *aDlg = new GeometryGUI_ArchimedeDlg( parent, "", Sel ) ;      
-       break;
-      }
-
-    case 4027: // FILLET
-      {                
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_FilletDlg *aDlg = new GeometryGUI_FilletDlg( parent, "", Sel, ic ) ;        
-       break;
-      }
-
-    case 4028: // CHAMFER
-      {                
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_ChamferDlg *aDlg = new GeometryGUI_ChamferDlg( parent, "", Sel, ic ) ;      
-       break;
-      }
-
-    case 4031: // PRISM
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_PrismDlg *aDlg = new GeometryGUI_PrismDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4032: // REVOL
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_RevolDlg *aDlg = new GeometryGUI_RevolDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4033: // FILLING
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_FillingDlg *aDlg = new GeometryGUI_FillingDlg( parent, "", Sel ) ;
-       break;
-      }
-
-    case 4034: // PIPE
-      {        
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_PipeDlg *aDlg = new  GeometryGUI_PipeDlg(parent, "", Sel ) ;
-       break;
-      }
-      
-    case 5001: // CHECK GEOMETRY
-      {
-       QAD_PyEditor* PyEditor = GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getPyEditor();
-       PyEditor->setText("from GEOM_usinggeom import *\n");
-       PyEditor->setText(">>> ");
-       PyEditor->handleReturn();
-       break;
-      }
-
-    case 6021: // SHADING - WIREFRAME
-      {
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK) {
-         VTKViewer_RenderWindowInteractor* myRenderInter= 
-           ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-
-         QApplication::setOverrideCursor(waitCursor); 
-         
-         int themode = myRenderInter->GetDisplayMode();
-         if( themode==0 ) {
-           myRenderInter->SetDisplayMode(1);
-           GeomGUI->GetDesktop()->menuBar()->changeItem(6021, tr("GEOM_MEN_WIREFRAME") );
-         } else {
-           myRenderInter->SetDisplayMode(0);
-           GeomGUI->GetDesktop()->menuBar()->changeItem(6021, tr("GEOM_MEN_SHADING") );
-         }
-
-         QApplication::restoreOverrideCursor();          
-         
-       } else if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC) {
-         AIS_DisplayMode mode = ( AIS_DisplayMode )ic->DisplayMode();
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         AIS_DisplayMode newmode = (mode == AIS_WireFrame ? AIS_Shaded : AIS_WireFrame);
-
-         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());
-             ic->SetDisplayMode(aSh,Standard_Integer(newmode),true);
-           }
-           ite.Next();
-         }
-
-         ic->SetDisplayMode( newmode, Standard_False);
-         if ( newmode == 1 )
-           GeomGUI->GetDesktop()->menuBar()->changeItem(6021, tr("GEOM_MEN_WIREFRAME") );
-         else
-           GeomGUI->GetDesktop()->menuBar()->changeItem(6021, tr("GEOM_MEN_SHADING") );
-         
-         QApplication::restoreOverrideCursor();
-       }
-       break;
-      }
-      
-    case 6022: // DISPLAY ALL
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK )
-         //VTK
-         ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor()->DisplayAll();
-       else if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC )
-         GeomGUI->OnDisplayAll();
-       break;
-      }
-      
-    case 6023: // DISPLAY ONLY
-    case 8023: // DISPLAY ONLY - POPUP VIEWER
-      {
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK) {
-         // VTK
-         GeomGUI->OnVTKDisplayOnly();
-       }
-       else if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC)
-         GeomGUI->OnDisplayOnly();
-       break;
-      }
-      
-    case 6024: // ERASE ALL
-      {
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK) {
-         //VTK
-         ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor()->EraseAll();
-       }
-       else if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC)  {
-         ic->EraseAll(Standard_True, Standard_False);
-         ic->Display(v3d->getTrihedron());
-       }
-
-       //NRI   SALOME_Selection* Sel = SALOME_Selection::Selection( myActiveStudy->getSelection() );
-       //NRI   Sel->ClearInteractiveObjects();
-       break;
-      }
-
-    case 6025 : // ERASE ONLY
-    case 8022 : // ERASE - POPUP VIEWER
-      {
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK) {
-         // VTK
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-         Handle(SALOME_InteractiveObject) anIObject;
-         for(;It.More();It.Next()) {
-           anIObject = It.Value();
-           VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-           
-           if(myRenderInter->isInViewer(anIObject)) {
-             myRenderInter->Erase(anIObject);
-           } else {
-             SALOMEDS::SObject_var obj = aStudy->FindObjectID( anIObject->getEntry() );
-             SALOMEDS::GenericAttribute_var anAttr;
-             SALOMEDS::AttributeIOR_var     anIOR;
-             if ( !obj->_is_nil() ) {
-               if ( obj->FindAttribute(anAttr, "AttributeIOR")) {
-                 // this SObject may be GEOM module root SObject
-                 SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-                 bool useSubItems = false;
-                 while (anIter->More() && !useSubItems) {
-                   SALOMEDS::SObject_var subobj = anIter->Value();
-                   SALOMEDS::GenericAttribute_var aTmpAttr;
-                   if (subobj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-                     anAttr = aTmpAttr;
-                     obj = subobj;
-                     useSubItems = true;
-                   } else anIter->Next();
-                 }
-                 
-                 while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-                   anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-                   GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-                   TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-                   if (obj->FindAttribute(anAttr, "AttributeName")) {
-                     // searchin for already displayed objects with the same shape
-                     vtkRenderer* theRenderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-                     vtkActorCollection* theAllActors = theRenderer->GetActors();
-                     theAllActors->InitTraversal();
-                     vtkActor* actor = (vtkActor*)theAllActors->GetNextActor();
-                     Handle(SALOME_InteractiveObject) anIObj;
-                     // don't create new study object if it already exists
-                     bool isDisplayed = false;
-                     while(!(actor==NULL)) {
-                       SALOME_Actor* Gactor = SALOME_Actor::SafeDownCast(actor);
-                       if (Gactor!=NULL) {
-                         if (Gactor->hasIO()) {
-                           if (strcmp(Gactor->getIO()->getEntry(),obj->GetID())==0) {
-                             isDisplayed = true;
-                             anIObj = Gactor->getIO();
-                             if (!anIObj.IsNull()) myRenderInter->Erase(anIObj);
-                           }
-                         }
-                       }
-                       actor=(vtkActor*)(theAllActors->GetNextActor());
-                     }
-                   }
-                   if (useSubItems) {
-                     anIter->Next();
-                     anAttr=SALOMEDS::GenericAttribute::_nil();
-                     while (anIter->More() && anAttr->_is_nil()) {
-                       SALOMEDS::SObject_var subobject = anIter->Value();
-                       SALOMEDS::GenericAttribute_var aTmpAttribute;
-                       if (subobject->FindAttribute(aTmpAttribute, "AttributeIOR")) {
-                         anAttr = aTmpAttribute;
-                         obj = subobject;
-                       } else anIter->Next();
-                     }
-                   } else anAttr = SALOMEDS::GenericAttribute::_nil();
-                 }
-               }
-             }
-           }
-         }
-//       SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-//       for(;It.More();It.Next()) {
-//         Handle(SALOME_InteractiveObject) IOS = It.Value();
-         //        GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getVTKView()->getRWInteractor()->Erase(IOS);;
-       }
-       else if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC) {
-         // OCC
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-         Handle(SALOME_InteractiveObject) anIObject;
-         for(;It.More();It.Next()) {
-           anIObject = It.Value();
-           if ( v3d->isInViewer( anIObject, true ) ) {
-             Standard_Boolean found;
-             Handle(GEOM_AISShape) aSh = GeomGUI->ConvertIOinGEOMAISShape( anIObject, found, true );
-             if ( found ) {
-               ic->Erase(aSh);
-               ic->AddOrRemoveCurrentObject(aSh, true);
-             }
-           } else {
-             SALOMEDS::SObject_var obj = aStudy->FindObjectID( anIObject->getEntry() );
-             SALOMEDS::GenericAttribute_var anAttr;
-             SALOMEDS::AttributeIOR_var     anIOR;
-             if ( !obj->_is_nil() ) {
-               if ( obj->FindAttribute(anAttr, "AttributeIOR")) {
-                 // this SObject may be GEOM module root SObject
-                 SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-                 bool useSubItems = false;
-                 while (anIter->More() && !useSubItems) {
-                   SALOMEDS::SObject_var subobj = anIter->Value();
-                   SALOMEDS::GenericAttribute_var aTmpAttr;
-                   if (subobj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-                     anAttr = aTmpAttr;
-                     obj = subobj;
-                     useSubItems = true;
-                   } else anIter->Next();
-                 }
-                 
-                 while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-                   anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-                   GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-                   TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-                   if (obj->FindAttribute(anAttr, "AttributeName")) {
-                     // searchin for already displayed objects with the same shape
-                     AIS_ListOfInteractive aDisplayed;
-                     ic->DisplayedObjects(aDisplayed);
-                     AIS_ListIteratorOfListOfInteractive anIObjects(aDisplayed);
-                     Handle(AIS_Shape) anAISShape;
-                     for(;anIObjects.More();anIObjects.Next()) {
-                       anAISShape = Handle(AIS_Shape)::DownCast(anIObjects.Value());
-                       if (!anAISShape.IsNull()) {
-                         if (anAISShape->Shape().IsSame(Shape)) break;
-                         anAISShape.Nullify();
-                       }
-                     }
-                     if (!anAISShape.IsNull()) {
-                       if (ic->IsDisplayed(anAISShape)) ic->Erase(anAISShape);
-                     }
-                   }
-                   if (useSubItems) {
-                     anIter->Next();
-                     anAttr=SALOMEDS::GenericAttribute::_nil();
-                     while (anIter->More() && anAttr->_is_nil()) {
-                       SALOMEDS::SObject_var subobject = anIter->Value();
-                       SALOMEDS::GenericAttribute_var aTmpAttribute;
-                       if (subobject->FindAttribute(aTmpAttribute, "AttributeIOR")) {
-                         anAttr = aTmpAttribute;
-                         obj = subobject;
-                       } else anIter->Next();
-                     }
-                   } else anAttr = SALOMEDS::GenericAttribute::_nil();
-                 }
-               }
-             }
-           }
-         }
-       }
-       Sel->ClearIObjects();
-       break;
-      }
-      
-
-    case 6060: // BOUNDING BOX
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_BndBoxDlg *aDlg = new  GeometryGUI_BndBoxDlg(parent, "", Sel ) ;
-       break ;
-      }
-
-    case 6061: // MIN DISTANCE
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_DistanceDlg *aDlg = new GeometryGUI_DistanceDlg(parent, "", Sel ) ;
-       break ;
-      }
-
-    case 8021: // WIREFRAME-SHADING
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-         // VTK
-         VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-         
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-         
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         for(;It.More();It.Next()) {
-           Handle(SALOME_InteractiveObject) IOS = It.Value();
-           myRenderInter->SwitchRepresentation(IOS, false);
-         }
-         myRenderInter->Render();
-         QApplication::restoreOverrideCursor();
-       }
-       else if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-         for(;It.More();It.Next()) {
-           Handle(SALOME_InteractiveObject) IObject = It.Value();
-           Standard_Boolean found;
-           Handle(GEOM_AISShape) Shape = GeomGUI->ConvertIOinGEOMAISShape( IObject, found, true );
-            if (!Shape.IsNull()) {
-             AIS_DisplayMode mode = ( AIS_DisplayMode )Shape->DisplayMode();
-             if ( mode == -1 )
-               mode = ( AIS_DisplayMode )ic->DisplayMode();
-             
-             QApplication::setOverrideCursor( Qt::waitCursor );
-             ic->SetDisplayMode(Shape, mode == AIS_WireFrame ? AIS_Shaded : AIS_WireFrame, false);
-           }
-           QApplication::restoreOverrideCursor();
-         }
-         ic->UpdateCurrentViewer();
-       }
-       QApplication::restoreOverrideCursor();
-       break;
-      }
-      
-    case 8031: // COLOR - POPUP VIEWER
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-         // VTK
-         VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-         
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         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 ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         Handle(SALOME_InteractiveObject) IO = Sel->firstIObject();
-         Standard_Boolean found;
-         Handle(GEOM_AISShape) Shape = GeomGUI->ConvertIOinGEOMAISShape(IO, found, true);
-         if ( found ) {
-           Quantity_Color CSFColor;
-           Shape->Color( CSFColor );
-           
-           QColor c = QColorDialog::getColor( QColor(CSFColor.Red()  * 255.0,
-                                                     CSFColor.Green()* 255.0, 
-                                                     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 = GeomGUI->ConvertIOinGEOMAISShape(IObject, found, true);
-               if ( found ) {
-                 Shape->SetColor ( CSFColor );
-                 Shape->SetShadingColor ( CSFColor );
-               }
-             }
-           }
-         }
-       }
-       QApplication::restoreOverrideCursor();
-       break;
-      }
-      
-    case 8032: // TRANSPARENCY - POPUP VIEWER
-      {
-       GeomGUI->EmitSignalDeactivateDialog() ;
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       GeometryGUI_TransparencyDlg *aDlg = new GeometryGUI_TransparencyDlg( parent, "", Sel, ic ) ;
-       break ;
-      }
-      
-    case 8033: // ISOS - POPUP VIEWER
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       else {
-         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";
-           
-           GeometryGUI_NbIsosDlg * NbIsosDlg =
-             new GeometryGUI_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();
-       break;
-      }
-
-    case 9022 : // ERASE - OBJBROSER POPUP
-      {
-       SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-       if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-         // VTK
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-         Handle(SALOME_InteractiveObject) anIObject;
-         for(;It.More();It.Next()) {
-           anIObject = It.Value();
-         VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-        
-//       Handle(SALOME_InteractiveObject) IObject;
-         if(myRenderInter->isInViewer(anIObject)) {
-           myRenderInter->Erase(anIObject);
-         } else {
-           SALOMEDS::SObject_var obj = aStudy->FindObjectID( anIObject->getEntry() );
-           SALOMEDS::GenericAttribute_var anAttr;
-           SALOMEDS::AttributeIOR_var     anIOR;
-           if ( !obj->_is_nil() ) {
-             if ( obj->FindAttribute(anAttr, "AttributeIOR")) {
-               // this SObject may be GEOM module root SObject
-               SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-               bool useSubItems = false;
-               while (anIter->More() && !useSubItems) {
-                 SALOMEDS::SObject_var subobj = anIter->Value();
-                 SALOMEDS::GenericAttribute_var aTmpAttr;
-                 if (subobj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-                   anAttr = aTmpAttr;
-                   obj = subobj;
-                   useSubItems = true;
-                 } else anIter->Next();
-               }
-               
-               while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-                 anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-                 GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-                 TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-                 if (obj->FindAttribute(anAttr, "AttributeName")) {
-                   // searchin for already displayed objects with the same shape
-                   vtkRenderer* theRenderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-                   vtkActorCollection* theAllActors = theRenderer->GetActors();
-                   theAllActors->InitTraversal();
-                   vtkActor* actor = (vtkActor*)theAllActors->GetNextActor();
-                   Handle(SALOME_InteractiveObject) anIObj;
-                   // don't create new study object if it already exists
-                   bool isDisplayed = false;
-                   while(!(actor==NULL)) {
-                     SALOME_Actor* Gactor = SALOME_Actor::SafeDownCast(actor);
-                     if (Gactor!=NULL) {
-                       if (Gactor->hasIO()) {
-                         if (strcmp(Gactor->getIO()->getEntry(),obj->GetID())==0) {
-                           isDisplayed = true;
-                           anIObj = Gactor->getIO();
-                           if (!anIObj.IsNull()) myRenderInter->Erase(anIObj);
-                         }
-                       }
-                     }
-                     actor=(vtkActor*)(theAllActors->GetNextActor());
-                   }
-                 }
-                 if (useSubItems) {
-                   anIter->Next();
-                   anAttr=SALOMEDS::GenericAttribute::_nil();
-                   while (anIter->More() && anAttr->_is_nil()) {
-                     SALOMEDS::SObject_var subobject = anIter->Value();
-                     SALOMEDS::GenericAttribute_var aTmpAttribute;
-                     if (subobject->FindAttribute(aTmpAttribute, "AttributeIOR")) {
-                       anAttr = aTmpAttribute;
-                       obj = subobject;
-                     } else anIter->Next();
-                   }
-                 } else anAttr = SALOMEDS::GenericAttribute::_nil();
-               }      
-             }
-           }
-         }
-//       SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-//       for(;It.More();It.Next()) {
-//         Handle(SALOME_InteractiveObject) IOS = It.Value();
-//         GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getVTKView()->getRWInteractor()->Erase(IOS);;
-       }
-//       SALOME_ListIteratorOfListIO It(Sel->StoredIObjects());
-//       for(;It.More();It.Next()) {
-//         Handle(SALOME_InteractiveObject) IOS = It.Value();
-//         GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getVTKView()->getRWInteractor()->Erase(IOS);;
-//       }
-       }
-       else if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-         // OCC
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-         Handle(SALOME_InteractiveObject) anIObject;
-         for(;It.More();It.Next()) {
-           anIObject = It.Value();
-           if ( v3d->isInViewer( anIObject, true ) ) {
-             Standard_Boolean found;
-             Handle(GEOM_AISShape) aSh = GeomGUI->ConvertIOinGEOMAISShape( anIObject, found, true );
-             if ( found ) {
-               ic->Erase(aSh);
-               ic->AddOrRemoveCurrentObject(aSh, true);
-             }
-           } else {
-             SALOMEDS::SObject_var obj = aStudy->FindObjectID( anIObject->getEntry() );
-             SALOMEDS::GenericAttribute_var anAttr;
-             SALOMEDS::AttributeIOR_var     anIOR;
-             if ( !obj->_is_nil() ) {
-               if ( obj->FindAttribute(anAttr, "AttributeIOR")) {
-                 // this SObject may be GEOM module root SObject
-                 SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-                 bool useSubItems = false;
-                 while (anIter->More() && !useSubItems) {
-                   SALOMEDS::SObject_var subobj = anIter->Value();
-                   SALOMEDS::GenericAttribute_var aTmpAttr;
-                   if (subobj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-                     anAttr = aTmpAttr;
-                     obj = subobj;
-                     useSubItems = true;
-                   } else anIter->Next();
-                 }
-                 
-                 while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-                   anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-                   GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-                   TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-                   if (obj->FindAttribute(anAttr, "AttributeName")) {
-                     // searchin for already displayed objects with the same shape
-                     AIS_ListOfInteractive aDisplayed;
-                     ic->DisplayedObjects(aDisplayed);
-                     AIS_ListIteratorOfListOfInteractive anIObjects(aDisplayed);
-                     Handle(AIS_Shape) anAISShape;
-                     for(;anIObjects.More();anIObjects.Next()) {
-                       anAISShape = Handle(AIS_Shape)::DownCast(anIObjects.Value());
-                       if (!anAISShape.IsNull()) {
-                         if (anAISShape->Shape().IsSame(Shape)) break;
-                         anAISShape.Nullify();
-                       }
-                     }
-                     if (!anAISShape.IsNull()) {
-                       if (ic->IsDisplayed(anAISShape)) ic->Erase(anAISShape);
-                     }
-                   }
-                   if (useSubItems) {
-                     anIter->Next();
-                     anAttr=SALOMEDS::GenericAttribute::_nil();
-                     while (anIter->More() && anAttr->_is_nil()) {
-                       SALOMEDS::SObject_var subobject = anIter->Value();
-                       SALOMEDS::GenericAttribute_var aTmpAttribute;
-                       if (subobject->FindAttribute(aTmpAttribute, "AttributeIOR")) {
-                         anAttr = aTmpAttribute;
-                         obj = subobject;
-                       } else anIter->Next();
-                     }
-                   } else anAttr = SALOMEDS::GenericAttribute::_nil();
-                 }
-               }
-             }
-           }
-         }
-//       QAD_Viewer3d* v3d = GeomGUI->myActiveStudy->getActiveStudyFrame()->getViewerOCC();
-//       Handle (AIS_InteractiveContext) myContext = v3d->getAISContext();
-//       myContext->EraseSelected();
-       }
-
-       Sel->ClearIObjects();
-       break;
-      }
-      
-    case 9023 : // DISPLAY ONLY - OBJBROSER POPUP
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK )
-         GeomGUI->OnVTKDisplayOnly();
-       else if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC )
-         GeomGUI->OnDisplayOnly();
-       break;
-      }
-
-    case 9024 : // OPEN - OBJBROSER POPUP
-      {
-         SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-         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 = GeomGUI->myActiveStudy->getStudyDocument()->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")) {
-                 // load
-                 Engines::Component_var comp = GeomGUI->myDesktop->getEngine("FactoryServer","Geometry");
-                 if (!CORBA::is_nil(comp)) {
-                   SALOMEDS::Driver_var   driver = SALOMEDS::Driver::_narrow(comp);
-
-
-                   SALOMEDS::StudyBuilder_var aStudyBuilder = GeomGUI->myActiveStudy->getStudyDocument()->NewBuilder();
-                   aStudyBuilder->LoadWith(GeomGUI->myActiveStudy->getStudyDocument()->FindComponent("GEOM"),driver);
-
-                 } else {
-                   MESSAGE("Component is null");
-                 }
-               }
-               if (useSubItems) {
-                 anIter->Next();
-                 obj = anIter->Value();
-               } else anAttr = SALOMEDS::GenericAttribute::_nil();
-              }
-           }
-         }
-       break;
-      }
-      
-    case 10000 : // SKETCH Segment
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       GeomGUI->OnSketchSegment();
-       break;
-      }
-    case 10001 : // SKETCH Arc
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       GeomGUI->OnSketchArc();
-       break;
-      }
-    case 10002 : // SKETCH Set Angle
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       GeomGUI->OnSketchSetAngle();
-       break;
-      }
-    case 10003 : // SKETCH Set X
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       GeomGUI->OnSketchSetx();
-       break;
-      }
-    case 10004 : // SKETCH Set Y
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       GeomGUI->OnSketchSety();
-       break;
-      }
-    case 10006 : // SKETCH Delete
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       GeomGUI->OnSketchDelete();
-       break;
-      }
-    case 10007 : // SKETCH End
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       GeomGUI->OnSketchEnd();
-       break;
-      }
-    case 10008 : // SKETCH Close
-      {
-       if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-         break;
-       GeomGUI->OnSketchClose();
-       break;
-      }
-    case 10010 : // SKETCH OptionsOnofflengthdimension
-      {
-       GeomGUI->OnSketchOptionsOnofflengthdimension();
-       break;
-      }
-    case 10011 : // SKETCH OptionsOnoffangledimension
-      {
-       GeomGUI->OnSketchOptionsOnoffangledimension();
-       break;
-      }
-    case 10012 : // SKETCH OptionsOnoffradiusdimension
-      {
-       GeomGUI->OnSketchOptionsOnoffradiusdimension();
-       break;
-      }
-    case 10013 : // SKETCH OptionsOnoffxdimension
-      {
-       GeomGUI->OnSketchOptionsOnoffxdimension();
-       break;
-      }
-    case 10014 : // SKETCH OptionsOnoffydimension
-      {
-       GeomGUI->OnSketchOptionsOnoffydimension();
-       break;
-      }
-
-    default:
-      {
-       parent->putInfo( tr("GEOM_PRP_COMMAND").arg(theCommandID ) );
-       break;
-      }
-    }
-  
-  return true ;
-}
-
-//=======================================================================
-// function : ConvertClickToPoint()
-// purpose  : Returns the point clicked in 3D view
-//=======================================================================
-gp_Pnt GeometryGUI::ConvertClickToPoint( Standard_Real x,
-                                        Standard_Real y,
-                                        Handle(V3d_View) aView )
-{
-  V3d_Coordinate XEye, YEye, ZEye, XAt, YAt, ZAt;
-  aView->Eye(XEye, YEye, ZEye);
-
-  aView->At(XAt, YAt, ZAt);
-  gp_Pnt EyePoint(XEye, YEye, ZEye);
-  gp_Pnt AtPoint(XAt, YAt, ZAt);
-
-  gp_Vec EyeVector(EyePoint, AtPoint);
-  gp_Dir EyeDir(EyeVector);
-
-  gp_Pln PlaneOfTheView = gp_Pln(AtPoint,EyeDir);
-  Standard_Real X, Y, Z;
-  aView->Convert(x, y, X, Y, Z);
-  gp_Pnt ConvertedPoint(X, Y, Z);
-
-  gp_Pnt2d ConvertedPointOnPlane = ProjLib::Project(PlaneOfTheView, ConvertedPoint);
-  gp_Pnt ResultPoint = ElSLib::Value(ConvertedPointOnPlane.X(),
-                                    ConvertedPointOnPlane.Y(),
-                                    PlaneOfTheView);
-  return ResultPoint;
-}
-
-
-
-
-//==================================================================================
-// function : 0nMousePress()
-// purpose  : [static] manage mouse events
-//==================================================================================
-bool GeometryGUI::OnMousePress(QMouseEvent* pe, QAD_Desktop* parent, QAD_StudyFrame* studyFrame)
-{
-  MESSAGE ( "GeometryGUI::OnMousePress")
-  GeometryGUI::GetOrCreateGeometryGUI(parent);
-
-  if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-    return false;
-
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  OCCViewer_ViewPort* vp = ((OCCViewer_ViewFrame*)studyFrame->getRightFrame()->getViewFrame())->getViewPort();
-  
-  /* Get the clicked or selected point */
-  gp_Pnt thePoint;
-
-  if ( GeomGUI->myState == CURRENT_SKETCH) {
-    GeomGUI->mySketcher.ValidateEdge();
-    if (GeomGUI->mySketcher.GetmyEdgesNumber() == 1 ) {
-      QMenuBar* Mb = GeomGUI->myDesktop->getMainMenuBar();
-      QMenuData* pp;
-      QMenuItem* item = Mb->findItem(313,&pp);
-      pp->setItemEnabled( 313, true);  // SKETCH CONTRAINTS
-    }
-  } else if( GeomGUI->myState == POINT_METHOD ) {
-
-    GeomGUI->EraseSimulationShape() ;
-    GeometryGUI_PointDlg *DialogPt = (GeometryGUI_PointDlg*)(GeomGUI->myActiveDialogBox) ;
-
-    if ( DialogPt->UseLocalContext() ) {
-      ic->InitSelected();
-      if ( pe->state() == Qt::ShiftButton )
-       v3d->getAISSelector()->shiftSelect();  /* Append selection */
-      else
-       v3d->getAISSelector()->select();       /* New selection    */
-      
-      if ( ic->MoreSelected() ) {
-       thePoint = BRep_Tool::Pnt( TopoDS::Vertex(ic->SelectedShape()) );
-      }
-      else
-       thePoint = ConvertClickToPoint(pe->x(), pe->y(), ( (OCCViewer_ViewPort3d*)vp)->getView() );
-    } 
-    else
-      thePoint = ConvertClickToPoint(pe->x(), pe->y(), ( (OCCViewer_ViewPort3d*)vp)->getView() );
-    
-    if( DialogPt != 0 ) { 
-      DialogPt->PointIntoCoordinates(thePoint, true) ;  /* display point */
-    }
-    else {
-      // MESSAGE ("On Mouse Press : myActiveDialogBox is null"  << endl) ;
-      GeomGUI->myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-    }
-  }
-
-  return false ;
-}
-
-
-//=======================================================================
-// function : OnMouseMove()
-// purpose  : [static] manage mouse events
-//=======================================================================
-bool GeometryGUI::OnMouseMove (QMouseEvent* pe, QAD_Desktop* parent, QAD_StudyFrame* studyFrame)
-{
-  GeometryGUI::GetOrCreateGeometryGUI(parent);
-
-  if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-    return false;
-
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  OCCViewer_ViewPort* vp = ((OCCViewer_ViewFrame*)studyFrame->getRightFrame()->getViewFrame())->getViewPort();
-
-  if ( GeomGUI->myState == CURRENT_SKETCH) 
-    GeomGUI->mySketcher.MakeCurrentEdge( pe->x(), pe->y(), ((OCCViewer_ViewPort3d*)vp)->getView() );
-  
-   return true;
-}
-
-
-//================================================================================
-// function : SetDisplayedObjectList()
-// purpose  :
-//================================================================================
-void GeometryGUI::SetDisplayedObjectList()
-{
-  if (myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-    return;
-
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  ListDisplayedObject.Clear();
-
-  Handle (AIS_InteractiveContext) aContext = v3d->getAISContext();
-  aContext->DisplayedObjects( ListDisplayedObject );
-}
-
-
-
-//=====================================================================================
-// function : OnDisplayAll()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::OnDisplayAll(bool onlyPreviousDisplayedObject)
-{
-  if (myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-    return;
-  
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) myContext = v3d->getAISContext();
-  
-  myContext->Display(v3d->getTrihedron());
-
-  if ( !onlyPreviousDisplayedObject ) {
-    AIS_ListOfInteractive List1;
-    myContext->ObjectsInCollector(List1);
-    AIS_ListIteratorOfListOfInteractive ite1(List1);
-    while (ite1.More()) {
-      if (ite1.Value()->IsInstance(STANDARD_TYPE(GEOM_AISShape))) {
-       Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(ite1.Value());
-       if ( aSh->hasIO() ) {
-         Handle(GEOM_InteractiveObject) GIO = Handle(GEOM_InteractiveObject)::DownCast(aSh->getIO());
-         if ( v3d->isInViewer(GIO, true) ) {
-           myContext->Display(aSh);
-         }
-       }
-      }
-      ite1.Next();
-    }
-  } else {
-    AIS_ListIteratorOfListOfInteractive ite(ListDisplayedObject);
-    while (ite.More()) {
-      if (ite.Value()->IsInstance(STANDARD_TYPE(GEOM_AISShape))) {
-       Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(ite.Value());
-       if ( aSh->hasIO() ) {
-         Handle(GEOM_InteractiveObject) GIO = Handle(GEOM_InteractiveObject)::DownCast(aSh->getIO());
-         if ( v3d->isInViewer(GIO,true) ) {
-           myContext->Display(aSh);
-         }
-       }
-      }
-      ite.Next();
-    }
-  }
-}
-
-
-
-
-//=====================================================================================
-// function : OnVTKDisplayOnly()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::OnVTKDisplayOnly()
-{
-
-  // Erase all not selected actors
-  
-  QApplication::setOverrideCursor( Qt::waitCursor );
-
-  vtkRenderer* aren = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-  vtkActorCollection* theActors = aren->GetActors();
-  theActors->InitTraversal();
-  vtkActor *ac = theActors->GetNextActor();
-  while(!(ac==NULL)) {
-    if ( ac->IsA("SALOME_Actor") ) {
-      SALOME_Actor* anActor = SALOME_Actor::SafeDownCast( ac );
-      if(!anActor->isHighlighted()) anActor->VisibilityOff();
-    }
-    ac = theActors->GetNextActor();
-  }
-
-  // Display selection
-  SALOMEDS::Study_var            aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::StudyBuilder_var     aStudyBuilder = aStudy->NewBuilder();
-  SALOMEDS::SObject_var          fatherSF = aStudy->FindObjectID(GeomGUI->myActiveStudy->getActiveStudyFrame()->entry());
-  SALOMEDS::GenericAttribute_var anAttr;
-  SALOMEDS::AttributeName_var    aName;
-  SALOMEDS::AttributeIOR_var     anIOR;
-
-  SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-  SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-         
-  for(;It.More();It.Next()) {
-    Handle(SALOME_InteractiveObject) IObject = It.Value();
-    SALOMEDS::SObject_var obj = aStudy->FindObjectID( IObject->getEntry() );
-
-    VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-
-    if(myRenderInter->isInViewer(IObject)) {
-      myRenderInter->Display(IObject);
-    }
-    else {
-      // Create new actor
-      if ( !obj->_is_nil() ) {
-       if ( !obj->FindAttribute(anAttr, "AttributeIOR")) 
-         break;
-       // If selected object contains displayable subobjects, then do nothing
-       SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-       SALOMEDS::GenericAttribute_var aTmpAttr;
-       
-       anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-       GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-       if (CORBA::is_nil(aShape)) continue;
-       TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-
-       if (obj->FindAttribute(anAttr, "AttributeName")) {
-          aName = SALOMEDS::AttributeName::_narrow(anAttr);
-         // open transaction
-         QAD_Operation* op = new SALOMEGUI_ImportOperation( GeomGUI->myActiveStudy );
-         op->start();
-                 
-         SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-         aStudyBuilder->Addreference(newObj1, obj);
-         // commit transaction
-         op->finish();
-                 
-         vtkRenderer* theRenderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-         int themode = myRenderInter->GetDisplayMode();
-         vtkActorCollection* theActors = 
-           GEOM_AssemblyBuilder::BuildActors(Shape,0,themode,Standard_True);
-         theActors->InitTraversal();
-         vtkActor* anActor = (vtkActor*)theActors->GetNextActor();
-         while(!(anActor==NULL)) {
-           GEOM_Actor* GActor = GEOM_Actor::SafeDownCast( anActor );
-           GActor->setIO( IObject );
-           GActor->setName( IObject->getName() );
-                   
-           theRenderer->AddActor(GActor);
-           vtkRenderWindow *renWin
-             = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer()->GetRenderWindow();
-           renWin->Render();
-           anActor = (vtkActor*)theActors->GetNextActor();
-         }
-       }
-      }
-    }
-  }
-  GeomGUI->myActiveStudy->updateObjBrowser( true );
-  QApplication::restoreOverrideCursor();
-}    
-
-
-
-//=====================================================================================
-// function : OnDisplayOnly()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::OnDisplayOnly()
-{
-  if (myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-    return;
-
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  SALOMEDS::Study_var aStudy = myActiveStudy->getStudyDocument();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-
-  AIS_ListOfInteractive List;
-  ic->DisplayedObjects(List);
-  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());
-      if (!ic->IsSelected( aSh )) {
-       ic->Erase( aSh, Standard_True, Standard_True );
-      }
-    }
-    ite.Next();
-  }
-
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-  SALOME_Selection* Sel = SALOME_Selection::Selection( myActiveStudy->getSelection() );
-
-  SALOME_ListIteratorOfListIO It1( Sel->StoredIObjects() );
-  for(;It1.More();It1.Next()) {
-    Handle(SALOME_InteractiveObject) IObject = It1.Value();
-
-    
-    SALOMEDS::SObject_var fatherSF = 
-      aStudy->FindObjectID(myActiveStudy->getActiveStudyFrame()->entry());
-    if ( v3d->isInViewer( IObject, true ) ) {
-      AIS_ListOfInteractive List1;
-      ic->ObjectsInCollector(List1);
-      AIS_ListIteratorOfListOfInteractive ite1(List1);
-      while (ite1.More()) {
-       if (ite1.Value()->IsInstance(STANDARD_TYPE(GEOM_AISShape))) {
-         Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(ite1.Value());
-         if ( aSh->hasIO() ) {
-           Handle(GEOM_InteractiveObject) GIO = Handle(GEOM_InteractiveObject)::DownCast(aSh->getIO());
-           if ( IObject->isSame( GIO ) ) {
-             ic->Display(aSh);
-             ic->AddOrRemoveCurrentObject(aSh, true);
-             break;
-           }
-         }
-       }
-       ite1.Next();
-      }
-    } else {
-      if ( IObject->hasEntry() ) {
-       SALOMEDS::SObject_var          obj = aStudy->FindObjectID( IObject->getEntry() );
-        SALOMEDS::GenericAttribute_var anAttr;
-        SALOMEDS::AttributeName_var    aName;
-        SALOMEDS::AttributeIOR_var     anIOR;
-       if ( !obj->_is_nil() ) {
-         if (obj->FindAttribute(anAttr, "AttributeIOR")) {
-           // this SObject may be GEOM module root SObject
-
-           anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-           GEOM::GEOM_Shape_var aShape = myComponentGeom->GetIORFromString( anIOR->Value() );
-           if (CORBA::is_nil(aShape)) continue;
-           TopoDS_Shape Shape = ShapeReader.GetShape(myComponentGeom, aShape);
-           
-           if (obj->FindAttribute(anAttr, "AttributeName")) {
-             aName = SALOMEDS::AttributeName::_narrow(anAttr);
-             // open transaction
-             QAD_Operation* op = new SALOMEGUI_ImportOperation( myActiveStudy );
-             op->start();
-             
-             SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-                 aStudyBuilder->Addreference(newObj1, obj);
-             // commit transaction
-             op->finish();
-           }
-           
-           Handle(GEOM_AISShape) aSh = new GEOM_AISShape(Shape, aName->Value());
-           Handle(GEOM_InteractiveObject) IO = new GEOM_InteractiveObject(anIOR->Value(), Fatherior,"GEOM");
-               
-           IO->setEntry(obj->GetID());
-           aSh->setIO( IO );
-           aSh->setName( aName->Value() );
-           ic->Display (aSh);
-           ic->AddOrRemoveCurrentObject(aSh, true);
-         }
-       }  
-      }
-    }
-  }
-}
-
-
-//===============================================================================
-// function : OnEditDelete()
-// purpose  :
-//===============================================================================
-void GeometryGUI::OnEditDelete()
-{
-  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 = myActiveStudy->getStudyFramesCount();
-    
-  Standard_Boolean found;
-  SALOMEDS::Study_var aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-  SALOMEDS::GenericAttribute_var anAttr;
-  SALOMEDS::AttributeIOR_var     anIOR;
-  
-  SALOME_Selection* Sel = SALOME_Selection::Selection( myActiveStudy->getSelection() );
-  SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-  for(;It.More();It.Next()) {
-    Handle(SALOME_InteractiveObject) IObject = It.Value();
-    if ( IObject->hasEntry() ) {
-      SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->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()) ;
-         ShapeReader.RemoveShapeFromBuffer( ASCior ) ;
-
-         for ( int i = 0; i < nbSf; i++ ) {
-           QAD_StudyFrame* sf = myActiveStudy->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 = GeomGUI->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 = GeomGUI->ConvertIORinGEOMActor( anIOR->Value(), found );
-             if ( found ) {
-               //Renderer->RemoveActor(ac);
-               if ( ac->hasIO() ) 
-                 myRenderInter->Remove( ac->getIO() );
-             }
-           }
-         }
-       }
-      }
-      
-      /* Erase main graphical object */
-      for ( int i = 0; i < nbSf; i++ ) {
-       QAD_StudyFrame* sf = myActiveStudy->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 = GeomGUI->ConvertIOinGEOMAISShape( IObject, found );
-         if ( found )
-           myContext->Erase( Result, true, false );
-       } else if ( sf->getTypeView() == VIEW_VTK ) {
-         VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)sf->getRightFrame()->getViewFrame())->getRWInteractor();
-         myRenderInter->Remove( IObject );
-       }
-      }
-      
-      /* Delete main shape in Client : */
-      if (SO->FindAttribute(anAttr, "AttributeIOR") ) {
-        anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-       const TCollection_AsciiString ASCIor(anIOR->Value()) ;
-       ShapeReader.RemoveShapeFromBuffer( ASCIor ) ;
-      }
-
-      /* Erase objects in Study */
-      SALOMEDS::SObject_var obj = aStudy->FindObjectID( IObject->getEntry() );
-      if ( !obj->_is_nil() ) {
-       QAD_Operation* op = new SALOMEGUI_ImportOperation( myActiveStudy );
-       op->start();
-       aStudyBuilder->RemoveObject(obj);
-       op->finish();
-      }
-
-    } /* IObject->hasEntry() */
-  }   /* more/next           */
-
-  /* Clear any previous selection */
-  Sel->ClearIObjects() ; 
-  myActiveStudy->updateObjBrowser();
-}
-
-
-//==============================================================================
-// function : OnEditCopy()
-// purpose  :
-//==============================================================================
-void GeometryGUI::OnEditCopy()
-{
-  SALOME_Selection* Sel = SALOME_Selection::Selection( myActiveStudy->getSelection() );
-  GEOM::GEOM_Gen::ListOfIOR_var listIOR = new GEOM::GEOM_Gen::ListOfIOR;
-
-  const SALOME_ListIO& List = Sel->StoredIObjects();
-
-  GeomGUI->ConvertListOfIOInListOfIOR( List, listIOR);
-
-  Sel->ClearIObjects();
-
-  for (unsigned int ind = 0; ind < listIOR->length();ind++) {
-    GEOM::GEOM_Shape_var aShapeInit = myComponentGeom->GetIORFromString(listIOR[ind]);
-    try {
-      GEOM::GEOM_Shape_var result = myComponentGeom->MakeCopy(aShapeInit) ;
-      result->NameType( aShapeInit->NameType() );
-      this->Display(result);
-    }
-    catch  (const SALOME::SALOME_Exception& S_ex) {
-      QtCatchCorbaException(S_ex);
-    }
-  }
-  
-  myDesktop->putInfo(tr("GEOM_PRP_READY"));
-}
-
-
-
-//=====================================================================================
-// function : OnKeyPress()
-// purpose  : [static]
-//=====================================================================================
-bool GeometryGUI::OnKeyPress (QKeyEvent* pe, QAD_Desktop* parent, QAD_StudyFrame* studyFrame)
-{
-  GeometryGUI::GetOrCreateGeometryGUI(parent);
-
-  if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC)
-    return false;
-
-  return true ;
-}
-
-
-
-//=====================================================================================
-// function : DisplaySimulationShape() 
-// purpose  : Displays 'this->mySimulationShape' a pure graphical shape from a TopoDS_Shape
-//=====================================================================================
-void GeometryGUI::DisplaySimulationShape(const TopoDS_Shape& S) 
-{
-  if( S.IsNull() )
-    return ;
-       
-  //NRI DEBUG : 14/02/2002
-  if ( myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC )
-    return ;
-       
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  
-  try {
-    /* erase any previous */
-    ic->Erase( this->mySimulationShape, Standard_True, Standard_False );
-    ic->ClearPrs( this->mySimulationShape );
-    this->mySimulationShape = new AIS_Shape( TopoDS_Shape() ) ;
-    this->mySimulationShape->Set( S ) ;
-    this->mySimulationShape->SetColor(Quantity_NOC_VIOLET) ;
-    ic->Deactivate( this->mySimulationShape );
-    ic->Display( this->mySimulationShape, Standard_False );
-    ic->UpdateCurrentViewer();
-  }
-  catch(Standard_Failure) {
-    MESSAGE( "Exception catched in GeometryGUI::DisplaySimulationShape " ) ;
-  } 
-  this->mySimulationShape->UnsetColor() ;
-  return ;
-}
-
-
-
-//==================================================================================
-// function : EraseSimulationShape()
-// purpose  : Clears the display of 'mySimulationShape' a pure graphical shape
-//==================================================================================
-void GeometryGUI::EraseSimulationShape()
-{
-  int count = myActiveStudy->getStudyFramesCount();
-  for ( int i = 0; i < count; i++ ) {
-    if (myActiveStudy->getStudyFrame(i)->getTypeView() == VIEW_OCC ) {
-      OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getStudyFrame(i)->getRightFrame()->getViewFrame())->getViewer();
-      Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-      ic->Erase( this->mySimulationShape, Standard_True, Standard_False );
-      ic->ClearPrs( this->mySimulationShape );
-      ic->UpdateCurrentViewer();
-      
-    } else if (myActiveStudy->getStudyFrame(i)->getTypeView() == VIEW_VTK ) { // VTK
-    }
-  }
-  // MESSAGE ( " GeometryGUI::EraseSimulationShape done. " )
-}
-
-
-
-//=====================================================================================
-// function : Import
-// purpose  : BRep, Iges, Step
-//=====================================================================================
-bool GeometryGUI::Import( )
-{
-  SALOMEDS::Study_var aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-  
-  GEOM::GEOM_Shape_var aShape;
-  QString file;
-  QStringList filtersList ;
-  
-  switch ( GeomGUI->myState )
-    {
-    case 111 : // Import BREP
-      {
-       filtersList.append( tr("GEOM_MEN_IMPORT_BREP") );
-       filtersList.append( tr("GEOM_MEN_ALL_FILES") ) ;
-
-       file = QAD_FileDlg::getFileName(myDesktop,
-                                       "",
-                                       filtersList,
-                                       tr("GEOM_MEN_IMPORT"),
-                                       true);
-       if ( !file.isEmpty() ) {
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         try {
-           aShape = myComponentGeom->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(myDesktop,
-                                       "",
-                                       filtersList,
-                                       tr("GEOM_MEN_IMPORT"),
-                                       true);
-       if ( !file.isEmpty() ) {
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         try {
-           aShape = myComponentGeom->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(myDesktop,
-                                       "",
-                                       filtersList,
-                                       tr("GEOM_MEN_IMPORT"),
-                                       true);
-       if ( !file.isEmpty() ) {
-         QApplication::setOverrideCursor( Qt::waitCursor );
-         try {
-           aShape = myComponentGeom->ImportSTEP( file.latin1() );
-         }
-         catch  (const SALOME::SALOME_Exception& S_ex) {
-           QtCatchCorbaException(S_ex);
-         }
-       }
-       break;
-      }
-    }
-  
-  if ( !file.isEmpty() ) {
-    myDesktop->putInfo( tr("GEOM_PRP_LOADING").arg(QAD_Tools::getFileNameFromPath( file )) );
-
-    SALOMEDS::SComponent_var father = aStudy->FindComponent("GEOM");
-    SALOMEDS::SObject_var fatherSF = aStudy->FindObjectID( myActiveStudy->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( myActiveStudy );
-      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" );
-      if (aLocked) aStudy->GetProperties()->SetLocked(true);
-      op->finish();
-    }
-//      if (aLocked) return false;
-    aStudyBuilder->DefineComponentInstance( father, myComponentGeom );
-    father->ComponentIOR( Fatherior );
-
-    QString nameShape = QAD_Tools::getFileNameFromPath(file,false) +  QString("_%1").arg(this->myNbGeom++);
-
-    if ( Display ( aShape, strdup(nameShape.latin1())) ) {
-      myActiveStudy->setMessage( tr("GEOM_INF_LOADED").arg(QAD_Tools::getFileNameFromPath( file )) );
-      myDesktop->putInfo( tr("GEOM_PRP_READY"));
-    }
-  }
-  QApplication::restoreOverrideCursor();
-  return true ;
-}
-
-
-//=====================================================================================
-// function : Export
-// purpose  : BRep, Iges, Step
-//=====================================================================================
-bool GeometryGUI::Export( )
-{
-  SALOMEDS::Study_var aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-
-  GEOM::GEOM_Shape_var aShape;
-
-  static QString filters[] = { tr("GEOM_MEN_IMPORT_BREP"),
-                              tr("GEOM_MEN_IMPORT_IGES"),
-                              tr("GEOM_MEN_IMPORT_STEP") };
-  
-  SALOME_Selection* Sel = SALOME_Selection::Selection( this->myActiveStudy->getSelection() );
-  SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-
-  switch ( GeomGUI->myState )
-    {
-    case 121 :
-      {
-       for(;It.More();It.Next()) {
-         QApplication::restoreOverrideCursor();
-         Handle(SALOME_InteractiveObject) IObject = It.Value();
-         Standard_Boolean found;
-         GEOM::GEOM_Shape_var aShape = GeomGUI->ConvertIOinGEOMShape(IObject, found);
-         //      Handle(GEOM_AISShape) Shape = ConvertIOinGEOMAISShape(IObject, found, true);
-         if ( found ) {
-           QString file = QAD_FileDlg::getFileName(myDesktop, 
-                                                   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 {
-               GeomGUI->myComponentGeom->ExportBREP(strdup( 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 = GeomGUI->ConvertIOinGEOMShape(IObject, found);
-         //      Handle(GEOM_AISShape) Shape = ConvertIOinGEOMAISShape(IObject, found, true);
-         if ( found ) {
-           QString file = QAD_FileDlg::getFileName(myDesktop, 
-                                                   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 {
-               GeomGUI->myComponentGeom->ExportIGES(strdup( 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;
-      }
-
-    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 = GeomGUI->ConvertIOinGEOMShape(IObject, found);
-         QApplication::restoreOverrideCursor();
-         Handle(SALOME_InteractiveObject) IObject = It.Value();
-         Standard_Boolean found;
-         GEOM::GEOM_Shape_var aShape = GeomGUI->ConvertIOinGEOMShape(IObject, found);
-         //      Handle(GEOM_AISShape) Shape = ConvertIOinGEOMAISShape(IObject, found, true);
-         if ( found ) {
-           file = QAD_FileDlg::getFileName(myDesktop, 
-                                           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 {   
-               GeomGUI->myComponentGeom->ExportSTEP(strdup( 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 ;
-//           }
-           }
-         }
-       }
-//     if(test) {
-//       status = aWriter.Write( strdup(file.latin1()) ) ;
-//       QApplication::restoreOverrideCursor() ;
-//       return status ;
-//     }
-       break;
-      }
-
-    }
-  QApplication::restoreOverrideCursor() ;
-}
-
-
-//=====================================================================================
-// function : Display()
-// purpose  : Displays a CORBA shape
-//=====================================================================================
-bool GeometryGUI::Display( GEOM::GEOM_Shape_ptr aShape, 
-                          Standard_CString name)
-{
-  // MESSAGE ( "GeometryGUI::Display init ") 
-  Handle(GEOM_InteractiveObject) IO;
-  SALOME_Selection* Sel = SALOME_Selection::Selection( myActiveStudy->getSelection() );
-  Sel->ClearIObjects();
-
-  if( aShape->_is_nil() ) {
-    QAD_MessageBox::warn1 ( QAD_Application::getDesktop(),
-                           tr ("GEOM_WRN_WARNING"),
-                           tr ("GEOM_PRP_ABORT"),
-                           tr ("GEOM_BUT_OK") );
-    return false ;
-  }
-  
-  TopoDS_Shape shape = ShapeReader.GetShape(myComponentGeom, aShape);
-
-  if ( shape.IsNull() )
-    return false;
-
-  SALOMEDS::Study_var            aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::StudyBuilder_var     aStudyBuilder = aStudy->NewBuilder();
-  SALOMEDS::GenericAttribute_var anAttr;
-  SALOMEDS::AttributeName_var    aName;
-  SALOMEDS::AttributePixMap_var    aPixmap;
-
-  SALOMEDS::SComponent_var father = aStudy->FindComponent("GEOM");
-  int aLocked = false;
-  if (father->_is_nil()) {
-    QAD_Operation* op = new SALOMEGUI_ImportOperation( myActiveStudy );
-    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" );
-    myActiveStudy->updateObjBrowser();
-    if (aLocked) aStudy->GetProperties()->SetLocked(true);
-    op->finish();
-  }
-//    if (aLocked) return false;
-
-  aStudyBuilder->DefineComponentInstance( father, myComponentGeom );
-  father->ComponentIOR( Fatherior );
-
-  TCollection_AsciiString nameG("");
-  Standard_CString Type;
-  if ( TCollection_AsciiString(name).IsEqual(Standard_CString("")) ) {
-    if ( TCollection_AsciiString(aShape->NameType()).IsEqual(Standard_CString("")) ) {
-      Standard_CString type;
-      GetShapeTypeString(shape,type);
-      aShape->NameType( type );
-      nameG += TCollection_AsciiString( type ) + TCollection_AsciiString("_") + 
-       TCollection_AsciiString( GeomGUI->myNbGeom++ ) + TCollection_AsciiString("\0");
-    } else
-      nameG += TCollection_AsciiString( aShape->NameType()) + TCollection_AsciiString("_") + 
-       TCollection_AsciiString( GeomGUI->myNbGeom++ ) + TCollection_AsciiString("\0");
-  } else 
-    nameG = TCollection_AsciiString(name);
-  
-  // VTK
-  if ( myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-    VTKViewer_RenderWindowInteractor* myRenderInter = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-    
-    vtkRenderer *theRenderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-    int themode = myRenderInter->GetDisplayMode();
-
-    vtkActorCollection* theActors = 
-      GEOM_AssemblyBuilder::BuildActors(shape,0,themode,Standard_True);
-    theActors->InitTraversal();
-    vtkActor* anActor = (vtkActor*)theActors->GetNextActor();
-
-    IO = new GEOM_InteractiveObject(aShape->Name(),
-                                   Fatherior,
-                                   "GEOM");
-    while(!(anActor==NULL)) {
-      GEOM_Actor* GActor = GEOM_Actor::SafeDownCast( anActor );
-      GActor->setIO( IO );
-      GActor->setName( nameG.ToCString() );
-      
-      theRenderer->AddActor(GActor);
-      anActor = (vtkActor*)theActors->GetNextActor();
-    }
-  } 
-  // OCC
-  else if ( myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-    OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-    Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-    Handle(GEOM_AISShape) theResult = new GEOM_AISShape( shape, nameG.ToCString() );
-    theResult->SetShadingColor( myShadingColor );
-    IO = new GEOM_InteractiveObject(aShape->Name(),
-                                   Fatherior,
-                                   "GEOM");
-    theResult->setIO( IO );
-    theResult->setName( nameG.ToCString() );
-    
-    /* Precaution : close any local context to permit the display */
-    if ( ic->HasOpenedContext() ) {
-      ic->CloseAllContexts();
-    }
-    
-//     if(isInfinite)
-//       theResult->SetInfiniteState() ;
-    
-    ic->Display(theResult);
-  }
-
-  Sel->AddIObject( IO, false );
-  myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame()->Repaint();
-  if ( Settings_AddInStudy )
-    GeomGUI->AddInStudy( false, IO );
-  
-  return true;
-}
-
-
-//=====================================================================================
-// function : AddInStudy() 
-// purpose  : anIOShape or a selected shape
-//=====================================================================================
-bool GeometryGUI::AddInStudy( bool selection,
-                             const Handle(SALOME_InteractiveObject)& anIO)
-{
-  SALOME_Selection* Sel = SALOME_Selection::Selection( myActiveStudy->getSelection() );
-  if ( !( !Settings_AddInStudy || selection ) ) {
-    Sel->ClearIObjects();
-  }
-
-  SALOMEDS::Study_var               aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::StudyBuilder_var        aStudyBuilder = aStudy->NewBuilder();
-  SALOMEDS::GenericAttribute_var    anAttr;
-  SALOMEDS::AttributeName_var       aName;
-  SALOMEDS::AttributePixMap_var     aPixmap;
-  SALOMEDS::AttributeIOR_var        anIOR;
-  SALOMEDS::AttributeSelectable_var aSelAttr;
-  
-  SALOMEDS::SComponent_var father = aStudy->FindComponent("GEOM");
-  int aLocked = false;
-  if (father->_is_nil()) {
-    QAD_Operation* op = new SALOMEGUI_ImportOperation( myActiveStudy );
-    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" );
-    if (aLocked) aStudy->GetProperties()->SetLocked(true);
-    op->finish();
-  }
-//    if (aLocked) return false;
-
-  aStudyBuilder->DefineComponentInstance( father, myComponentGeom );
-  father->ComponentIOR( Fatherior );
-  
-  SALOMEDS::SObject_var fatherSF = aStudy->FindObjectID(myActiveStudy->getActiveStudyFrame()->entry());
-  
-  Handle(GEOM_AISShape) GAISShape;
-  GEOM_Actor* GActor;
-  Handle(GEOM_InteractiveObject) GIO;
-  bool found = false;
-
-  // VTK
-  if ( myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-    vtkRenderer *Renderer = ((VTKViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-
-    vtkActorCollection* theActors = Renderer->GetActors();
-    theActors->InitTraversal();
-    vtkActor *ac = theActors->GetNextActor();
-    while(!(ac==NULL)) {
-      if ( ac->IsA("GEOM_Actor") ) {
-       GEOM_Actor* anActor = GEOM_Actor::SafeDownCast( ac );
-       if ( anActor->hasIO() ) {
-         Handle(SALOME_InteractiveObject) IO = anActor->getIO();
-         if ( IO->IsKind(STANDARD_TYPE(GEOM_InteractiveObject)) ) {
-           GIO = Handle(GEOM_InteractiveObject)::DownCast( IO );
-           if ( anIO->isSame( GIO ) ) {
-             found = true;
-             GActor = anActor;
-             break;
-           }
-         }
-       }
-      }
-      ac = theActors->GetNextActor();
-    }
-    
-    if ( !found )
-      return false;
-  }
-  // OCC
-  else if ( myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC )  {
-    OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-    Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-    
-    AIS_ListOfInteractive List;
-    ic->DisplayedObjects(List);
-    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());
-       if ( aSh->hasIO() ) {
-         Handle(SALOME_InteractiveObject) IO = aSh->getIO();
-         if ( IO->IsKind(STANDARD_TYPE(GEOM_InteractiveObject)) ) {
-           GIO = Handle(GEOM_InteractiveObject)::DownCast( IO );
-           if ( anIO->isSame( GIO ) ) {
-             found = true;
-             GAISShape = aSh;
-             break;
-           }
-         }
-       }
-      }
-      ite.Next();
-    }
-
-    if ( !found )
-      return false;
-  }
-
-  if ( !Settings_AddInStudy || selection ) {
-    QString Name = SALOMEGUI_NameDlg::getName( QAD_Application::getDesktop(), anIO->getName() );
-    if ( !Name.isEmpty() ) {
-      // VTK
-      if ( myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-       GActor->setName( strdup(Name.latin1()) );
-      }
-      // OCC
-      else if ( myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-       GAISShape->setName( strdup(Name.latin1()) );
-      }
-    } else {
-      return false;
-    }
-  }
-
-  // open transaction
-  QAD_Operation* op = new SALOMEGUI_ImportOperation( myActiveStudy );
-  op->start();
-
-  SALOMEDS::SObject_var newObj = aStudyBuilder->NewObject(father);
-
-  GEOM::GEOM_Shape_var aShape = myComponentGeom->GetIORFromString( GIO->getIOR() );
-
-  /* For the shape inserted into the study we set its field 'studyshapeid'    */
-  /* so the shape will contain its corresponding entry in the study Ocaf doc. */
-  aShape->StudyShapeId(newObj->GetID()) ;
-
-  GIO->setEntry(newObj->GetID());
-
-  anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributeIOR");
-  anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-  anIOR->SetValue(aShape->Name());
-
-  anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributeName");
-  aName = SALOMEDS::AttributeName::_narrow(anAttr);
-
-  anAttr = aStudyBuilder->FindOrCreateAttribute(newObj, "AttributePixMap");
-  aPixmap = SALOMEDS::AttributePixMap::_narrow(anAttr);
-  if ( aShape->ShapeType() == GEOM::COMPOUND ) {
-    aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPOUND" );
-  } else if ( aShape->ShapeType() == GEOM::COMPSOLID ) {
-    aPixmap->SetPixMap( "ICON_OBJBROWSER_COMPSOLID" );
-  } else if ( aShape->ShapeType() == GEOM::SOLID ) {
-    aPixmap->SetPixMap( "ICON_OBJBROWSER_SOLID" );
-  } else if ( aShape->ShapeType() == GEOM::SHELL ) {
-    aPixmap->SetPixMap( "ICON_OBJBROWSER_SHELL" );
-  } else if ( aShape->ShapeType() == GEOM::FACE ) {
-    aPixmap->SetPixMap( "ICON_OBJBROWSER_FACE" );
-  } else if ( aShape->ShapeType() == GEOM::WIRE ) {
-    aPixmap->SetPixMap( "ICON_OBJBROWSER_WIRE" );
-  } else if ( aShape->ShapeType() == GEOM::EDGE ) {
-    aPixmap->SetPixMap( "ICON_OBJBROWSER_EDGE" );
-  } else if ( aShape->ShapeType() == GEOM::VERTEX ) {
-    aPixmap->SetPixMap( "ICON_OBJBROWSER_VERTEX" );
-  }
-
-  // VTK
-  if ( myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-    GActor->setIO( GIO );
-    aName->SetValue(GActor->getName());
-  }
-  // OCC
-  else if ( myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-    GAISShape->setIO( GIO );
-    aName->SetValue(GAISShape->getName());
-  }
-
-  SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-  aStudyBuilder->Addreference(newObj1,newObj);
-
-  GEOM::GEOM_Gen::ListOfIOR_var listIOR = new GEOM::GEOM_Gen::ListOfIOR;
-  listIOR = myComponentGeom->GetReferencedObjects(aShape);
-
-  if (listIOR->length()>0) {
-    SALOMEDS::SObject_var Arguments = aStudyBuilder->NewObject(newObj);
-    anAttr = aStudyBuilder->FindOrCreateAttribute(Arguments, "AttributeName");
-    aName = SALOMEDS::AttributeName::_narrow(anAttr);
-    aName->SetValue(tr("GEOM_ARGUMENTS"));
-    anAttr = aStudyBuilder->FindOrCreateAttribute(Arguments, "AttributeSelectable");
-    aSelAttr = SALOMEDS::AttributeSelectable::_narrow(anAttr);
-    aSelAttr->SetSelectable(false);
-
-    bool ObjectReferenced = false;
-    for (unsigned int ind = 0; ind < listIOR->length();ind++) {
-      SALOMEDS::SObject_var theObj = aStudy->FindObjectIOR(listIOR[ind]);
-
-      if ( !theObj->_is_nil() ) {
-       SALOMEDS::SObject_var RefObject = aStudyBuilder->NewObject(Arguments);
-       aStudyBuilder->Addreference(RefObject, theObj);
-       ObjectReferenced = true;
-      }
-    }
-
-    if ( !ObjectReferenced )
-      aStudyBuilder->RemoveObject(Arguments);
-  }
-
-  op->finish();
-
-
-  if ( !Settings_AddInStudy || selection ) {
-    myActiveStudy->updateObjBrowser();
-  } else {
-    myActiveStudy->updateObjBrowser(false);
-    Sel->AddIObject( GIO );
-  }
-
-  // MESSAGE ( " highlihght done" )
-  return true;
-}
-
-
-//=====================================================================================
-// function : GetShapeFromIOR()
-// purpose  : exist also as static method !
-//=====================================================================================
-TopoDS_Shape GeometryGUI::GetShapeFromIOR( QString IOR )
-{
-  TopoDS_Shape result;
-  if( IOR.stripWhiteSpace().isEmpty() )
-    return result;
-  ORB_INIT &init = *SINGLETON_<ORB_INIT>::Instance() ;
-  CORBA::ORB_var& _orb = init.orb() ;
-  CORBA::Object_var obj = _orb->string_to_object( (char*)(IOR.latin1()) );
-  if ( CORBA::is_nil( obj ) )
-    return result;
-  GEOM::GEOM_Shape_var aShape = myComponentGeom->GetIORFromString( IOR );
-  if (!aShape->_is_nil()) {
-    result = ShapeReader.GetShape( myComponentGeom, aShape );
-  }
-  return result;
-}
-
-
-//=====================================================================================
-// function : SetSettings()
-// purpose  : [static]
-//=====================================================================================
-bool GeometryGUI::SetSettings( QAD_Desktop* parent )
-{
-  /* Create or retrieve an object GeomGUI */
-  GeometryGUI::GetOrCreateGeometryGUI(parent);
-
-  //DCQ  parent->menuBar()->setItemEnabled( 504, false);  // CORRECTING
-  //DCQ  parent->menuBar()->setItemEnabled( 6062, false); // RADIUS
-  //VSR  parent->menuBar()->setItemEnabled( 701, false);  // AUTOMATIC COPY
-  parent->menuBar()->setItemEnabled( 313, false);  // SKETCH CONTRAINTS
-  parent->menuBar()->setItemEnabled( 3131, false); // SKETCH SET PLAN
-
-  /* Shading Color */
-  QString SCr = QAD_CONFIG->getSetting("Geometry:SettingsShadingColorRed");
-  QString SCg = QAD_CONFIG->getSetting("Geometry:SettingsShadingColorGreen");
-  QString SCb = QAD_CONFIG->getSetting("Geometry:SettingsShadingColorBlue");
-  if( !SCr.isEmpty() && !SCg.isEmpty() && !SCb.isEmpty() )   
-    GeomGUI->myShadingColor = Quantity_Color ( SCr.toInt()/255., SCg.toInt()/255., SCb.toInt()/255.,
-                                              Quantity_TOC_RGB );
-
-  /* Wireframe or Shading */
-  int DisplayMode = 0;
-  if ( parent->getActiveStudy()->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-    OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)parent->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-    Handle(AIS_InteractiveContext) ic = v3d->getAISContext();
-    DisplayMode = ic->DisplayMode();
-  } else if ( parent->getActiveStudy()->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-    VTKViewer_RenderWindowInteractor* myRenderInter = ((VTKViewer_ViewFrame*)parent->getActiveStudy()->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-    DisplayMode = myRenderInter->GetDisplayMode();
-  }
-
-  if ( DisplayMode == 1 )
-    parent->menuBar()->changeItem(6021, tr("GEOM_MEN_WIREFRAME") );
-  else
-    parent->menuBar()->changeItem(6021, tr("GEOM_MEN_SHADING") );
-
-  /* Copy */
-//    QString Copy = QAD_CONFIG->getSetting("Geometry:SettingsCopy");
-//    if ( !Copy.isEmpty() ) {
-//      Settings_Copy = Copy.toInt();
-//      QMenuData* pp;
-//      parent->menuBar()->findItem(701,&pp);
-//      pp->setItemChecked(701, Settings_Copy);
-//    }
- QMenuData* pp;
- if ( parent->menuBar()->findItem(701,&pp) )
-   pp->removeItem(701);
-
-  /* Add in Study */
-  QString AddInStudy = QAD_CONFIG->getSetting("Geometry:SettingsAddInStudy");
-  if ( !AddInStudy.isEmpty() )
-    Settings_AddInStudy         = AddInStudy.toInt();
-  else
-    Settings_AddInStudy = 1;
-  parent->menuBar()->findItem(702,&pp);
-  pp->setItemChecked(702, Settings_AddInStudy);
-
-  /* step value */
-  QString S = QAD_CONFIG->getSetting( "Geometry:SettingsGeomStep" );
-  if( S.isEmpty() )
-    QAD_CONFIG->addSetting( "Geometry:SettingsGeomStep", "100" );
-  
-  /* isos */
-  QAD_Study* ActiveStudy = parent->getActiveStudy();
-  int count = ActiveStudy->getStudyFramesCount();
-
-  bool ViewOCC = false;
-  for ( int i = 0; i < count; i++ ) {
-    if ( ActiveStudy->getStudyFrame(i)->getTypeView() == VIEW_OCC ) {
-      OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)ActiveStudy->getStudyFrame(i)->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());
-      if ( !IsoV.isEmpty() )
-       ic->DefaultDrawer()->VIsoAspect()->SetNumber(IsoV.toInt());
-
-      ViewOCC = true;
-    }
-  }
-
-  QMenuBar* Mb = GeomGUI->myDesktop->getMainMenuBar();
-
-  Mb->setItemEnabled( 312, ViewOCC); //Sketch
-  Mb->setItemEnabled( 309, ViewOCC); //SuppressFace
-  Mb->setItemEnabled( 314, ViewOCC); //SuppressHole
-  
-  Mb->setItemEnabled( 703, ViewOCC);// ShadingColor Settings
-  Mb->setItemEnabled( 704, ViewOCC);// Isos Settings
-
-  return true;
-}
-
-
-//=====================================================================================
-// function : DefinePopup()
-// purpose  : [static]
-//=====================================================================================
-void GeometryGUI::DefinePopup( QString & theContext, QString & theParent, QString & theObject )
-{
-  /* Create or retrieve an object GeomGUI */
-  GeometryGUI::GetOrCreateGeometryGUI(QAD_Application::getDesktop());
-  SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-
-  theObject = "";
-  if ( Sel->IObjectCount() == 1 ) 
-    {
-      Handle(SALOME_InteractiveObject) IO = Sel->firstIObject();
-      if (IO->hasEntry())
-       {
-         SALOMEDS::SObject_var sobj = GeomGUI->myActiveStudy->getStudyDocument()->FindObjectID(IO->getEntry());
-         if (!sobj->_is_nil()) 
-           {
-             SALOMEDS::SComponent_var scomp = sobj->GetFatherComponent();
-             if (strcmp(scomp->GetID(), IO->getEntry()) == 0) 
-               { 
-                 // component is selected
-                 theObject = "Component";
-               }
-           }
-       }
-    }
-
-  if ( ( theParent.compare("Viewer")==0 ) ) 
-    {
-      if ( GeomGUI->myState == CURRENT_SKETCH ) 
-       theContext = "Sketch";
-      else 
-       {
-         if ( Sel->IObjectCount() > 0 )
-           theContext = "";
-         else
-           theContext = "NothingSelected";
-       }
-    } 
-  else 
-    theContext = "";
-  
-}
+/*!
+  \brief Returns the object from IOR.
 
-//=====================================================================================
-// function : CustomPopup()
-// purpose  : [static]
-//=====================================================================================
-bool GeometryGUI::CustomPopup( QAD_Desktop* parent,
-                              QPopupMenu* popup,
-                              const QString& theContext,
-                              const QString& theParent,
-                              const QString& theObject )
-{
-  /* Create or retrieve an object GeomGUI */
-  GeometryGUI::GetOrCreateGeometryGUI(parent);
-  
-  /* Deactivate any non modal dialog box to get the neutral point */
-  GeomGUI->EmitSignalDeactivateDialog() ;
-  
-  SALOME_Selection* Sel = SALOME_Selection::Selection( GeomGUI->myActiveStudy->getSelection() );
-  int nbSel = Sel->IObjectCount();
-  
-  if ( (nbSel == 0) && ( theContext.compare("Sketch")!=0 ) )
-    return false;
-  
-    
-  if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC)
-    {
-      OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->
-                                getRightFrame()->getViewFrame())->getViewer();
-      Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-      if ( theParent.compare("Viewer")==0 )
-       {
-         if ( theContext.compare("Sketch")==0 )
-           {
-             SketchStatus myCS = GeomGUI->mySketcher.GetCurrentStatus();
-             popup->setCheckable(TRUE);
-             if (myCS==SEGMENT) 
-               {
-                 popup->setItemChecked(10000,true);
-                 popup->setItemChecked(10001,false);
-               }
-             else if (myCS==ARC_CHORD)
-               {
-                 popup->setItemChecked(10000,false);
-                 popup->setItemChecked(10001,true);
-               }
-             
-             return true;
-           }
-         else
-           if (theObject.compare("Component") == 0)
-             {
-               popup->removeItem(QAD_DisplayOnly_Popup_ID);
-               return true;
-             }
-           else
-             {
-               QFont f = QApplication::font();
-               f.setBold( TRUE );
-               if (nbSel==1)
-                 {
-                   Handle(SALOME_InteractiveObject) IObject = Sel->firstIObject();
-                   popup->removeItem(QAD_TopLabel_Popup_ID);
-                   popup->insertItem( new CustomItem ( QString(IObject->getName()), f ), QAD_TopLabel_Popup_ID, 0 );
-                   if ( IObject->hasEntry() )
-                     popup->setItemEnabled( 801, false );
-                   else
-                     popup->setItemEnabled( 801, true );
-                   
-                   if (IObject->IsKind(STANDARD_TYPE(GEOM_InteractiveObject)))
-                     {
-                       Standard_Boolean found;
-                       Handle(GEOM_AISShape) Result = GeomGUI->ConvertIOinGEOMAISShape(IObject, found, true);
-
-                       if ( found )
-                         {
-                           if ( Result->DisplayMode() == 1 )
-                             popup->changeItem(8021, tr("GEOM_MEN_WIREFRAME") );
-                           else
-                             popup->changeItem(8021, tr("GEOM_MEN_SHADING") );
-                         }
-                     }
-
-                   if ( !(v3d->isInViewer( IObject ) && v3d->isVisible( IObject )) )
-                     popup->removeItem(QAD_Erase_Popup_ID);
-                   else
-                     popup->removeItem(QAD_Display_Popup_ID);
-                   
-                 }
-               else
-                 {
-                   popup->removeItem(QAD_DisplayOnly_Popup_ID);
-                   popup->removeItem(QAD_TopLabel_Popup_ID);
-                   popup->insertItem( new CustomItem ( tr("GEOM_MEN_POPUP_NAME").arg(nbSel), f ),
-                                     QAD_TopLabel_Popup_ID, 0 );
-                   popup->setItemEnabled( 801, false );
-                 }
-             }
-         return true;
-       }
-      else
-       if ( theParent.compare("ObjectBrowser")==0 )
-         {
-           popup->removeItem(QAD_TopLabel_Popup_ID);
-           int id = popup->idAt(0); // separator
-           if (id < 0) popup->removeItem(id);
-           
-           // checking for GEOM label in the selected list
-           SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-           Handle(SALOME_InteractiveObject) anIObject;
-
-           bool useSubItems = false;
-           bool needOpen = false;
-           bool needDisplay = false;
-           bool needErase = false;
-           SALOMEDS::GenericAttribute_var aTmpAttr;
-           for(;It.More();It.Next())
-             {
-               anIObject = It.Value();
-               if (!anIObject->hasEntry())
-                   continue;
-               
-               if (v3d->isInViewer(anIObject) && v3d->isVisible(anIObject)) 
-                 needErase = true; 
-               else 
-                 needDisplay = true;
-               SALOMEDS::SObject_var obj =
-                 GeomGUI->myActiveStudy->getStudyDocument()->FindObjectID( anIObject->getEntry() );
-               if (!obj->_is_nil())
-                 {
-                   GEOM::GEOM_Shape_var aShape;
-                   if (obj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-                     char *str = SALOMEDS::AttributeIOR::_narrow(aTmpAttr)->Value();
-                     if (str && strlen(str))
-                       aShape = GeomGUI->myComponentGeom-> GetIORFromString(str);
-                   }
-                   else
-                     if (obj->FindAttribute(aTmpAttr, "AttributePersistentRef"))
-                       needOpen = true;
-                   if (aShape->_is_nil())
-                     {
-                       SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->
-                         getStudyDocument()->NewChildIterator(obj);
-                       while (anIter->More())
-                         {
-                           SALOMEDS::SObject_var subobj = anIter->Value();
-                           if (subobj->FindAttribute(aTmpAttr, "AttributeIOR"))
-                             {
-                               useSubItems = true;
-                               needErase = true;
-                               needDisplay = true;
-                             }
-                           else
-                             if (subobj->FindAttribute(aTmpAttr, "AttributePersistentRef"))
-                               {
-                                 needOpen = true;
-                                 useSubItems = true;
-                               }
-                           anIter->Next();
-                         }
-                     }
-                 }
-             }
-           // remove useless popup items
-           if (nbSel != 1) popup->removeItem(901); // rename
-           if (useSubItems) popup->removeItem(QAD_DisplayOnly_Popup_ID); // display only
-           if (!needOpen)
-             {
-               int index = popup->indexOf(9024);
-               popup->removeItem(9024); // open
-               popup->removeItemAt(index); // separator under Open
-
-               if (!needDisplay) popup->removeItem(QAD_Display_Popup_ID);
-               if (!needErase) popup->removeItem(QAD_Erase_Popup_ID);
-               if (!needDisplay && !needErase)
-                 {
-                   int id = popup->idAt(popup->count()-1); // last item
-                   popup->removeItem(id); // separator
-                 }
-             }
-           else
-             {
-               popup->removeItem(QAD_DisplayOnly_Popup_ID); // display only
-               popup->removeItem(QAD_Display_Popup_ID);
-               popup->removeItem(QAD_Erase_Popup_ID);
-               if (nbSel!=1)
-                 {
-                   int id = popup->idAt(popup->count()-1); // last item
-                   popup->removeItem(id); // separator
-                 }
-             }
-           return true;
-         }
-      // MESSAGE ( " CUSTOM POPUP VIEWER OCC done. ")
-    }
-  else
-    if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK)
-      {
-       // MESSAGE ( " CUSTOM POPUP VIEWER VTK ")
-       if ( ( theParent.compare("Viewer")==0 ) )
-         {
-           
-           popup->setItemEnabled( 8033, false );
-           if (theObject.compare("Component") == 0)
-             {
-               popup->removeItem(QAD_DisplayOnly_Popup_ID);
-               return true;
-             } 
-
-         //int id = popup->idAt(0);
-         QFont f = QApplication::font();
-         f.setBold( TRUE );
-         
-         if (nbSel==1)
-           {
-             Handle(SALOME_InteractiveObject) IObject = Sel->firstIObject();
-             popup->removeItem(QAD_TopLabel_Popup_ID);
-             popup->insertItem( new CustomItem ( QString(IObject->getName()), f ), QAD_TopLabel_Popup_ID, 0 );
-             if ( IObject->hasEntry() )
-               {
-                 popup->setItemEnabled( 801, false );
-                 SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->getStudyDocument();
-                 SALOMEDS::SObject_var SO = aStudy->FindObjectID( IObject->getEntry() );
-                 SALOMEDS::GenericAttribute_var anAttr;
-                 SALOMEDS::AttributeIOR_var     anIOR;
-                 if ( !SO->_is_nil() )
-                   {
-                     if (SO->FindAttribute(anAttr, "AttributeIOR") )
-                       {
-                         anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-                         Standard_Boolean found;
-                         GEOM_Actor* Result = GeomGUI->ConvertIORinGEOMActor(anIOR->Value(), found, true);
-                         if ( found )
-                           {
-                             if ( Result->getDisplayMode() == 1 )
-                               popup->changeItem(8021, "Wireframe" );
-                             else
-                               popup->changeItem(8021, "Shading" );
-                             
-                             if ( !Result->GetVisibility() )
-                               popup->removeItem(QAD_Erase_Popup_ID);
-                             else
-                               popup->removeItem(QAD_Display_Popup_ID);                  
-                           }
-                         else
-                           popup->removeItem(QAD_Erase_Popup_ID);
-                       }
-                   }
-               }
-             else
-               popup->setItemEnabled( 801, true );
-           }
-         else
-           {
-             popup->removeItem(QAD_DisplayOnly_Popup_ID);
-             popup->removeItem(QAD_TopLabel_Popup_ID);
-             popup->insertItem( new CustomItem ( tr("GEOM_MEN_POPUP_NAME").arg(nbSel), f ), QAD_TopLabel_Popup_ID, 0 );
-             popup->setItemEnabled( 801, false );
-           }
-         return true;
-       }
-       else
-         if ( theParent.compare("ObjectBrowser")==0 )
-           {
-             popup->removeItem(QAD_TopLabel_Popup_ID);
-             int id = popup->idAt(0); // separator
-             if (id < 0) popup->removeItem(id);
-      
-             // checking for GEOM label in the selected list
-             SALOME_ListIteratorOfListIO It( Sel->StoredIObjects() );
-             Handle(SALOME_InteractiveObject) anIObject;
-             
-             bool useSubItems = false;
-             bool needOpen = false;
-             bool needDisplay = false;
-             bool needErase = false;
-             SALOMEDS::GenericAttribute_var aTmpAttr;
-             VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->
-                                              getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-             for(;It.More();It.Next())
-               {
-                 anIObject = It.Value();
-                 if ( !anIObject->hasEntry() )
-                   continue;
-                 
-                 if (myRenderInter->isInViewer(anIObject) && myRenderInter->isVisible(anIObject)) 
-                   needErase = true; 
-                 else 
-                   needDisplay = true;
-
-                 SALOMEDS::SObject_var obj = GeomGUI->myActiveStudy->getStudyDocument()
-                   ->FindObjectID( anIObject->getEntry() );
-                 if (!obj->_is_nil()) {
-                   GEOM::GEOM_Shape_var aShape;
-                   if (obj->FindAttribute(aTmpAttr, "AttributeIOR")){
-                     char *str = SALOMEDS::AttributeIOR::_narrow(aTmpAttr)->Value();
-                     if (str && strlen(str))
-                       aShape = GeomGUI->myComponentGeom->GetIORFromString(str);
-                   }
-                   else
-                     if (obj->FindAttribute(aTmpAttr, "AttributePersistentRef"))
-                       needOpen = true;
-                   if (aShape->_is_nil())
-                     {
-                       SALOMEDS::ChildIterator_var anIter =
-                         GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-                       while (anIter->More())
-                         {
-                           SALOMEDS::SObject_var subobj = anIter->Value();
-                           if (subobj->FindAttribute(aTmpAttr, "AttributeIOR"))
-                             {
-                               useSubItems = true;
-                               needDisplay = true;
-                               needErase = true;
-                             }
-                           else
-                             if (subobj->FindAttribute(aTmpAttr, "AttributePersistentRef"))
-                               {
-                                 needOpen = true;
-                                 useSubItems = true;
-                               }
-                           anIter->Next();
-                         }
-                     }
-                 }
-               }
-             // remove useless popup items
-             if (nbSel != 1) popup->removeItem(901); // rename
-             if (useSubItems) popup->removeItem(QAD_DisplayOnly_Popup_ID); // display only
-             if (!needOpen)
-               {
-                 int index = popup->indexOf(9024);
-                 popup->removeItem(9024); // open
-                 popup->removeItemAt(index); // separator under Open
-                 
-                 if (!needDisplay) popup->removeItem(QAD_Display_Popup_ID);
-                 if (!needErase) popup->removeItem(QAD_Erase_Popup_ID);
-                 if (!needDisplay && !needErase)
-                   {
-                     int id = popup->idAt(popup->count()-1); // last item
-                     popup->removeItem(id); // separator
-                   }
-               }
-             else
-               {
-                 popup->removeItem(QAD_DisplayOnly_Popup_ID); // display only
-                 popup->removeItem(QAD_Display_Popup_ID);
-                 popup->removeItem(QAD_Erase_Popup_ID);
-                 if (nbSel!=1)
-                   {
-                     int id = popup->idAt(popup->count()-1); // last item
-                     popup->removeItem(id); // separator
-                   }
-               }
-             return true;
-             // MESSAGE ( " CUSTOM POPUP VIEWER VTK done.")
-           }
-      } else
-       { // other viewer types not supported.
-         while (1)
-           {
-             int id = popup->idAt(0);
-             if (id <= QAD_TopLabel_Popup_ID && id != -1)
-               popup->removeItemAt(0);
-             else
-               break;
-           }
-         popup->removeItem(QAD_DisplayOnly_Popup_ID);  
-         popup->removeItem(QAD_Display_Popup_ID);
-         popup->removeItem(QAD_Erase_Popup_ID);
-         int id = popup->idAt(popup->count()-1); // last item
-         if (id < 0 && id != -1) popup->removeItem(id); // separator
-         return false;
-       }
-  return false;
-}
+  This is a static method. It returns the object from its IOR.
 
-void GeometryGUI::BuildPresentation(const Handle(SALOME_InteractiveObject)& theIO)
+  \param IOR object IOR
+  \return GEOM object.
+*/
+GEOM::GEOM_Object_ptr GeometryGUI::GetObjectFromIOR( const QString& IOR )
 {
-  /* Create or retrieve an object GeomGUI */
-  GeometryGUI::GetOrCreateGeometryGUI(QAD_Application::getDesktop());
-  
-  SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->getStudyDocument();
-  SALOMEDS::StudyBuilder_var aStudyBuilder = aStudy->NewBuilder();
-  
-  OCCViewer_Viewer3d* v3d;
-  Handle(AIS_InteractiveContext) ic;
-  vtkRenderer* Renderer;
-
-  if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-    v3d = ((OCCViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-    ic = v3d->getAISContext();
-  } else if ( GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-    Renderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-  } else
-    return;
-
-  if (theIO.IsNull())
-    MESSAGE("BuildPresentation(): null SALOME_InteractiveObject passed")
-
-  if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_VTK ) {
-    // VTK
-         
-    SALOMEDS::SObject_var fatherSF = 
-      aStudy->FindObjectID(GeomGUI->myActiveStudy->getActiveStudyFrame()->entry());
-           
-    SALOMEDS::SObject_var obj = aStudy->FindObjectID( theIO->getEntry() );
-
-    VTKViewer_RenderWindowInteractor* myRenderInter= ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRWInteractor();
-
-    SALOMEDS::GenericAttribute_var anAttr;
-    SALOMEDS::AttributeName_var    aName;
-    SALOMEDS::AttributeIOR_var     anIOR;
-        
-    if(myRenderInter->isInViewer(theIO)) {
-      myRenderInter->Display(theIO, false);
-    }
-    else {
-      // Create new actor
-      if ( !obj->_is_nil() ) {
-       if ( obj->FindAttribute(anAttr, "AttributeIOR")) {
-         // this SObject may be GEOM module root SObject
-
-         bool useSubItems = false;
-         SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-         if (GeomGUI->myComponentGeom->GetIORFromString(SALOMEDS::AttributeIOR::_narrow(anAttr)->Value())->_is_nil()) {
-           while (anIter->More() && !useSubItems) {
-             SALOMEDS::SObject_var subobj = anIter->Value();
-             SALOMEDS::GenericAttribute_var aTmpAttr;
-             if (subobj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-               if (!GeomGUI->myComponentGeom->GetIORFromString(SALOMEDS::AttributeIOR::_narrow(aTmpAttr)->Value())->_is_nil()) {
-                 anAttr = aTmpAttr;
-                 obj = subobj;
-                 useSubItems = true;
-               } else anIter->Next();
-             } else anIter->Next();
-           }
-         }
-
-         while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-           anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-           GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-           TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-           
-           if (obj->FindAttribute(anAttr, "AttributeName")) {
-             aName = SALOMEDS::AttributeName::_narrow(anAttr);
-             
-             vtkRenderer* theRenderer = ((VTKViewer_ViewFrame*)GeomGUI->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getRenderer();
-             vtkActorCollection* theAllActors = theRenderer->GetActors();
-             theAllActors->InitTraversal();
-             vtkActor* actor = (vtkActor*)theAllActors->GetNextActor();
-             Handle(SALOME_InteractiveObject) anIObj;
-             // don't create new study object if it already exists
-             bool isDisplayed = false;
-             while(!(actor==NULL)) {
-               SALOME_Actor* Gactor = SALOME_Actor::SafeDownCast(actor);
-               if (Gactor!=NULL) {
-                 if (Gactor->hasIO()) {
-                   if (strcmp(Gactor->getIO()->getEntry(),obj->GetID())==0) {
-                     isDisplayed = true;
-                     anIObj = Gactor->getIO();
-                     if (!anIObj.IsNull()) myRenderInter->Display(anIObj, false);
-                   }
-                 }
-               }
-               actor=(vtkActor*)(theAllActors->GetNextActor());
-             }
-             if (!isDisplayed) {
-               // open transaction
-               QAD_Operation* op = new SALOMEGUI_ImportOperation( GeomGUI->myActiveStudy );
-               op->start();
-               
-               SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-               aStudyBuilder->Addreference(newObj1, obj);
-               // commit transaction
-               op->finish();
-               
-               vtkRenderWindow *renWin = theRenderer->GetRenderWindow();
-               int themode = myRenderInter->GetDisplayMode();
-               
-               vtkActorCollection* theActors = 
-                 GEOM_AssemblyBuilder::BuildActors(Shape,0,themode,Standard_True);
-               theActors->InitTraversal();
-               vtkActor* anActor = (vtkActor*)theActors->GetNextActor();
-               while(!(anActor==NULL)) {
-                 GEOM_Actor* GActor = GEOM_Actor::SafeDownCast( anActor );
-                 Handle(GEOM_InteractiveObject) IO = new GEOM_InteractiveObject(anIOR->Value(), Fatherior,"GEOM");
-                 IO->setEntry(obj->GetID());
-                 GActor->setIO( IO );
-                 GActor->setName( theIO->getName() );
-                 
-                 theRenderer->AddActor(GActor);
-                 //              renWin->Render();
-                 anActor = (vtkActor*)theActors->GetNextActor();
-               }
-             }
-           }
-           // next item iteration
-           if (useSubItems) {
-             anIter->Next();
-             anAttr = SALOMEDS::GenericAttribute::_nil();
-             while (anIter->More() && anAttr->_is_nil()) {
-               SALOMEDS::SObject_var subobject = anIter->Value();
-               SALOMEDS::GenericAttribute_var aTmpAttribute;
-               if (subobject->FindAttribute(aTmpAttribute, "AttributeIOR")) {
-                 anAttr = aTmpAttribute;
-                 obj = subobject;
-               } else anIter->Next();
-             }
-           } else anAttr = SALOMEDS::GenericAttribute::_nil();
-         }
-       }
-      }
-    }
-    // No viewer update should be done here!
-    //myRenderInter->Render();
-    //GeomGUI->myActiveStudy->updateObjBrowser( true );
-  } else if (GeomGUI->myActiveStudy->getActiveStudyFrame()->getTypeView() == VIEW_OCC ) {
-    SALOMEDS::SObject_var fatherSF = 
-      aStudy->FindObjectID( GeomGUI->myActiveStudy->getActiveStudyFrame()->entry());
-    SALOMEDS::GenericAttribute_var anAttr;
-    SALOMEDS::AttributeName_var    aName;
-    SALOMEDS::AttributeIOR_var     anIOR;
-
-    if ( v3d->isInViewer( theIO, true ) ) {
-      Standard_Boolean found;
-      Handle(GEOM_AISShape) aSh = GeomGUI->ConvertIOinGEOMAISShape( theIO, found, true );
-      if ( found ) {
-       ic->Display(aSh, false);
-       ic->AddOrRemoveCurrentObject(aSh, false);
-      }
-      
-    } else {
-      SALOMEDS::SObject_var obj = aStudy->FindObjectID( theIO->getEntry() );         
-      if ( !obj->_is_nil() ) {
-       MESSAGE("BuildPresentation(): SObject not null")
-       if ( obj->FindAttribute(anAttr, "AttributeIOR")) {
-         MESSAGE("BuildPresentation(): SObject has IOR")
-         // this SObject may be GEOM module root SObject
-
-         bool useSubItems = false;
-         SALOMEDS::ChildIterator_var anIter = GeomGUI->myActiveStudy->getStudyDocument()->NewChildIterator(obj);
-         if (GeomGUI->myComponentGeom->GetIORFromString(SALOMEDS::AttributeIOR::_narrow(anAttr)->Value())->_is_nil()) {
-           while (anIter->More() && !useSubItems) {
-             SALOMEDS::SObject_var subobj = anIter->Value();
-             SALOMEDS::GenericAttribute_var aTmpAttr;
-             if (subobj->FindAttribute(aTmpAttr, "AttributeIOR")) {
-               if (!GeomGUI->myComponentGeom->GetIORFromString(SALOMEDS::AttributeIOR::_narrow(aTmpAttr)->Value())->_is_nil()) {
-                 anAttr = aTmpAttr;
-                 obj = subobj;
-                 useSubItems = true;
-               } else anIter->Next();
-             } else anIter->Next();
-           }
-         }
-
-         while(useSubItems?anIter->More():!anAttr->_is_nil()) { 
-           anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-           GEOM::GEOM_Shape_var aShape = GeomGUI->myComponentGeom->GetIORFromString(anIOR->Value());
-           TopoDS_Shape Shape = ShapeReader.GetShape(GeomGUI->myComponentGeom,aShape);
-           if (Shape.IsNull())
-             MESSAGE("BuildPresentation(): TopoDS_Shape is null!")
-           if (obj->FindAttribute(anAttr, "AttributeName")) {
-             MESSAGE("BuildPresentation(): SObject has Name")
-             aName = SALOMEDS::AttributeName::_narrow(anAttr);
-             // searchin for already displayed objects with the same shape
-             AIS_ListOfInteractive aDisplayed;
-             ic->DisplayedObjects(aDisplayed);
-             AIS_ListIteratorOfListOfInteractive anIObjects(aDisplayed);
-             Handle(AIS_Shape) anAISShape;
-             for(;anIObjects.More();anIObjects.Next()) {
-               anAISShape = Handle(AIS_Shape)::DownCast(anIObjects.Value());
-               if (!anAISShape.IsNull()) {
-                 if (anAISShape->Shape().IsSame(Shape)) break;
-                 anAISShape.Nullify();
-               }
-             }
-             if (!anAISShape.IsNull()) {
-               if (!ic->IsDisplayed(anAISShape)) ic->Display(anAISShape, false);
-             } else {
-               if (!useSubItems) {
-                 // open transaction
-                 QAD_Operation* op = new SALOMEGUI_ImportOperation( GeomGUI->myActiveStudy );
-                 op->start();
-                 if (fatherSF->_is_nil())
-                   MESSAGE("BuildPresentation(): fatherSF is nil!")
-                 SALOMEDS::SObject_var newObj1 = aStudyBuilder->NewObject(fatherSF);
-                 aStudyBuilder->Addreference(newObj1, obj);
-                 // commit transaction
-                 op->finish();
-               }
-               Handle(GEOM_AISShape) aSh = new GEOM_AISShape(Shape, aName->Value());
-               aSh->SetShadingColor( GeomGUI->myShadingColor );
-               Handle(GEOM_InteractiveObject) IO = new GEOM_InteractiveObject(anIOR->Value(),
-                                                                              Fatherior,
-                                                                              "GEOM");
-               IO->setEntry(obj->GetID());
-               aSh->setIO( IO );
-               aSh->setName( aName->Value() );
-               ic->Display (aSh, false);
-               if (!useSubItems) ic->AddOrRemoveCurrentObject(aSh, false);
-             }
-           }
-           // next item iteration
-           if (useSubItems) {
-             anIter->Next();
-             anAttr=SALOMEDS::GenericAttribute::_nil();
-             while (anIter->More() && anAttr->_is_nil()) {
-               SALOMEDS::SObject_var subobject = anIter->Value();
-               SALOMEDS::GenericAttribute_var aTmpAttribute;
-               if (subobject->FindAttribute(aTmpAttribute, "AttributeIOR")) {
-                 anAttr = aTmpAttribute;
-                 obj = subobject;
-               } else anIter->Next();
-             }
-           } else 
-             anAttr = SALOMEDS::GenericAttribute::_nil();
-         }
-       }
-      }
-    }
-    // No viewer update should be done here!
-    //GeomGUI->myActiveStudy->updateObjBrowser( true );
-    //ic->UpdateCurrentViewer();
+  GEOM::GEOM_Object_var geomObj;
+  if ( !IOR.isEmpty() ) {
+    CORBA::Object_var corbaObj = SalomeApp_Application::orb()->string_to_object
+      ( IOR.toLatin1().constData() );
+    if ( !CORBA::is_nil( corbaObj ) )
+      geomObj = GEOM::GEOM_Object::_narrow( corbaObj );
   }
+  return geomObj._retn();
 }
 
-//=======================================================================
-// function : Parameter()
-// purpose  : return a parameter (float) from a dialog box
-//
-//  avalue1    : is a float or integer used as a default value displayed
-//  aTitle1    : is the title for aValue1
-//  aTitle     : is the main title
-//  bottom     : maximum value to be entered
-//  top               : minimum value to be entered
-//  decimals   : number of decimals
-//=======================================================================
-double GeometryGUI::Parameter( Standard_Boolean& res,
-                              const char* aValue1,
-                              const char* aTitle1,
-                              const char* aTitle,
-                              const double bottom,
-                              const double top,
-                              const int decimals )
-{
-  GeometryGUI_aParameterDlg * Dialog =
-    new GeometryGUI_aParameterDlg(aValue1,
-                                 aTitle1,
-                                 QAD_Application::getDesktop(),
-                                 aTitle,
-                                 TRUE,
-                                 0,
-                                 bottom,
-                                 top,
-                                 decimals) ;
-  int r = Dialog->exec() ;
-  float X = 0.0 ;
-  if ( r == QDialog::Accepted ) {
-    res = Standard_True;
-    X = Dialog->getValue();
-  } else
-    res = Standard_False;
-  delete Dialog;
-  return X;
-}
-
-
-//=======================================================================
-// function : OnSketchSegment()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchSegment()
-{
-  this->mySketcher.ChangeMode(SEGMENT);
-}
-
+/*!
+  \brief Returns IOR of the object.
 
-//=======================================================================
-// function : OnSketchArc()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchArc()
-{
-  this->mySketcher.ChangeMode(ARC_CHORD);
-}
+  This is a static method. It returns the object's IOR.
 
-//=======================================================================
-// function : OnSketchSetAngle()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchSetAngle()
+  \param object the GEOM object.
+  \return object's IOR.
+*/
+QString GeometryGUI::GetIORFromObject( GEOM::GEOM_Object_ptr object )
 {
-  Standard_Real anAngle = this->mySketcher.GetSegmentAngle()/PI180;
-  Sketch::fitInResol(anAngle); 
-  Standard_Boolean res = false ;
-  QString Value = QString("%1").arg( anAngle );
-  anAngle = Parameter(res, Value, tr("GEOM_MEN_ANGLE"), tr("GEOM_MEN_ENTER_ANGLE"), -180.0, +180.0, 6 )*PI180 ;
-
-  if( res ) {
-    this->mySketcher.SetSegmentAngle(anAngle);
-    QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-    QMenuData* pp;
-    QMenuItem* item = Mb->findItem(3133,&pp);
-    pp->setItemChecked(3133,false);
-    item = Mb->findItem(3134,&pp);
-    pp->setItemChecked(3134,false);
+  QString IOR;
+  if ( !CORBA::is_nil( object ) ) {
+    CORBA::String_var anIOR =
+      SalomeApp_Application::orb()->object_to_string( object );
+    IOR = anIOR.in();
   }
-  
+  return IOR;
 }
 
+/*!
+  \brief Check if this object is can't be renamed in place
 
-//=======================================================================
-// function : OnSketchSetx()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchSetx()
-{
-  Standard_Boolean res = false;
-  double X = Parameter( res,
-                       "0.",
-                       tr("GEOM_MEN_X"),
-                       tr("GEOM_MEN_SKETCHER_X"),
-                       2.0 * Precision::Confusion(),
-                       1E6,
-                       6 ) ;
-  if (res)
-    this->mySketcher.SetXDimension(X);
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(3133,&pp);
-  pp->setItemChecked(3133,false);
-  item = Mb->findItem(3134,&pp);
-  pp->setItemChecked(3134,false);
-}
-
-//=======================================================================
-// function : OnSketchSety()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchSety()
-{
-  Standard_Boolean res = false;
-  double Y = Parameter( res,
-                       "0.",
-                       tr("GEOM_MEN_Y"),
-                       tr("GEOM_MEN_SKETCHER_Y"),
-                       2.0 * Precision::Confusion(),
-                       1E6,
-                       6 ) ;
-  if (res)
-    this->mySketcher.SetYDimension(Y);
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(3133,&pp);
-  pp->setItemChecked(3133,false);
-  item = Mb->findItem(3134,&pp);
-  pp->setItemChecked(3134,false);
-}
+  This method can be re-implemented in the subclasses.
+  Return true in case if object isn't reference or component (module root).
 
+  \param entry column id
+  \return \c true if the item can be renamed by the user in place (e.g. in the Object browser)
+*/
+bool GeometryGUI::renameAllowed( const QString& entry) const {
 
-//=======================================================================
-// function : OnSketchDelete()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchDelete()
-{
-  if (GeomGUI->mySketcher.GetmyEdgesNumber() == 1 ) {
-    QMenuBar* Mb = GeomGUI->myDesktop->getMainMenuBar();
-    QMenuData* pp;
-    QMenuItem* item = Mb->findItem(313,&pp);
-    pp->setItemEnabled( 313, false);  // SKETCH CONTRAINTS
-    GeomGUI->mySketcher.SetTransitionStatus(NOCONSTRAINT);
-  }
+  SalomeApp_Application* app = dynamic_cast< SalomeApp_Application* >( SUIT_Session::session()->activeApplication() );
+  SalomeApp_Study* appStudy = app ? dynamic_cast<SalomeApp_Study*>( app->activeStudy() ) : 0;
+  SalomeApp_DataObject* obj = appStudy ? dynamic_cast<SalomeApp_DataObject*>(appStudy->findObjectByEntry(entry)) : 0;
 
-  if (this->mySketcher.Delete())
-    GeomGUI->ResetState();
+  return (app && appStudy && obj && !appStudy->isComponent(entry) && !obj->isReference());
 }
 
-
-//=======================================================================
-// function : OnSketchClose()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchClose()
+/*!
+  Rename object by entry.
+  \param entry entry of the object
+  \param name new name of the object
+  \brief Return \c true if rename operation finished successfully, \c false otherwise.
+*/
+bool GeometryGUI::renameObject( const QString& entry, const QString& name)
 {
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)this->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) myContext = v3d->getAISContext();
-
-  TopoDS_Wire W = this->mySketcher.Close();
-  if ( !W.IsNull() ) {
-    //
-    GEOM::GEOM_Gen::ListOfIOR_var listShapes = new GEOM::GEOM_Gen::ListOfIOR;
-    listShapes->length(0);
-    unsigned int i = 0;
-
-    BRepTools_WireExplorer Ex(W);
-    while ( Ex.More() ) {
-      TopoDS_Edge E = Ex.Current();
-      gp_Pnt pt1 , pt2 ;
-
-      pt1 = BRep_Tool::Pnt(TopExp::FirstVertex(E));
-      pt2 = BRep_Tool::Pnt(TopExp::LastVertex(E));
-
-      gp_Pnt CenterPoint;
-      Handle(Geom_Curve) Curve;
-      Handle(Geom_Circle) Circle;
-      gp_Circ Circ;
-      Standard_Real First,Last;
-
-      Curve = BRep_Tool::Curve(E,First,Last);
-      if(Curve->IsKind(STANDARD_TYPE(Geom_Circle))) {
-       Circle = Handle(Geom_Circle)::DownCast(Curve); // pointer on geom_circ
-       Circ   = Circle->Circ();                       // gp_Circ
-       
-       Curve->D0( (First + Last) / 2. , CenterPoint );
-
-       GEOM::PointStruct pI = myComponentGeom->MakePointStruct( pt1.X(), pt1.Y(), pt1.Z() );
-       GEOM::PointStruct pC = myComponentGeom->MakePointStruct( CenterPoint.X(), CenterPoint.Y(), CenterPoint.Z() );
-       GEOM::PointStruct pE = myComponentGeom->MakePointStruct( pt2.X(), pt2.Y(), pt2.Z() );
-
-       GEOM::GEOM_Shape_var arc;
-
-       try {
-         arc = myComponentGeom->MakeArc(pI, pC, pE) ;
-       }
-       catch (const SALOME::SALOME_Exception& S_ex) {
-         QtCatchCorbaException(S_ex);
-       }
-
-       listShapes->length(i+1);
-       listShapes[i] = strdup(arc->Name());
-       i++;   
-     } else {
-       GEOM::PointStruct pI = myComponentGeom->MakePointStruct( pt1.X(), pt1.Y(), pt1.Z() );
-       GEOM::PointStruct pE = myComponentGeom->MakePointStruct( pt2.X(), pt2.Y(), pt2.Z() );
-       GEOM::GEOM_Shape_var segment;
-
-       try {
-         segment = myComponentGeom->MakeEdge(pI,pE) ;
-       }       
-       catch (const SALOME::SALOME_Exception& S_ex) {
-         QtCatchCorbaException(S_ex);
-       }
-
-       listShapes->length(i+1);
-       listShapes[i] = strdup(segment->Name());
-       i++;
-      }
-      Ex.Next();
-    }
-    GEOM::GEOM_Shape_var Wire = myComponentGeom->MakeWire(listShapes) ;
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, Wire);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    Wire->NameType( type );
-
-    if ( Display(Wire, "" )) {
-      QAD_Application::getDesktop()->putInfo(tr("GEOM_PRP_DONE"));
-    } 
-  }
-  GeomGUI->ResetState();
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(313,&pp);
-  pp->setItemEnabled( 313, false);  // SKETCH CONTRAINTS
-  GeomGUI->mySketcher.SetTransitionStatus(NOCONSTRAINT);
-}
+  bool result = false;
 
+  SalomeApp_Application* app =
+    dynamic_cast< SalomeApp_Application* >( SUIT_Session::session()->activeApplication());
+  SalomeApp_Study* appStudy = app ? dynamic_cast<SalomeApp_Study*>( app->activeStudy() ) : 0;
 
+  if (!appStudy)
+    return result;
 
-//=======================================================================
-// function : OnSketchEnd()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchEnd()
-{
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)this->myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) myContext = v3d->getAISContext();
-
-  TopoDS_Wire W = this->mySketcher.End();
-  if (!W.IsNull()) {
-    //
-    GEOM::GEOM_Gen::ListOfIOR_var listShapes = new GEOM::GEOM_Gen::ListOfIOR;
-    listShapes->length(0);
-    unsigned int i = 0;
-
-    BRepTools_WireExplorer Ex(W);
-    while ( Ex.More() ) {
-      TopoDS_Edge E = TopoDS::Edge( Ex.Current() );
-      
-      gp_Pnt pt1 , pt2 ;
-      pt1 = BRep_Tool::Pnt(TopExp::FirstVertex(E));
-      pt2 = BRep_Tool::Pnt(TopExp::LastVertex(E));
-
-      gp_Pnt CenterPoint;
-      Handle(Geom_Curve) Curve;
-      Handle(Geom_Circle) Circle;
-      gp_Circ Circ;
-      Standard_Real First,Last;
-      
-      Curve = BRep_Tool::Curve(E,First,Last);
-      if(Curve->IsKind(STANDARD_TYPE(Geom_Circle))) {
-       Circle = Handle(Geom_Circle)::DownCast(Curve); // pointer on geom_circ
-       Circ   = Circle->Circ();                       // gp_Circ
-       
-       Curve->D0( (First + Last) / 2. , CenterPoint );
-
-       GEOM::PointStruct pI = myComponentGeom->MakePointStruct( pt1.X(), pt1.Y(), pt1.Z() );
-       GEOM::PointStruct pC = myComponentGeom->MakePointStruct( CenterPoint.X(), CenterPoint.Y(), CenterPoint.Z() );
-       GEOM::PointStruct pE = myComponentGeom->MakePointStruct( pt2.X(), pt2.Y(), pt2.Z() );
-
-       GEOM::GEOM_Shape_var arc;
-
-       try {
-         arc = myComponentGeom->MakeArc(pI, pC, pE) ;
-       }
-       catch (const SALOME::SALOME_Exception& S_ex) {
-         QtCatchCorbaException(S_ex);
-       }
-               
-       listShapes->length(i+1);
-       listShapes[i] = strdup(arc->Name());
-       i++;   
-      } else {
-       GEOM::PointStruct pI = myComponentGeom->MakePointStruct( pt1.X(), pt1.Y(), pt1.Z() );
-       GEOM::PointStruct pE = myComponentGeom->MakePointStruct( pt2.X(), pt2.Y(), pt2.Z() );
-       GEOM::GEOM_Shape_var segment;
-       
-       try {
-         segment = myComponentGeom->MakeEdge(pI,pE) ;
-       }
-       catch (const SALOME::SALOME_Exception& S_ex) {
-         QtCatchCorbaException(S_ex);
-       }
-       
-       listShapes->length(i+1);
-       listShapes[i] = strdup(segment->Name());
-       i++;
-      }
-      Ex.Next();
-    }
+  _PTR(Study) aStudy = appStudy->studyDS();
 
-    GEOM::GEOM_Shape_var Wire = myComponentGeom->MakeWire(listShapes) ;
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, Wire);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    Wire->NameType( type );
+  if (!aStudy)
+    return result;
 
-    if ( Display(Wire, "") ) {
-      QAD_Application::getDesktop()->putInfo(tr("GEOM_PRP_DONE"));
-    }
+  bool aLocked = (_PTR(AttributeStudyProperties)(appStudy->studyDS()->GetProperties()))->IsLocked();
+  if ( aLocked ) {
+    SUIT_MessageBox::warning ( app->desktop(), QObject::tr("WRN_WARNING"), QObject::tr("WRN_STUDY_LOCKED") );
+    return result;
   }
-  GeomGUI->ResetState();
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(313,&pp);
-  pp->setItemEnabled( 313, false);  // SKETCH CONTRAINTS
-  GeomGUI->mySketcher.SetTransitionStatus(NOCONSTRAINT);
-}
-
-//=======================================================================
-// function : OnSettingsNoconstraint()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSettingsNoconstraint() 
-{
-    this->mySketcher.SetTransitionStatus(NOCONSTRAINT);
-}
-
-//=======================================================================
-// function : OnSettingsPerpendicular()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSettingsPerpendicular() 
-{
-    this->mySketcher.SetTransitionStatus(PERPENDICULAR);
-}
-
-//=======================================================================
-// function : OnSettingsTangent()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSettingsTangent() 
-{
-  this->mySketcher.SetTransitionStatus(TANGENT);
-}
-
-//=======================================================================
-// function : OnSketchOptionsOnoffangledimension()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchOptionsOnoffangledimension()
-{
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(10011,&pp);
-  pp->setItemChecked(10011,!pp->isItemChecked(10011));
-  this->mySketcher.SetParameterVisibility(ANGLE_PARAMETER,pp->isItemChecked(10011));
-}
-
-//=======================================================================
-// function : OnSketchOptionsOnofflengthdimension()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchOptionsOnofflengthdimension()
-{
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(10010,&pp);
-  pp->setItemChecked(10010,!pp->isItemChecked(10010));
-  this->mySketcher.SetParameterVisibility(LENGTH_PARAMETER,pp->isItemChecked(10010));
-}
-
-//=======================================================================
-// function : OnSketchOptionsOnoffradiusdimension()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchOptionsOnoffradiusdimension()
-{
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(10012,&pp);
-  pp->setItemChecked(10012,!pp->isItemChecked(10012));
-  this->mySketcher.SetParameterVisibility(RADIUS_PARAMETER,pp->isItemChecked(10012));
-}
-
-
-//=======================================================================
-// function : OnSketchOptionsOnoffxdimension()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchOptionsOnoffxdimension()
-{
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(10013,&pp);
-  pp->setItemChecked(10013,!pp->isItemChecked(10013));
-  this->mySketcher.SetParameterVisibility(XVALUE_PARAMETER,pp->isItemChecked(10013));
-}
-
-//=======================================================================
-// function : OnSketchOptionsOnoffydimension()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::OnSketchOptionsOnoffydimension()
-{
-  QMenuBar* Mb = this->myDesktop->getMainMenuBar();
-  QMenuData* pp;
-  QMenuItem* item = Mb->findItem(10014,&pp);
-  pp->setItemChecked(10014,!pp->isItemChecked(10014));
-  this->mySketcher.SetParameterVisibility(YVALUE_PARAMETER,pp->isItemChecked(10014));
-}
 
+  _PTR(SObject) obj ( aStudy->FindObjectID(qPrintable(entry)) );
+  _PTR(GenericAttribute) anAttr;
+  if ( obj ) {
+    if ( obj->FindAttribute(anAttr, "AttributeName") ) {
+      _PTR(AttributeName) aName (anAttr);
 
-//=======================================================================
-// function : Archimede()
-// purpose  : 
-//=======================================================================
-void GeometryGUI::Archimede( const Handle(SALOME_InteractiveObject)& IO, 
-                            const double aWeight,
-                            const double aWaterDensity,
-                            const double aMeshingDeflection )
-{
-  try {
-    if ( IO->IsInstance(STANDARD_TYPE(GEOM_InteractiveObject)) ) {
-      Handle(GEOM_InteractiveObject) GIO =
-       Handle(GEOM_InteractiveObject)::DownCast( IO );
-      GEOM::GEOM_Shape_var Shape = GeomGUI->myComponentGeom->GetIORFromString( GIO->getIOR() );
-      
-      GEOM::GEOM_Shape_var Result = GeomGUI->myComponentGeom->Archimede( Shape, aWeight, aWaterDensity, aMeshingDeflection);
-      Result->NameType(tr("GEOM_PLANE"));
-      if ( Display(Result, "") ) {
-       QAD_Application::getDesktop()->putInfo(tr("GEOM_PRP_DONE"));
-      }
-      return;
-    }
-    if ( IO->hasEntry() ) {
-      SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->getStudyDocument();
-      SALOMEDS::SObject_var obj = aStudy->FindObjectID( IO->getEntry() );
-      SALOMEDS::GenericAttribute_var anAttr;
-      SALOMEDS::AttributeIOR_var     anIOR;
-      if ( !obj->_is_nil() ) {
-       if (obj->FindAttribute(anAttr, "AttributeIOR")) {
-          anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-         GEOM::GEOM_Shape_var Shape = GeomGUI->myComponentGeom->GetIORFromString( anIOR->Value() );
-         GEOM::GEOM_Shape_var Result = GeomGUI->myComponentGeom->Archimede( Shape, aWeight, aWaterDensity, aMeshingDeflection);
-         Result->NameType(tr("GEOM_PLANE"));
-         if ( Display(Result, "") ) {
-           QAD_Application::getDesktop()->putInfo(tr("GEOM_PRP_DONE"));
-         }
-       }
+      GEOM::GEOM_Object_var anObj = GEOM::GEOM_Object::_narrow(GeometryGUI::ClientSObjectToObject(obj));
+      if (!CORBA::is_nil(anObj)) {
+        aName->SetValue( name.toLatin1().data() ); // rename the SObject
+        anObj->SetName( name.toLatin1().data() );  // Rename the corresponding GEOM_Object
+        result = true;
       }
     }
-
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-}
-
-
-//=====================================================================================
-// EXPORTED METHODS
-//=====================================================================================
-extern "C"
-{
-  bool OnGUIEvent(int theCommandID, QAD_Desktop* parent)
-  {
-    return GeometryGUI::OnGUIEvent(theCommandID, parent);
-  }
-
-  bool OnKeyPress (QKeyEvent* pe, QAD_Desktop* parent, QAD_StudyFrame* studyFrame)
-  {
-    return GeometryGUI::OnKeyPress (pe, parent, studyFrame);
-  }
-
-  bool OnMousePress (QMouseEvent* pe, QAD_Desktop* parent, QAD_StudyFrame* studyFrame)
-  {
-    return GeometryGUI::OnMousePress (pe, parent, studyFrame);
-  }
-
-  bool OnMouseMove (QMouseEvent* pe, QAD_Desktop* parent, QAD_StudyFrame* studyFrame)
-  {
-    return GeometryGUI::OnMouseMove (pe, parent, studyFrame);
-  }
-
-  bool SetSettings ( QAD_Desktop* parent )
-  {
-    return GeometryGUI::SetSettings( parent );
-  }
-
-  bool customPopup ( QAD_Desktop* parent, QPopupMenu* popup, const QString & theContext,
-                    const QString & theParent, const QString & theObject )
-  {
-     return GeometryGUI::CustomPopup( parent, popup, theContext, theParent, theObject );
-  }
-
-  void definePopup ( QString & theContext, QString & theParent, QString & theObject )
-  {
-    GeometryGUI::DefinePopup( theContext, theParent, theObject );
-  }
-  
-  bool activeStudyChanged ( QAD_Desktop* parent )
-  {
-    GeometryGUI::activeStudyChanged( parent );
-  }
-
-  void buildPresentation ( const Handle(SALOME_InteractiveObject)& theIO )
-  {
-    GeometryGUI::BuildPresentation(theIO);
-  }
-
-  void supportedViewType(int* buffer, int bufferSize)
-  {
-    if (!buffer || !bufferSize) return;
-    buffer[0] = (int)VIEW_OCC;
-    if (--bufferSize) buffer[1] = (int)VIEW_VTK;
-  }
-}
-
-//=====================================================================================
-// function : OnFilletGetAll()
-// purpose  :
-//=====================================================================================
-bool GeometryGUI::OnFilletGetAll(const TopoDS_Shape& ShapeTopo, const double Radius, const int SubShapeType, const char* ShapeTopoIOR)
-{
-  GEOM::GEOM_Shape::ListOfSubShapeID_var ListOfID = new GEOM::GEOM_Shape::ListOfSubShapeID;
-  ListOfID->length(0);
-
-  SALOMEDS::Study_var   aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::SObject_var theObj = aStudy->FindObjectIOR( ShapeTopoIOR );
-  if ( theObj->_is_nil() ) {
-    myDesktop->putInfo(tr("GEOM_PRP_SHAPE_IN_STUDY"));
-    return false ;
-  }
-  
-  try {
-    if( Radius <= Precision::Confusion() )
-      return false;
-
-    GEOM::GEOM_Shape_var aShape  = myComponentGeom->GetIORFromString( ShapeTopoIOR );
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeFillet(aShape, Radius, SubShapeType, ListOfID) ;
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return  false;
-    }
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, result);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    result->NameType( type );
-
-    if ( Display( result, "" ))
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return true;
-}
-
-//=====================================================================================
-// function : OnFilletGetSelected()
-// purpose  :
-//=====================================================================================
-bool GeometryGUI::OnFilletGetSelected(const TopoDS_Shape& ShapeTopo,
-                                     const char* ShapeTopoIOR,
-                                     const double Radius,
-                                     const int SubShapeType,
-                                     Standard_Integer& aLocalContextId,
-                                     bool& myUseLocalContext )
-{
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC ) {
-    return false;
-  }
-
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  
-  if( myUseLocalContext == false ) {
-    /*  No local context opened for fillet method */
-    myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-    return false ;
-  }
-  
-  GEOM::GEOM_Shape::ListOfSubShapeID_var ListOfID = new GEOM::GEOM_Shape::ListOfSubShapeID;
-  ic->InitSelected();
-  int nbSelected = ic->NbSelected();
-  int i = 0;
-  ic->InitSelected();
-
-  while(ic->MoreSelected()) {
-    TopoDS_Shape s = ic->SelectedShape();
-    if ( s.ShapeType() == TopAbs_FACE ) {
-      TopExp_Explorer Exp( s, TopAbs_EDGE );
-      TopTools_MapOfShape M ;
-      while ( Exp.More() ) {
-       if( M.Add(Exp.Current() )) { /* if a new edge : do not add doublons indices */
-         ListOfID->length( i + 1 );
-         ListOfID[i] = GetIndex( Exp.Current(), ShapeTopo, (int)TopAbs_EDGE ) ;
-         i++ ;
-       }
-       Exp.Next(); 
-      }         
-    }
-    else {
-      ListOfID->length( i + 1 );
-      ListOfID[i] = GetIndex( ic->SelectedShape(), ShapeTopo, SubShapeType );
-      i++;
-    }
-    ic->NextSelected();
-  }
-
-  GEOM::GEOM_Shape_var aShape  = myComponentGeom->GetIORFromString( ShapeTopoIOR );
-  GEOM::GEOM_Shape_var aResult ;
-  try {
-    aResult = myComponentGeom->MakeFillet( aShape, Radius, 6, ListOfID );
-
-    /* local context from DialogBox */
-    ic->CloseLocalContext(aLocalContextId) ;
-    myUseLocalContext = false ;
-
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, aResult);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    aResult->NameType( type );
-
-    if ( Display( aResult, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-
-  if ( myUseLocalContext ) {
-    /* local context from DialogBox */
-    ic->CloseLocalContext(aLocalContextId) ;
-    myUseLocalContext = false ;
-  }
-
-  this->OnDisplayAll(true);
-  myActiveStudy->updateObjBrowser();
-  myDesktop->putInfo (tr("GEOM_PRP_READY"));
-
-  return true ;  
-}
-
-//=====================================================================================
-// function : OnChamferGetAll()
-// purpose  :
-//=====================================================================================
-bool GeometryGUI::OnChamferGetAll(const TopoDS_Shape& ShapeTopo, const double D1, const double D2, const int SubShapeType, const char* ShapeTopoIOR)
-{
- GEOM::GEOM_Shape::ListOfSubShapeID_var ListOfID = new GEOM::GEOM_Shape::ListOfSubShapeID;
-  ListOfID->length(0);
-
-  SALOMEDS::Study_var   aStudy = myActiveStudy->getStudyDocument();
-  SALOMEDS::SObject_var theObj = aStudy->FindObjectIOR( ShapeTopoIOR );
-  if ( theObj->_is_nil() ) {
-    myDesktop->putInfo(tr("GEOM_PRP_SHAPE_IN_STUDY"));
-    return false ;
-  }
-  
-  try {
-    if( D1 <= Precision::Confusion() )
-      return false;
-    if( D2 <= Precision::Confusion() )
-      return false;
-
-    GEOM::GEOM_Shape_var aShape  = myComponentGeom->GetIORFromString( ShapeTopoIOR );
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeChamfer(aShape, D1, D2, SubShapeType, ListOfID) ;
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-      return  false;
-    }
-
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, result);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    result->NameType( type );
-
-    if ( Display( result, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return true;
-}
-
-//=====================================================================================
-// function : OnChamferGetSelected()
-// purpose  :
-//=====================================================================================
-bool GeometryGUI::OnChamferGetSelected(const TopoDS_Shape& ShapeTopo,
-                                      const char* ShapeTopoIOR,
-                                      const double D1, const double D2, const int SubShapeType,
-                                      Standard_Integer& aLocalContextId,
-                                      bool& myUseLocalContext)
-{
-  if ( this->myActiveStudy->getActiveStudyFrame()->getTypeView() > VIEW_OCC ) {
-    return false;
-  }
-  
-  OCCViewer_Viewer3d* v3d = ((OCCViewer_ViewFrame*)myActiveStudy->getActiveStudyFrame()->getRightFrame()->getViewFrame())->getViewer();
-  Handle (AIS_InteractiveContext) ic = v3d->getAISContext();
-  
-  if( myUseLocalContext == false ) {
-    /* No local context opened for chamfer method */
-    myDesktop->putInfo(tr("GEOM_PRP_ABORT"));
-    return false ;
-  }
-  
-  GEOM::GEOM_Shape::ListOfSubShapeID_var ListOfID = new GEOM::GEOM_Shape::ListOfSubShapeID;
-  ic->InitSelected();
-  int nbSelected = ic->NbSelected();
-  int i = 0;
-  ic->InitSelected();
-
-  while(ic->MoreSelected()) {
-    TopoDS_Shape s = ic->SelectedShape();
-    if ( s.ShapeType() == TopAbs_FACE ) {
-      TopExp_Explorer Exp( s, TopAbs_EDGE );
-      TopTools_MapOfShape M ;
-      while ( Exp.More() ) {
-       if( M.Add(Exp.Current() )) { /* if a new edge : do not add doublons indices */
-         ListOfID->length( i + 1 );
-         ListOfID[i] = GetIndex( Exp.Current(), ShapeTopo, (int)TopAbs_EDGE ) ;
-         i++ ;
-       }
-       Exp.Next(); 
-      }         
-    }
-    else {
-      ListOfID->length( i + 1 );
-      ListOfID[i] = GetIndex( ic->SelectedShape(), ShapeTopo, SubShapeType ) ;
-      i++;
-    }
-    ic->NextSelected();
-  }
-  
-  GEOM::GEOM_Shape_var aShape  = myComponentGeom->GetIORFromString( ShapeTopoIOR );
-  GEOM::GEOM_Shape_var aResult ;
-  try {
-    aResult = myComponentGeom->MakeChamfer( aShape, D1, D2, 6, ListOfID );
-
-    /* local context from DialogBox */
-    ic->CloseLocalContext(aLocalContextId) ;
-    myUseLocalContext = false ;
-
-    TopoDS_Shape S = ShapeReader.GetShape(myComponentGeom, aResult);
-    Standard_CString type;
-    GetShapeTypeString(S,type);
-    aResult->NameType( type );
-
-    if ( Display( aResult, "") )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
   }
-
-  if ( myUseLocalContext ) {
-    /* local context from DialogBox */
-    ic->CloseLocalContext(aLocalContextId) ;
-    myUseLocalContext = false ;
-  }
-
-  this->OnDisplayAll(true);
-  myActiveStudy->updateObjBrowser();
-  myDesktop->putInfo (tr("GEOM_PRP_READY"));
-
-  return true ;  
+  return result;
 }
 
-//=====================================================================================
-// function : MakeCDGAndDisplay()
-// purpose  :
-//=====================================================================================
-void GeometryGUI::MakeCDGAndDisplay(GEOM::GEOM_Shape_ptr Shape)
+void GeometryGUI::updateMaterials()
 {
-  try {
-    GEOM::GEOM_Shape_var result = myComponentGeom->MakeCDG( Shape );
-    if ( result->_is_nil() ) {
-      myDesktop->putInfo(tr("GEOM_PRP_ABORT") );
-      return ;
-    }
-    result->NameType( tr("GEOM_POINT") );
-    if ( Display( result ) )
-      myDesktop->putInfo(tr("GEOM_PRP_DONE"));
-  }  
-  catch (const SALOME::SALOME_Exception& S_ex) {
-    QtCatchCorbaException(S_ex);
-  }
-  return  ;
-}
+  LightApp_Preferences* pref = preferences();
+  if ( pref ) {
+    QStringList materials = Material_ResourceMgr::resourceMgr()->materials();
+    QString currentMaterial = SUIT_Session::session()->resourceMgr()->stringValue( "Geometry", "material" );
+    if ( !materials.contains( currentMaterial ) )
+      // user material set as default in the preferences, might be removed
+      SUIT_Session::session()->resourceMgr()->setValue( "Geometry", "material", QString( "Plastic" ) );
 
-bool GeometryGUI::SObjectExist(SALOMEDS::SObject_ptr theFatherObject, const char* IOR) {
-  SALOMEDS::Study_var aStudy = GeomGUI->myActiveStudy->getStudyDocument();
-  SALOMEDS::ChildIterator_var it = aStudy->NewChildIterator(theFatherObject);
-  SALOMEDS::SObject_var RefSO;
-  SALOMEDS::GenericAttribute_var anAttr;
-  SALOMEDS::AttributeIOR_var     anIOR;
-  for (; it->More();it->Next()) {
-    SALOMEDS::SObject_var SO= it->Value();
-    if (SO->FindAttribute(anAttr, "AttributeIOR") ) {
-      anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-      if ( strcmp( anIOR->Value(), IOR ) == 0 )
-       return true;
-    }
-    if ( SO->ReferencedObject( RefSO ) ) {
-      if (RefSO->FindAttribute(anAttr, "AttributeIOR") ) {
-        anIOR = SALOMEDS::AttributeIOR::_narrow(anAttr);
-       if ( strcmp( anIOR->Value(), IOR ) == 0 )
-         return true;
-      }
+    QtxPreferenceItem* prefItem = pref->rootItem()->findItem( tr( "PREF_MATERIAL" ), true );
+    if ( prefItem ) {
+      setPreferenceProperty( prefItem->id(),
+                             "strings", materials );
+      prefItem->retrieve();
     }
   }
-  return false;
 }