1 // GEOM GEOMGUI : GUI for Geometry component
3 // Copyright (C) 2003 OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License.
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 // Lesser General Public License for more details.
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
24 // File : RepairGUI_GlueDlg.cxx
25 // Author : Lucien PIGNOLONI
29 #include "OCCViewer_ViewModel.h"
31 #include "RepairGUI_GlueDlg.h"
32 #include "DlgRef_1Sel_Ext.h"
33 #include "GEOMImpl_Types.hxx"
35 #include "QtxDblSpinBox.h"
36 #include "SalomeApp_Application.h"
37 #include "LightApp_SelectionMgr.h"
38 #include "SalomeApp_Study.h"
39 #include "SalomeApp_Tools.h"
41 #include "SUIT_Session.h"
42 #include "SUIT_MessageBox.h"
43 #include "SUIT_OverrideCursor.h"
45 #include "SALOME_ListIteratorOfListIO.hxx"
47 #include <TCollection_AsciiString.hxx>
49 #include <qapplication.h>
51 #include <qcheckbox.h>
57 #define DEFAULT_TOLERANCE_VALUE 1e-07
59 //=================================================================================
60 // class : RepairGUI_GlueDlg()
61 // purpose : Constructs a RepairGUI_GlueDlg which is a child of 'parent', with the
62 // name 'name' and widget flags set to 'f'.
63 // The dialog will by default be modeless, unless you set 'modal' to
64 // TRUE to construct a modal dialog.
65 //=================================================================================
66 RepairGUI_GlueDlg::RepairGUI_GlueDlg(GeometryGUI* theGeometryGUI, QWidget* parent,
67 const char* name, bool modal, WFlags fl)
68 : GEOMBase_Skeleton(theGeometryGUI, parent, name, modal, WStyle_Customize |
69 WStyle_NormalBorder | WStyle_Title | WStyle_SysMenu),
72 QPixmap image0 (SUIT_Session::session()->resourceMgr()->loadPixmap("GEOM",tr("ICON_DLG_GLUE_FACES")));
73 QPixmap image2 (SUIT_Session::session()->resourceMgr()->loadPixmap("GEOM",tr("ICON_DLG_GLUE_FACES2")));
74 QPixmap image1 (SUIT_Session::session()->resourceMgr()->loadPixmap("GEOM",tr("ICON_SELECT")));
76 setCaption(tr("GEOM_GLUE_TITLE"));
78 /***************************************************************/
79 GroupConstructors->setTitle(tr("GEOM_GLUE_TITLE"));
80 RadioButton1->setPixmap(image0);
81 RadioButton2->setPixmap(image2);
82 //RadioButton2->close(TRUE);
83 RadioButton3->close(TRUE);
85 GroupPoints = new DlgRef_1Sel_Ext(this, "GroupPoints");
86 GroupPoints->GroupBox1->setTitle(tr("GEOM_GLUE"));
87 GroupPoints->TextLabel1->setText(tr("GEOM_SELECTED_SHAPE"));
88 GroupPoints->PushButton1->setPixmap(image1);
89 GroupPoints->LineEdit1->setReadOnly( true );
91 int aWidth = GroupPoints->TextLabel1->sizeHint().width() +
92 GroupPoints->PushButton1->sizeHint().width() +
93 GroupPoints->getGroupBoxLayout()->spacing();
95 Layout1->addWidget(GroupPoints, 2, 0);
97 QHBox* aHBox = new QHBox( GroupPoints->GroupBox1 );
98 aHBox->setSpacing( 5 );
100 (new QLabel( tr( "GEOM_TOLERANCE" ), aHBox ))->setFixedWidth( aWidth );
101 myTolEdt = new QtxDblSpinBox( 0, 100, 1e-7, aHBox );
102 myTolEdt->setSizePolicy( QSizePolicy( QSizePolicy::Expanding, QSizePolicy::Fixed ) );
103 myTolEdt->setPrecision( 10 );
104 myTolEdt->setValue( DEFAULT_TOLERANCE_VALUE );
105 GroupPoints->getGroupBoxLayout()->addWidget( aHBox, 3, 0 );
106 /***************************************************************/
108 GroupPoints2 = new DlgRef_1Sel_Ext(this, "GroupPoints2");
109 GroupPoints2->GroupBox1->setTitle(tr("GEOM_GLUE"));
110 GroupPoints2->TextLabel1->setText(tr("GEOM_SELECTED_SHAPE"));
111 GroupPoints2->PushButton1->setPixmap(image1);
112 GroupPoints2->LineEdit1->setReadOnly( true );
113 Layout1->addWidget(GroupPoints2, 2, 0);
115 QGrid* aGrid = new QGrid( 2, Qt::Horizontal, GroupPoints2->GroupBox1 );
116 aGrid->setSpacing( 5 );
117 (new QLabel( tr( "GEOM_TOLERANCE" ), aGrid ))->setFixedWidth( aWidth );;
118 myTolEdt2 = new QtxDblSpinBox( 0, 100, 1e-7, aGrid );
119 myTolEdt2->setPrecision( 10 );
120 myTolEdt2->setValue( DEFAULT_TOLERANCE_VALUE );
121 myTolEdt2->setSizePolicy( QSizePolicy( QSizePolicy::Expanding, QSizePolicy::Fixed ) );
122 (new QLabel( tr( "GLUE_FACES" ), aGrid ))->setFixedWidth( aWidth );;
123 myDetectBtn = new QPushButton( tr( "GEOM_DETECT" ), aGrid );
124 myDetectBtn->setSizePolicy( QSizePolicy( QSizePolicy::Expanding, QSizePolicy::Fixed ) );
125 mySubShapesChk = new QCheckBox( tr( "SELECT_FACES" ), aGrid );
126 GroupPoints2->getGroupBoxLayout()->addWidget( aGrid, 3, 0 );
127 /***************************************************************/
129 setHelpFileName("glue_faces.htm");
131 // Disable second way of gluing if OCC viewer is not active one
132 if (SUIT_Session::session()->activeApplication()->desktop()->activeWindow()->getViewManager()->getType()
133 != OCCViewer_Viewer::Type())
134 RadioButton2->setEnabled(false);
140 //=================================================================================
141 // function : ~RepairGUI_GlueDlg()
142 // purpose : Destroys the object and frees any allocated resources
143 //=================================================================================
144 RepairGUI_GlueDlg::~RepairGUI_GlueDlg()
149 //=================================================================================
152 //=================================================================================
153 void RepairGUI_GlueDlg::Init()
156 myEditCurrentArgument = GroupPoints->LineEdit1;
158 myObject = GEOM::GEOM_Object::_nil();
160 //myGeomGUI->SetState( 0 );
161 //globalSelection( GEOM_COMPOUND );
163 /* signals and slots connections */
164 connect(buttonOk, SIGNAL(clicked()), this, SLOT(ClickOnOk()));
165 connect(buttonApply, SIGNAL(clicked()), this, SLOT(ClickOnApply()));
166 connect(GroupConstructors, SIGNAL(clicked(int)), this, SLOT(ConstructorsClicked(int)));
168 connect(GroupPoints->PushButton1, SIGNAL(clicked()), this, SLOT(SetEditCurrentArgument()));
169 connect(GroupPoints->LineEdit1, SIGNAL(returnPressed()), this, SLOT(LineEditReturnPressed()));
171 connect(GroupPoints2->PushButton1, SIGNAL(clicked()), this, SLOT(SetEditCurrentArgument()));
172 connect(GroupPoints2->LineEdit1, SIGNAL(returnPressed()), this, SLOT(LineEditReturnPressed()));
173 connect( myTolEdt2, SIGNAL( valueChanged( double ) ), this, SLOT( onTolerChanged( double ) ) );
174 connect( mySubShapesChk, SIGNAL( stateChanged( int ) ), this, SLOT( onSubShapesChk() ) );
176 connect( ((SalomeApp_Application*)(SUIT_Session::session()->activeApplication()))->selectionMgr(),
177 SIGNAL(currentSelectionChanged()), this, SLOT(SelectionIntoArgument()) );
179 connect(myDetectBtn, SIGNAL(clicked()), this, SLOT(onDetect()));
181 initName( tr( "GLUE_NEW_OBJ_NAME" ) );
183 ConstructorsClicked(0);
190 //=================================================================================
191 // function : ConstructorsClicked()
192 // purpose : Radio button management
193 //=================================================================================
194 void RepairGUI_GlueDlg::ConstructorsClicked( int constructorId )
196 if ( myCurrConstrId == constructorId )
199 disconnect(((SalomeApp_Application*)(SUIT_Session::session()->activeApplication()))->selectionMgr(), 0, this, 0);
201 switch ( constructorId )
205 GroupPoints2->hide();
208 GroupPoints->LineEdit1->setText( "" );
209 myEditCurrentArgument = GroupPoints->LineEdit1;
211 if ( myCurrConstrId >= 0 ) // i.e. it is not initialisation
213 // copy tolerance from previous tolerance field
214 myTolEdt->setValue( myTolEdt2->value() );
223 GroupPoints2->show();
224 GroupPoints->LineEdit1->setText("");
225 myEditCurrentArgument = GroupPoints2->LineEdit1;
227 if ( myCurrConstrId >= 0 ) // i.e. it is not initialisation
229 // copy tolerance from previous tolerance field
230 myTolEdt2->setValue( myTolEdt->value() );
231 mySubShapesChk->setChecked( false );
239 myCurrConstrId = constructorId;
241 myEditCurrentArgument->setFocus();
243 connect(((SalomeApp_Application*)(SUIT_Session::session()->activeApplication()))->selectionMgr(),
244 SIGNAL(currentSelectionChanged()), this, SLOT(SelectionIntoArgument()));
246 qApp->processEvents();
248 QSize aSize = minimumSizeHint();
249 resize( width(), aSize.height() );
254 SelectionIntoArgument();
258 //=================================================================================
259 // function : ClickOnOk()
260 // purpose : Same than click on apply but close this dialog.
261 //=================================================================================
262 void RepairGUI_GlueDlg::ClickOnOk()
264 if ( ClickOnApply() )
269 //=================================================================================
270 // function : ClickOnApply()
272 //=================================================================================
273 bool RepairGUI_GlueDlg::ClickOnApply()
275 if ( !onAcceptLocal() )
280 //GroupPoints->LineEdit1->setText("");
281 //myObject = GEOM::GEOM_Object::_nil();
283 //globalSelection( GEOM_COMPOUND );
285 ConstructorsClicked( getConstructorId() );
291 //=================================================================================
292 // function : SelectionIntoArgument()
293 // purpose : Called when selection
294 //=================================================================================
295 void RepairGUI_GlueDlg::SelectionIntoArgument()
297 if ( mySubShapesChk->isChecked() && getConstructorId() == 1 )
301 myEditCurrentArgument->setText("");
302 myObject = GEOM::GEOM_Object::_nil();
304 if ( IObjectCount() == 1 ) {
305 Handle(SALOME_InteractiveObject) anIO = firstIObject();
306 Standard_Boolean aRes;
307 myObject = GEOMBase::ConvertIOinGEOMObject( anIO, aRes );
309 myEditCurrentArgument->setText( GEOMBase::GetName( myObject ) );
314 //=================================================================================
315 // function : SetEditCurrentArgument()
317 //=================================================================================
318 void RepairGUI_GlueDlg::SetEditCurrentArgument()
320 const QObject* send = sender();
321 if ( send == GroupPoints->PushButton1 || send == GroupPoints2->PushButton1 ) {
322 myEditCurrentArgument->setFocus();
323 SelectionIntoArgument();
328 //=================================================================================
329 // function : LineEditReturnPressed()
331 //=================================================================================
332 void RepairGUI_GlueDlg::LineEditReturnPressed()
334 const QObject* send = sender();
335 if( send == GroupPoints->LineEdit1 ) {
336 myEditCurrentArgument = GroupPoints->LineEdit1;
337 GEOMBase_Skeleton::LineEditReturnPressed();
339 else if( send == GroupPoints2->LineEdit1 ) {
340 myEditCurrentArgument = GroupPoints2->LineEdit1;
341 GEOMBase_Skeleton::LineEditReturnPressed();
346 //=================================================================================
347 // function : ActivateThisDialog()
349 //=================================================================================
350 void RepairGUI_GlueDlg::ActivateThisDialog()
352 GEOMBase_Skeleton::ActivateThisDialog();
353 connect(((SalomeApp_Application*)(SUIT_Session::session()->activeApplication()))->selectionMgr(),
354 SIGNAL(currentSelectionChanged()), this, SLOT(SelectionIntoArgument()));
356 //GroupPoints->LineEdit1->setText("");
357 //GroupPoints2->LineEdit1->setText("");
358 //myObject = GEOM::GEOM_Object::_nil();
360 //myGeomGUI->SetState( 0 );
361 //globalSelection( GEOM_COMPOUND );
366 //=================================================================================
367 // function : enterEvent()
368 // purpose : Mouse enter onto the dialog to activate it
369 //=================================================================================
370 void RepairGUI_GlueDlg::enterEvent(QEvent* e)
372 if ( !GroupConstructors->isEnabled() )
373 ActivateThisDialog();
376 //=================================================================================
377 // function : closeEvent()
379 //=================================================================================
380 void RepairGUI_GlueDlg::closeEvent(QCloseEvent* e)
382 //myGeomGUI->SetState( -1 );
383 GEOMBase_Skeleton::closeEvent( e );
387 //=================================================================================
388 // function : createOperation
390 //=================================================================================
391 GEOM::GEOM_IOperations_ptr RepairGUI_GlueDlg::createOperation()
393 return getGeomEngine()->GetIShapesOperations( getStudyId() );
396 //=================================================================================
397 // function : isValid
399 //=================================================================================
400 bool RepairGUI_GlueDlg::isValid( QString& msg )
402 return !myObject->_is_nil() && ( IsPreview() || myTolEdt->value() > 0. );
405 //=================================================================================
406 // function : execute
408 //=================================================================================
409 bool RepairGUI_GlueDlg::execute( ObjectList& objects )
411 bool aResult = false;
414 switch ( getConstructorId() )
418 GEOM::GEOM_Object_var anObj = GEOM::GEOM_IShapesOperations::_narrow
419 ( getOperation() )->MakeGlueFaces( myObject, myTolEdt2->value() );
420 aResult = !anObj->_is_nil();
422 objects.push_back( anObj._retn() );
428 // if this method is used for displaying preview then we must detect glue faces only
429 ObjectList::iterator anIter;
430 for (anIter = myTmpObjs.begin(); anIter != myTmpObjs.end(); ++anIter)
431 objects.push_back( GEOM::GEOM_Object::_duplicate( *anIter ) );
432 return myTmpObjs.size() ? true : false;
435 // Make glue face by list.
436 // Iterate through myTmpObjs and verifies where each object is currently selected or not.
437 QMap<QString, char> selected;
439 // Get names of selected objects
440 SALOME_ListIteratorOfListIO it ( selectedIO() );
441 for (; it.More(); it.Next())
442 selected.insert( it.Value()->getName(), 0 );
444 // Iterate through result and select objects with names from selection
445 // ObjectList toRemoveFromEnggine;
447 ObjectList::iterator anIter;
448 for (anIter = myTmpObjs.begin(); anIter != myTmpObjs.end(); ++anIter)
450 if ( selected.contains( myGeomGUI->getApp()->orb()->object_to_string(*anIter) ) )
451 toGlue.push_back(*anIter);
455 GEOM::ListOfGO_var aListForGlue = new GEOM::ListOfGO();
456 aListForGlue->length( toGlue.size() );
457 ObjectList::iterator anIter3 = toGlue.begin();
458 for ( int i = 0; anIter3 != toGlue.end(); ++anIter3, ++i )
459 aListForGlue[ i ] = *anIter3;
460 GEOM::GEOM_Object_var anObj = GEOM::GEOM_IShapesOperations::_narrow
461 ( getOperation() )->MakeGlueFacesByList( myObject, myTolEdt2->value(), aListForGlue );
463 aResult = !anObj->_is_nil();
466 objects.push_back( anObj._retn() );
468 // Remove from engine useless objects
480 //================================================================
481 // Function : clearShapeBufferLocal
483 //================================================================
484 void RepairGUI_GlueDlg::clearShapeBufferLocal( GEOM::GEOM_Object_ptr theObj )
486 if ( CORBA::is_nil( theObj ) )
489 CORBA::String_var IOR = myGeomGUI->getApp()->orb()->object_to_string( theObj );
490 TCollection_AsciiString asciiIOR( (char *)( IOR.in() ) );
491 myGeomGUI->GetShapeReader().RemoveShapeFromBuffer( asciiIOR );
493 if ( !getStudy() || !( getStudy()->studyDS() ) )
496 _PTR(Study) aStudy = getStudy()->studyDS();
497 _PTR(SObject) aSObj ( aStudy->FindObjectIOR( string( IOR.in() ) ) );
501 _PTR(ChildIterator) anIt ( aStudy->NewChildIterator( aSObj ) );
502 for ( anIt->InitEx( true ); anIt->More(); anIt->Next() ) {
503 _PTR(GenericAttribute) anAttr;
504 if ( anIt->Value()->FindAttribute(anAttr, "AttributeIOR") ) {
505 _PTR(AttributeIOR) anIOR ( anAttr );
506 TCollection_AsciiString asciiIOR( (char*)anIOR->Value().c_str() );
507 myGeomGUI->GetShapeReader().RemoveShapeFromBuffer( asciiIOR );
512 //================================================================
513 // Function : onAccept
514 // Purpose : This method should be called from dialog's slots onOk() and onApply()
515 // It perfroms user input validation, then it
516 // performs a proper operation and manages transactions, etc.
517 //================================================================
518 bool RepairGUI_GlueDlg::onAcceptLocal()
520 if ( !getStudy() || !( getStudy()->studyDS() ) )
523 _PTR(Study) aStudy = getStudy()->studyDS();
525 bool aLocked = aStudy->GetProperties()->IsLocked();
528 MESSAGE("GEOMBase_Helper::onAccept - ActiveStudy is locked");
529 SUIT_MessageBox::warn1 ( (QWidget*)(SUIT_Session::session()->activeApplication()->desktop()),
530 QObject::tr("WRN_WARNING"), QObject::tr("WRN_STUDY_LOCKED"), QObject::tr("BUT_OK") );
535 if ( !isValid( msg ) )
541 erasePreview( false );
547 SUIT_OverrideCursor wc;
549 SUIT_Session::session()->activeApplication()->putInfo( "" );
552 if ( !execute( objects ) )
560 const int nbObjs = objects.size();
561 bool withChildren = false;
562 for ( ObjectList::iterator it = objects.begin(); it != objects.end(); ++it )
567 aName = strlen( getNewObjectName() ) ? GEOMBase::GetDefaultName( getNewObjectName() ) : GEOMBase::GetDefaultName( getPrefix( *it ) );
571 aName = getNewObjectName();
572 // PAL6521: use a prefix, if some dialog box doesn't reimplement getNewObjectName()
573 if ( aName.isEmpty() )
574 aName = GEOMBase::GetDefaultName( getPrefix( *it ) );
576 addInStudy( *it, aName.latin1() );
577 withChildren = false;
578 display( *it, false );
585 SUIT_Session::session()->activeApplication()->putInfo( QObject::tr("GEOM_PRP_DONE") );
592 // JFA 28.12.2004 BEGIN // To enable warnings
593 if ( !getOperation()->_is_nil() )
595 if ( !getOperation()->IsDone() )
598 QString msgw = QObject::tr( getOperation()->GetErrorCode() );
599 SUIT_MessageBox::warn1((QWidget*)(SUIT_Session::session()->activeApplication()->desktop()),
600 QObject::tr( "WRN_WARNING" ),
602 QObject::tr( "BUT_OK" ));
605 // JFA 28.12.2004 END
609 catch( const SALOME::SALOME_Exception& e )
611 SalomeApp_Tools::QtCatchCorbaException( e );
623 //=================================================================================
624 // function : onDetect
626 //=================================================================================
627 void RepairGUI_GlueDlg::onDetect()
631 if ( !isValid( msg ) ) {
636 GEOM::ListOfGO_var aList = GEOM::GEOM_IShapesOperations::_narrow
637 ( getOperation() )->GetGlueFaces( myObject, myTolEdt2->value() );
639 for (int i = 0, n = aList->length(); i < n; i++)
640 myTmpObjs.push_back(GEOM::GEOM_Object::_duplicate(aList[i]));
642 if ( myTmpObjs.size() > 0 )
644 msg = tr( "FACES_FOR_GLUING_ARE_DETECTED" ).arg( myTmpObjs.size() );
645 mySubShapesChk->setChecked( true );
649 msg = tr( "THERE_ARE_NO_FACES_FOR_GLUING" );
652 SUIT_MessageBox::info1( this, tr( "GEOM_FREE_BOUNDS_TLT" ), msg, "Close" );
657 //=================================================================================
658 // function : activateSelection
659 // purpose : Redisplay preview and Activate selection
660 //=================================================================================
661 void RepairGUI_GlueDlg::activateSelection()
665 int anId = getConstructorId();
666 if ( anId == 0 ) // Case of whole gluing
668 disconnect( ((SalomeApp_Application*)(SUIT_Session::session()->activeApplication()))->selectionMgr(),
669 SIGNAL(currentSelectionChanged()), this, SLOT(SelectionIntoArgument()) ) ;
671 globalSelection( GEOM_ALLSHAPES );
672 if (myObject->_is_nil())
673 SelectionIntoArgument();
675 connect( ((SalomeApp_Application*)(SUIT_Session::session()->activeApplication()))->selectionMgr(),
676 SIGNAL(currentSelectionChanged()), this, SLOT(SelectionIntoArgument()) ) ;
678 else // Second case of gluing
680 if ( !mySubShapesChk->isChecked() )
681 globalSelection( GEOM_ALLSHAPES );
684 displayPreview( true, false, false, 2/*line width*/, 1/*display mode*/, Quantity_NOC_RED );
685 globalSelection( GEOM_PREVIEW );
692 //=================================================================================
693 // function : updateButtonState
694 // purpose : Update button state
695 //=================================================================================
696 void RepairGUI_GlueDlg::updateButtonState()
698 int anId = getConstructorId();
699 bool hasMainObj = !myObject->_is_nil();
702 buttonOk->setEnabled( hasMainObj );
703 buttonApply->setEnabled( hasMainObj );
707 bool wasDetected = myTmpObjs.size() ? true : false;
708 buttonOk->setEnabled( hasMainObj && wasDetected );
709 buttonApply->setEnabled( hasMainObj && wasDetected );
710 mySubShapesChk->setEnabled( hasMainObj && wasDetected );
711 myDetectBtn->setEnabled( hasMainObj );
712 if ( !hasMainObj || !wasDetected )
713 mySubShapesChk->setChecked( false );
717 //=================================================================================
718 // function : clearTemporary
719 // purpose : Remove temporary objects from engine
720 //=================================================================================
721 void RepairGUI_GlueDlg::clearTemporary()
723 ObjectList::iterator anIter;
724 for (anIter = myTmpObjs.begin(); anIter != myTmpObjs.end(); ++anIter)
725 getGeomEngine()->RemoveObject(*anIter);
730 //=================================================================================
731 // function : onTolerChanged
732 // purpose : Remove temporary objects from engine
733 //=================================================================================
734 void RepairGUI_GlueDlg::onTolerChanged( double /*theVal*/ )
741 //=================================================================================
742 // function : onSubShapesChk
743 // purpose : Update selection mode
744 //=================================================================================
745 void RepairGUI_GlueDlg::onSubShapesChk()
747 if ( !mySubShapesChk->isChecked() )
753 //=================================================================================
754 // function : ClickOnCancel
755 // purpose : Remove temporary objects from engine and call method of base class
756 //=================================================================================
757 void RepairGUI_GlueDlg::ClickOnCancel()
760 GEOMBase_Skeleton::ClickOnCancel();
763 //================================================================
764 // Function : getEntry
766 //================================================================
767 static string getEntry( GEOM::GEOM_Object_ptr object )
769 SUIT_Session* session = SUIT_Session::session();
770 SalomeApp_Application* app = dynamic_cast<SalomeApp_Application*>( session->activeApplication() );
773 string IOR = app->orb()->object_to_string( object );
776 SalomeApp_Study* study = ( SalomeApp_Study* )app->activeStudy();
777 _PTR(SObject) SO ( study->studyDS()->FindObjectIOR( IOR ) );