Salome HOME
Merge from V6_main_20120808 08Aug12
[modules/geom.git] / src / GEOMGUI / GEOMGUI_Selection.cxx
index d89088f618253fee8b01124d4a4772bd07539a13..73423426981974a01dcf79fef35cc8fd86196a54 100644 (file)
@@ -1,24 +1,25 @@
-//  Copyright (C) 2007-2008  CEA/DEN, EDF R&D, OPEN CASCADE
+// Copyright (C) 2007-2012  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
+// 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 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.
+// 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
+// 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
+// See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
 //
+
 // File   : GEOMGUI_Selection.cxx
 // Author : Alexander SOLOVYOV, Open CASCADE S.A.S. (alexander.solovyov@opencascade.com)
 //
 #include "GeometryGUI.h"
 #include "GEOM_Displayer.h"
 
+#include "Material_Model.h"
+
+#include <GEOM_Constants.h>
+
 #include <SalomeApp_Application.h>
 #include <SalomeApp_Study.h>
 
-#include <SUIT_Desktop.h>
+#include "LightApp_DataOwner.h"
+
 #include <SUIT_Session.h>
+#include <SUIT_Desktop.h>
 #include <SUIT_ViewWindow.h>
 #include <SUIT_ViewManager.h>
 
 #include <SOCC_Prs.h>
 #include <SVTK_Prs.h>
 #include <SALOME_Actor.h>
+#include <GEOM_Actor.h>
 
 #include <OCCViewer_ViewModel.h>
 #include <SVTK_ViewModel.h>
 
 #include <GEOMImpl_Types.hxx>
 
+#include <GEOM_AISShape.hxx>
+#include <GEOM_VTKPropertyMaterial.hxx>
+
 // OCCT Includes
 #include <AIS.hxx>
 #include <AIS_InteractiveObject.hxx>
 #include <AIS_ListOfInteractive.hxx>
+#include <AIS_GraphicTool.hxx>
+#include <AIS_Drawer.hxx>
+#include <Aspect_TypeOfFacingModel.hxx>
+#include <Prs3d_ShadingAspect.hxx>
+#include<Graphic3d_MaterialAspect.hxx>
 
 // VTK Includes
 #include <vtkActorCollection.h>
 
+#define OCC_DISPLAY_MODE_TO_STRING( str, dm ) { \
+    if ( dm == AIS_WireFrame ) \
+      str = QString( "Wireframe" ); \
+    else if ( dm == AIS_Shaded )    \
+      str = QString( "Shading" ); \
+    else if ( dm == GEOM_AISShape::ShadingWithEdges )    \
+      str = QString( "ShadingWithEdges" ); \
+    else if ( dm == GEOM_AISShape::TexturedShape )    \
+      str = QString( "Texture" ); \
+    else \
+      str = QString(); }
+
+#define VTK_DISPLAY_MODE_TO_STRING( str, dm ) { \
+    if ( dm == 0 ) \
+      str = QString( "Wireframe" ); \
+    else if ( dm == 1 )    \
+      str = QString( "Shading" ); \
+    else if ( dm == 3 )    \
+      str = QString( "ShadingWithEdges" ); \
+    else \
+      str = QString(); }
+
+#define USE_VISUAL_PROP_MAP
+
 GEOMGUI_Selection::GEOMGUI_Selection()
 : LightApp_Selection()
 {
@@ -64,54 +104,137 @@ GEOMGUI_Selection::~GEOMGUI_Selection()
 {
 }
 
-QVariant GEOMGUI_Selection::parameter( const QString& p ) const
+void GEOMGUI_Selection::init( const QString& context, LightApp_SelectionMgr* selMgr )
 {
-  if ( p == "isOCC" ) return QVariant( activeViewType() == OCCViewer_Viewer::Type() );
-  if ( p == "selectionmode" ){ 
-    return QVariant(selectionMode()); 
+  LightApp_Selection::init( context, selMgr );
+
+  myObjects.resize( count() );
+
+  SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( study() );
+  if ( appStudy ) {
+    _PTR(Study) study = appStudy->studyDS();
+    for ( int idx = 0; idx < count(); idx++ ) {
+      QString anEntry = entry( idx );
+      if ( study && !anEntry.isEmpty() ) {
+       _PTR(SObject) aSO( study->FindObjectID( anEntry.toStdString() ) );
+       if ( aSO ) {
+         CORBA::Object_var varObj = GeometryGUI::ClientSObjectToObject( aSO );
+         myObjects[idx] = GEOM::GEOM_Object::_narrow( varObj );
+       }
+      }
+    }
   }
-  return LightApp_Selection::parameter( p );
 }
 
-QVariant GEOMGUI_Selection::parameter( const int ind, const QString& p ) const
+//QVariant GEOMGUI_Selection::contextParameter( const QString& p ) const
+QVariant GEOMGUI_Selection::parameter( const QString& p ) const
+{
+  QVariant v;
+  if ( p == "isOCC" )
+    v = activeViewType() == OCCViewer_Viewer::Type();
+  else if ( p == "selectionmode" )
+    v = selectionMode();
+  else if ( p == "hasImported" )
+    v = hasImported();
+  else if ( p == "allImported" )
+    v = allImported();
+  else
+    v = LightApp_Selection::parameter( p );
+  return v;
+}
+
+//QVariant GEOMGUI_Selection::objectParameter( const int idx, const QString& p ) const
+QVariant GEOMGUI_Selection::parameter( const int idx, const QString& p ) const
 {
-//  if      ( p == "isVisible"   )    return QVariant( isVisible( ind ) );
-// parameter isVisible is calculated in base SalomeApp_Selection
-//  else
-  if( p == "type" )
-    return QVariant( typeName( ind ) );
+  QVariant v;
+  if ( p == "type" )
+    v = typeName( idx );
+  else if ( p == "typeid" )
+    v = typeId( idx );
   else if ( p == "displaymode" )
-    return QVariant( displayMode( ind ) );
+    v = displayMode( idx );
   else if ( p == "isAutoColor" )
-    return QVariant( isAutoColor( ind ) );
+    v = isAutoColor( idx );
+  else if ( p == "isVectorsMode" )
+    v = isVectorsMode( idx );
+  else if ( p == "topLevel" )
+    v = topLevel( idx );
+  else if ( p == "hasHiddenChildren" )
+    v = hasHiddenChildren( idx );
+  else if ( p == "hasShownChildren" )
+    v = hasShownChildren( idx );
+  else if ( p == "compoundOfVertices" )
+    v = compoundOfVertices( idx );
+  else if ( p == "imported" )
+    v = isImported( idx );
+  else if ( p == "isPhysicalMaterial" )
+    v = isPhysicalMaterial(idx);
   else
-    return LightApp_Selection::parameter( ind, p );
+    v = LightApp_Selection::parameter( idx, p );
+
+  return v;
+}
+
+// the method to skip temporary objects from selection (called from LightApp)
+bool GEOMGUI_Selection::processOwner( const LightApp_DataOwner* theOwner )
+{
+  return !theOwner->entry().contains("_");
 }
 
 QString GEOMGUI_Selection::typeName( const int index ) const
 {
   if ( isComponent( index ) )
     return "Component";
+
+  static QString aGroup( "Group" );
+  static QString aShape( "Shape" );
+  static QString anUnknown( "Unknown" );
+
   GEOM::GEOM_Object_var anObj = getObject( index );
   if ( !CORBA::is_nil( anObj ) ) {
     const int aGeomType = anObj->GetType();
     if ( aGeomType == GEOM_GROUP )
-      return "Group";
+      return aGroup;
     else
-      return "Shape";
+      return aShape;
   }
-  return "Unknown";
+  return anUnknown;
+}
+
+int GEOMGUI_Selection::typeId( const int index ) const
+{
+  int aType = -1;
+  GEOM::GEOM_Object_var anObj = getObject( index );
+  if ( !CORBA::is_nil( anObj ) )
+    aType = (int)anObj->GetShapeType();
+  return aType;
 }
 
 bool GEOMGUI_Selection::isVisible( const int index ) const
 {
-  GEOM::GEOM_Object_var obj = getObject( index );
-  SALOME_View* view = GEOM_Displayer::GetActiveView();
-  if ( !CORBA::is_nil( obj ) && view ) {
-    Handle(SALOME_InteractiveObject) io = new SALOME_InteractiveObject( entry( index ).toLatin1().constData(), "GEOM", "TEMP_IO" );
-    return view->isVisible( io );
+  bool res = false;
+
+#ifdef USE_VISUAL_PROP_MAP
+  bool found = false;
+  QVariant v = visibleProperty( entry( index ), VISIBILITY_PROP );
+  if ( v.canConvert( QVariant::Bool ) ) {
+    res = v.toBool();
+    found = true;
   }
-  return false;
+
+  if ( !found ) {
+#endif
+    GEOM::GEOM_Object_var obj = getObject( index );
+    SALOME_View* view = GEOM_Displayer::GetActiveView();
+    if ( !CORBA::is_nil( obj ) && view ) {
+      Handle(SALOME_InteractiveObject) io = new SALOME_InteractiveObject( entry( index ).toLatin1().constData(), "GEOM", "TEMP_IO" );
+      res = view->isVisible( io );
+    }
+#ifdef USE_VISUAL_PROP_MAP
+  }
+#endif
+
+  return res;
 }
 
 bool GEOMGUI_Selection::isAutoColor( const int index ) const
@@ -122,74 +245,256 @@ bool GEOMGUI_Selection::isAutoColor( const int index ) const
   return false;
 }
 
+bool GEOMGUI_Selection::isImported( const int index ) const
+{
+  GEOM::GEOM_Object_var obj = getObject( index );
+  if ( !CORBA::is_nil( obj ) )
+    return obj->GetType() == GEOM_IMPORT;
+  return false;
+}
+
+bool GEOMGUI_Selection::hasImported() const
+{
+  bool res = false;
+  for ( int i = 0; i < count() && !res; i++ )
+    res = isImported( i );
+  return res;
+}
+
+bool GEOMGUI_Selection::allImported() const
+{
+  bool res = true;
+  for ( int i = 0; i < count() && res; i++ )
+    res = isImported( i );
+  return res;
+}
+
+QVariant GEOMGUI_Selection::visibleProperty( const QString& entry, const QString& propName ) const
+{
+  QVariant v;
+  LightApp_Study* aStudy = study();
+  if ( aStudy ) {
+    LightApp_Application* anApp = ::qobject_cast<LightApp_Application*>( aStudy->application() );
+    if ( anApp && anApp->activeViewManager() ) {
+      int id = anApp->activeViewManager()->getGlobalId();
+      v = aStudy->getObjectProperty( id, entry, propName, QVariant() );
+    }
+  }
+  return v;
+}
+
 QString GEOMGUI_Selection::displayMode( const int index ) const
 {
-  SALOME_View* view = GEOM_Displayer::GetActiveView();
+  QString res;
   QString viewType = activeViewType();
-  if ( view /*fix for 9320==>*/&& ( viewType == OCCViewer_Viewer::Type() || viewType == SVTK_Viewer::Type() ) ) {
-    SALOME_Prs* prs = view->CreatePrs( entry( index ).toLatin1().constData() );
-    if ( prs ) {
-      if ( viewType == OCCViewer_Viewer::Type() ) { // assuming OCC
-       SOCC_Prs* occPrs = (SOCC_Prs*) prs;
-       AIS_ListOfInteractive lst;
-       occPrs->GetObjects( lst );
-       if ( lst.Extent() ) {
-         Handle(AIS_InteractiveObject) io = lst.First();
-         if ( !io.IsNull() ) {
-           int dm = io->DisplayMode();
-            if ( dm == AIS_WireFrame )
-             return "Wireframe";
-           else if ( dm == AIS_Shaded )
-             return "Shading";
-           else { // return default display mode of AIS_InteractiveContext
-             OCCViewer_Viewer* occViewer = (OCCViewer_Viewer*) SUIT_Session::session()->activeApplication()->desktop(
-                                            )->activeWindow()->getViewManager()->getViewModel();
-             Handle(AIS_InteractiveContext) ic = occViewer->getAISContext();
-             dm = ic->DisplayMode();
-             if ( dm == AIS_WireFrame )
-               return "Wireframe";
-             else if ( dm == AIS_Shaded )
-               return "Shading";
+#ifdef USE_VISUAL_PROP_MAP
+  QVariant v = visibleProperty( entry( index ), DISPLAY_MODE_PROP );
+  if ( v.canConvert( QVariant::Int ) ) {
+    int dm = v.toInt();
+    if ( viewType == OCCViewer_Viewer::Type() ) {
+      OCC_DISPLAY_MODE_TO_STRING( res, dm );
+    } else if ( viewType == SVTK_Viewer::Type() ) {
+      VTK_DISPLAY_MODE_TO_STRING( res, dm );
+    }
+  }
+
+  if ( res.isEmpty() ) {
+#endif
+    SALOME_View* view = GEOM_Displayer::GetActiveView();
+    if ( view /*fix for 9320==>*/&& ( viewType == OCCViewer_Viewer::Type() || viewType == SVTK_Viewer::Type() ) ) {
+      SALOME_Prs* prs = view->CreatePrs( entry( index ).toLatin1().constData() );
+      if ( prs ) {
+       if ( viewType == OCCViewer_Viewer::Type() ) { // assuming OCC
+         SOCC_Prs* occPrs = (SOCC_Prs*) prs;
+         AIS_ListOfInteractive lst;
+         occPrs->GetObjects( lst );
+         if ( lst.Extent() ) {
+           Handle(AIS_InteractiveObject) io = lst.First();
+           if ( !io.IsNull() ) {
+        int dm;
+        Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(io);
+        if(!aSh.IsNull()) {
+          dm = aSh->isTopLevel() ? aSh->prevDisplayMode() : aSh->DisplayMode();
+        } else {
+          dm = io->DisplayMode();
+        }
+             OCC_DISPLAY_MODE_TO_STRING( res, dm );
+             if ( res.isEmpty() ) { // return default display mode of AIS_InteractiveContext
+               OCCViewer_Viewer* occViewer = (OCCViewer_Viewer*)SUIT_Session::session()->activeApplication()->
+                 desktop()->activeWindow()->getViewManager()->getViewModel();
+               Handle(AIS_InteractiveContext) ic = occViewer->getAISContext();
+               dm = ic->DisplayMode();
+               OCC_DISPLAY_MODE_TO_STRING( res, dm );
+             }
            }
          }
        }
+  else if ( viewType == SVTK_Viewer::Type() ) { // assuming VTK
+         SVTK_Prs* vtkPrs = dynamic_cast<SVTK_Prs*>( prs );
+         vtkActorCollection* lst = vtkPrs ? vtkPrs->GetObjects() : 0;
+         if ( lst ) {
+           lst->InitTraversal();
+           vtkActor* actor = lst->GetNextActor();
+           if ( actor ) {
+             SALOME_Actor* salActor = dynamic_cast<SALOME_Actor*>( actor );
+             if ( salActor ) {
+               int dm = salActor->getDisplayMode();
+               VTK_DISPLAY_MODE_TO_STRING( res, dm );
+             } // if ( salome actor )
+           } // if ( actor )
+         } // if ( lst == vtkPrs->GetObjects() )
+       } // if VTK
       }
-      else if ( viewType == SVTK_Viewer::Type() ) { // assuming VTK
-       SVTK_Prs* vtkPrs = dynamic_cast<SVTK_Prs*>( prs );
-       vtkActorCollection* lst = vtkPrs ? vtkPrs->GetObjects() : 0;
-       if ( lst ) {
-         lst->InitTraversal();
-         vtkActor* actor = lst->GetNextActor();
-         if ( actor ) {
-           SALOME_Actor* salActor = dynamic_cast<SALOME_Actor*>( actor );
-           if ( salActor ) {
-             int dm = salActor->getDisplayMode();
-             if ( dm == 0 )
-               return "Wireframe";
-             else if ( dm == 1 )
-               return "Shading";
-           } // if ( salome actor )
-         } // if ( actor )
-       } // if ( lst == vtkPrs->GetObjects() )
-      } // if VTK
     }
+
+#ifdef USE_VISUAL_PROP_MAP
   }
-  return "";
+#endif
+
+  return res;
 }
 
-bool GEOMGUI_Selection::isComponent( const int index ) const
+bool GEOMGUI_Selection::isVectorsMode( const int index ) const
 {
+  bool res = false;
+
+#ifdef USE_VISUAL_PROP_MAP
+  bool found = false;
+  QVariant v = visibleProperty( entry( index ), VECTOR_MODE_PROP );
+  if ( v.canConvert( QVariant::Bool ) ) {
+    res = v.toBool();
+    found = true;
+  }
+
+  if ( !found ) {
+#endif
+    SALOME_View* view = GEOM_Displayer::GetActiveView();
+    QString viewType = activeViewType();
+    if ( view && ( viewType == OCCViewer_Viewer::Type() || viewType == SVTK_Viewer::Type() ) ) {
+      SALOME_Prs* prs = view->CreatePrs( entry( index ).toLatin1().constData() );
+      if ( prs ) {
+       if ( viewType == OCCViewer_Viewer::Type() ) { // assuming OCC
+         SOCC_Prs* occPrs = (SOCC_Prs*) prs;
+         AIS_ListOfInteractive lst;
+         occPrs->GetObjects( lst );
+         if ( lst.Extent() ) {
+           Handle(AIS_InteractiveObject) io = lst.First();
+           if ( !io.IsNull() ) {
+             Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(io);
+             if ( !aSh.IsNull() )
+               res = aSh->isShowVectors();
+           }
+         }
+       } else if ( viewType == SVTK_Viewer::Type() ) { // assuming VTK
+         SVTK_Prs* vtkPrs = dynamic_cast<SVTK_Prs*>( prs );
+         vtkActorCollection* lst = vtkPrs ? vtkPrs->GetObjects() : 0;
+         if ( lst ) {
+           lst->InitTraversal();
+           vtkActor* actor = lst->GetNextActor();
+           if ( actor ) {
+             GEOM_Actor* aGeomActor = GEOM_Actor::SafeDownCast(actor);
+             if ( aGeomActor )
+               res = aGeomActor->GetVectorMode();
+           }
+         }
+       }
+      }
+    }
+#ifdef USE_VISUAL_PROP_MAP
+  }
+#endif
+
+  return res;
+}
+
+bool GEOMGUI_Selection::hasChildren( const _PTR(SObject)& obj )
+{
+  bool ok = false;
+  if ( obj ) {
+    _PTR(ChildIterator) it ( obj->GetStudy()->NewChildIterator( obj ) );
+    for ( ; it->More() && !ok; it->Next() ) {
+      _PTR(SObject) child = it->Value();
+      if ( child ) {
+        _PTR(SObject) refObj;
+        if ( child->ReferencedObject( refObj ) ) continue; // omit references
+        if ( child->GetName() != "" ) ok = true;
+      }
+    }
+  }
+  return ok;
+}
+
+bool GEOMGUI_Selection::expandable( const _PTR(SObject)& obj )
+{
+  bool exp = true;
+  _PTR(GenericAttribute) anAttr;
+  if ( obj && obj->FindAttribute( anAttr, "AttributeExpandable" ) ) {
+    _PTR(AttributeExpandable) aAttrExp = anAttr;
+    exp = aAttrExp->IsExpandable();
+  }
+  return exp;
+}
+
+bool GEOMGUI_Selection::isCompoundOfVertices( GEOM::GEOM_Object_ptr obj )
+{
+  bool ret = false;
+  /*
   SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>
-    (SUIT_Session::session()->activeApplication()->activeStudy());
+  (SUIT_Session::session()->activeApplication()->activeStudy());*/
+  if ( /*appStudy && */!CORBA::is_nil( obj ) )
+    ret = obj->GetShapeType() == GEOM::COMPOUND && obj->GetMaxShapeType() == GEOM::VERTEX;
+  return ret;
+}
 
-  if ( appStudy && index >= 0 && index < count() )  {
+bool GEOMGUI_Selection::hasHiddenChildren( const int index ) const
+{
+  bool OK = false;
+  SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( study() );
+
+  if ( appStudy ) {
+    QString anEntry = entry( index );
     _PTR(Study) study = appStudy->studyDS();
+    if ( study && !anEntry.isEmpty() ) {
+      _PTR(SObject) aSO( study->FindObjectID( anEntry.toStdString() ) );
+      OK = !expandable( aSO ) && hasChildren( aSO );
+    }
+  }
+  return OK;
+}
+
+bool GEOMGUI_Selection::hasShownChildren( const int index ) const
+{
+  bool OK = false;
+  SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( study() );
+
+  if ( appStudy )  {
     QString anEntry = entry( index );
+    _PTR(Study) study = appStudy->studyDS();
+    if ( study && !anEntry.isEmpty() ) {
+      _PTR(SObject) aSO( study->FindObjectID( anEntry.toStdString() ) );
+      OK = expandable( aSO ) && hasChildren( aSO );
+    }
+  }
+  return OK;
+}
+
+bool GEOMGUI_Selection::compoundOfVertices( const int index ) const
+{
+  GEOM::GEOM_Object_var obj = getObject( index );
+  return isCompoundOfVertices( obj );
+}
+
+bool GEOMGUI_Selection::isComponent( const int index ) const
+{
+  SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( study() );
 
+  if ( appStudy ) {
+    QString anEntry = entry( index );
+    _PTR(Study) study = appStudy->studyDS();
     if ( study && !anEntry.isNull() ) {
       _PTR(SObject) aSO( study->FindObjectID( anEntry.toStdString() ) );
       if ( aSO && aSO->GetFatherComponent() )
-       return aSO->GetFatherComponent()->GetIOR() == aSO->GetIOR();
+        return aSO->GetFatherComponent()->GetIOR() == aSO->GetIOR();
     }
   }
   return false;
@@ -197,43 +502,123 @@ bool GEOMGUI_Selection::isComponent( const int index ) const
 
 GEOM::GEOM_Object_ptr GEOMGUI_Selection::getObject( const int index ) const
 {
-  SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>
-    (SUIT_Session::session()->activeApplication()->activeStudy());
-
-  if (appStudy && index >= 0 && index < count()) {
-    _PTR(Study) study = appStudy->studyDS();
-    QString anEntry = entry(index);
-
-    if (study && !anEntry.isNull()) {
-      _PTR(SObject) aSO (study->FindObjectID(anEntry.toStdString()));
-      if (aSO) {
-        CORBA::Object_var anObj = GeometryGUI::ClientSObjectToObject(aSO);
-       return GEOM::GEOM_Object::_narrow(anObj);
-      }
-    }
-  }
-  return GEOM::GEOM_Object::_nil();
+  GEOM::GEOM_Object_var o;
+  if ( 0 <= index && index < myObjects.size() )
+    o = GEOM::GEOM_Object::_duplicate( myObjects[index] );
+  return o._retn();
 }
 
 QString GEOMGUI_Selection::selectionMode() const
 {
-  SalomeApp_Application* app = (SalomeApp_Application*)(SUIT_Session::session()->activeApplication());
-  if (app) {
+  SalomeApp_Application* app = dynamic_cast<SalomeApp_Application*>( study()->application() );
+  if ( app ) {
     GeometryGUI* aGeomGUI = dynamic_cast<GeometryGUI*>( app->module( "Geometry" ) );
-    if (aGeomGUI) {
-      switch (aGeomGUI->getLocalSelectionMode())
+    if ( aGeomGUI ) {
+      switch ( aGeomGUI->getLocalSelectionMode() )
       {
-       case GEOM_POINT      : return "VERTEX";
-       case GEOM_EDGE       : return "EDGE";
-       case GEOM_WIRE       : return "WIRE";
-       case GEOM_FACE       : return "FACE";
-       case GEOM_SHELL      : return "SHELL";
-       case GEOM_SOLID      : return "SOLID";
-       case GEOM_COMPOUND   : return "COMPOUND";
-       case GEOM_ALLOBJECTS : return "ALL";
-       default: return "";
+        case GEOM_POINT      : return "VERTEX";
+        case GEOM_EDGE       : return "EDGE";
+        case GEOM_WIRE       : return "WIRE";
+        case GEOM_FACE       : return "FACE";
+        case GEOM_SHELL      : return "SHELL";
+        case GEOM_SOLID      : return "SOLID";
+        case GEOM_COMPOUND   : return "COMPOUND";
+        case GEOM_ALLOBJECTS : return "ALL";
+        default: return "";
       }
     }
   }
   return "";
 }
+
+bool GEOMGUI_Selection::topLevel( const int index ) const {
+  bool res = false;
+
+#ifdef USE_VISUAL_PROP_MAP
+  bool found = false;
+  QVariant v = visibleProperty( entry( index ), TOP_LEVEL_PROP );
+  if ( v.canConvert<bool>() ) {
+    res = v.toBool();
+    found = true;
+  }
+
+  if ( !found ) {
+#endif
+    SALOME_View* view = GEOM_Displayer::GetActiveView();
+    QString viewType = activeViewType();
+    if ( view && viewType == OCCViewer_Viewer::Type() ) {
+      SALOME_Prs* prs = view->CreatePrs( entry( index ).toLatin1().constData() );
+      if ( prs ) {
+       if ( viewType == OCCViewer_Viewer::Type() ) { // assuming OCC
+         SOCC_Prs* occPrs = (SOCC_Prs*) prs;
+         AIS_ListOfInteractive lst;
+         occPrs->GetObjects( lst );
+         if ( lst.Extent() ) {
+           Handle(AIS_InteractiveObject) io = lst.First();
+           if ( !io.IsNull() ) {
+             Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(io);
+             if ( !aSh.IsNull() )
+               res = (bool)aSh->isTopLevel();
+           }
+         }
+       }
+      }
+    }
+  }
+  return res;
+}
+
+bool GEOMGUI_Selection::isPhysicalMaterial( const int idx ) const{
+   bool res = false;
+
+#ifdef USE_VISUAL_PROP_MAP
+   bool found = false;
+   QVariant v = visibleProperty( entry( idx ), MATERIAL_PROP );
+   if ( v.canConvert<QString>() ) {
+     Material_Model material;
+     material.fromProperties( v.toString() );
+     res = material.isPhysical();
+     found = true;
+   }
+
+   if ( !found ) {
+#endif
+     SALOME_View* view = GEOM_Displayer::GetActiveView();
+     QString viewType = activeViewType();
+     if ( view ) {
+       SALOME_Prs* prs = view->CreatePrs( entry( idx ).toLatin1().constData() );
+       if ( prs ) {
+         if ( viewType == OCCViewer_Viewer::Type() ) { // assuming OCC
+           SOCC_Prs* occPrs = (SOCC_Prs*) prs;
+           AIS_ListOfInteractive lst;
+           occPrs->GetObjects( lst );
+           if ( lst.Extent() ) {
+             Handle(AIS_InteractiveObject) io = lst.First();
+             if ( !io.IsNull() ) {
+               Handle(GEOM_AISShape) aSh = Handle(GEOM_AISShape)::DownCast(io);
+               if ( !aSh.IsNull() )
+                 res = (bool) aSh->Attributes()->ShadingAspect()->
+                        Material(Aspect_TOFM_BOTH_SIDE).MaterialType( Graphic3d_MATERIAL_PHYSIC );
+             }
+           }
+         }
+         else if ( viewType == SVTK_Viewer::Type() ) { // assuming VTK
+               SVTK_Prs* vtkPrs = dynamic_cast<SVTK_Prs*>( prs );
+               vtkActorCollection* lst = vtkPrs ? vtkPrs->GetObjects() : 0;
+               if ( lst ) {
+                 lst->InitTraversal();
+                 vtkActor* actor = lst->GetNextActor();
+                 if ( actor ) {
+              GEOM_Actor* aGeomGActor = GEOM_Actor::SafeDownCast( actor );
+                   if ( aGeomGActor ) {
+                GEOM_VTKPropertyMaterial* mat  = GEOM_VTKPropertyMaterial::SafeDownCast(aGeomGActor->GetProperty());
+                res = mat->GetPhysical();
+                   } // if ( salome actor )
+                 } // if ( actor )
+          } // if ( lst == vtkPrs->GetObjects() )
+         }
+       }
+     }
+   }
+   return res;
+}