]> SALOME platform Git repositories - modules/homard.git/blob - src/HOMARDGUI/HOMARDGUI.cxx
Salome HOME
Correction schema YCAS pour une frontière discrète.
[modules/homard.git] / src / HOMARDGUI / HOMARDGUI.cxx
1 // Copyright (C) 2011-2013  CEA/DEN, EDF R&D
2 //
3 // This library is free software; you can redistribute it and/or
4 // modify it under the terms of the GNU Lesser General Public
5 // License as published by the Free Software Foundation; either
6 // version 2.1 of the License.
7 //
8 // This library is distributed in the hope that it will be useful,
9 // but WITHOUT ANY WARRANTY; without even the implied warranty of
10 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
11 // Lesser General Public License for more details.
12 //
13 // You should have received a copy of the GNU Lesser General Public
14 // License along with this library; if not, write to the Free Software
15 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
16 //
17 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
18 //
19
20 //  File   : HOMARDGUI.cxx
21 //  Author : Paul RASCLE, EDF
22 //  Module : HOMARD
23
24 using namespace std;
25 #include "HOMARDGUI.h"
26
27 // SALOME Includes
28 #include "Utils_ORB_INIT.hxx"
29 #include "Utils_SINGLETON.hxx"
30 #include "SALOME_LifeCycleCORBA.hxx"
31
32 #include "SUIT_ResourceMgr.h"
33 #include "SUIT_MessageBox.h"
34 #include "SUIT_Session.h"
35 #include "SUIT_ViewWindow.h"
36 #include "SUIT_ViewManager.h"
37 #include <SUIT_Desktop.h>
38
39 #include "CAM_Module.h"
40 #include "OB_Browser.h"
41
42 #include "SALOME_ListIO.hxx"
43 #include "SALOME_ListIteratorOfListIO.hxx"
44
45 #include "SalomeApp_Application.h"
46 #include "SalomeApp_DataModel.h"
47 #include "SalomeApp_Study.h"
48 #include "LightApp_SelectionMgr.h"
49 #include "LightApp_Selection.h"
50 #include <LightApp_Preferences.h>
51 #include "SalomeApp_Module.h"
52 #include "SALOMEconfig.h"
53 #include <SALOME_LifeCycleCORBA.hxx>
54
55 #include <utilities.h>
56
57
58 // QT Includes
59 #include <QMenu>
60 #include "MonCreateCase.h"
61 #include "MonCreateIteration.h"
62 #include "MonPursueIteration.h"
63 #include "MonCreateYACS.h"
64 #include "MonEditBoundaryAn.h"
65 #include "MonEditBoundaryDi.h"
66 #include "MonEditCase.h"
67 #include "MonEditHypothesis.h"
68 #include "MonEditIteration.h"
69 #include "MonEditYACS.h"
70 #include "MonEditZone.h"
71 #include "MonMeshInfo.h"
72 #include "MonIterInfo.h"
73 #include "MonEditFile.h"
74 #include "HomardQtCommun.h"
75
76 // BOOST Includes
77 #include <boost/shared_ptr.hpp>
78
79 //Pour le _CAST
80 #include "SALOMEDS_Study.hxx"
81 #include "HOMARDGUI_Utils.h"
82
83 static CORBA::ORB_var _orb;
84
85 //=======================================================================
86 // function : HOMARDGUI()
87 // purpose  : Constructor
88 //=======================================================================
89 HOMARDGUI::HOMARDGUI(const QString&) :
90            SalomeApp_Module( "HOMARD" ) // default name
91 {
92 }
93
94
95 //=======================================================================
96 // function : ~HOMARDGUI()
97 // purpose  : Destructor
98 //=======================================================================
99 HOMARDGUI::~HOMARDGUI()
100 {
101 }
102
103 //=======================================================================
104 // function : InitHOMARDGen
105 // launch HOMARD component and return a handle
106 //=======================================================================
107 HOMARD::HOMARD_Gen_var HOMARDGUI::InitHOMARDGen(SalomeApp_Application* app)
108 {
109   Engines::EngineComponent_var comp = app->lcc()->FindOrLoad_Component( "FactoryServer","HOMARD" );
110   HOMARD::HOMARD_Gen_var clr = HOMARD::HOMARD_Gen::_narrow(comp);
111   ASSERT(!CORBA::is_nil(clr));
112   return clr;
113 }
114
115 //=======================================================================
116 // Module's initialization
117 void HOMARDGUI::initialize( CAM_Application* app )
118 //=======================================================================
119 {
120   SalomeApp_Module::initialize( app );
121   InitHOMARDGen(dynamic_cast<SalomeApp_Application*>( app ));
122   anId = 0;
123   createActions();
124   createMenus();
125 }
126
127 //================================================
128 // function : createHOMARDAction
129 // create an item in status bar and Homard menu
130 //================================================
131 void HOMARDGUI::createHOMARDAction( const int id, const QString& po_id, const QString& icon_id, const int key, const bool toggle  )
132 {
133 //   MESSAGE("createHOMARDAction");
134   QIcon icon;
135   QWidget* parent = application()->desktop();
136   SUIT_ResourceMgr* resMgr = application()->resourceMgr();
137   QPixmap pix;
138   if ( icon_id.length() )
139      pix = resMgr->loadPixmap( "HOMARD", tr( icon_id .toLatin1().data()) );
140   else
141      pix = resMgr->loadPixmap( "HOMARD", tr( QString( "ICO_%1" ).arg( po_id ).toLatin1().data()), false );
142   if ( !pix.isNull() )
143       icon = QIcon( pix );
144
145   QString tooltip    = tr(QString( "HOM_TOP_%1" ).arg( po_id ).toLatin1().data()),
146           menu       = tr(QString( "HOM_MEN_%1" ).arg( po_id ).toLatin1().data()),
147           status_bar = tr(QString( "HOM_STB_%1" ).arg( po_id ).toLatin1().data());
148
149   createAction( id, tooltip, icon, menu, status_bar, key, parent, toggle, this, SLOT( OnGUIEvent() )  );
150 }
151
152 //================================================
153 // function : createAction
154 // constructs Homard menu
155 // calls createHOMARDAction for each item
156 //================================================
157 void HOMARDGUI::createActions(){
158 //
159   createHOMARDAction( 1101, "NEW_CASE",         "cas_calcule.png"        );
160   createHOMARDAction( 1102, "PURSUE_ITERATION", "iter_poursuite.png"     );
161   createHOMARDAction( 1103, "NEW_ITERATION",    "iter_next.png"          );
162   createHOMARDAction( 1111, "COMPUTE",          "mesh_compute.png"       );
163   createHOMARDAction( 1121, "MESH_INFO",        "advanced_mesh_info.png" );
164 //
165   createHOMARDAction( 1201, "EDIT",             "loop.png"         );
166   createHOMARDAction( 1211, "DELETE",           "delete.png"       );
167 //
168   createHOMARDAction( 1301, "MESH_INFO",        "advanced_mesh_info.png" );
169   createHOMARDAction( 1302, "EDIT_MESS_FILE",   "texte.png"              );
170 //
171   createHOMARDAction( 1401, "YACS",             "table_view.png" );
172 //
173 }
174
175 //================================================
176 // function : createPreferences
177 // No preferences for Homard
178 // Just a test
179 //================================================
180 void HOMARDGUI::createPreferences(){
181    QString toto = tr( "PREF_GROUP_GENERAL" );
182    int tabId  = addPreference( tr( "PREF_GROUP_GENERAL" ) );
183    int genGroup = addPreference( tr( "PREF_TAB_SETTINGS" ), tabId );
184    addPreference( tr( "PREF_TEST" ), genGroup, LightApp_Preferences::Color, "Homard", "shading_color" );
185 }
186
187
188 //================================================
189 // function : createMenus
190 //================================================
191 void HOMARDGUI::createMenus(){
192   MESSAGE("createMenus")
193 //
194   int HOMARD_Id  = createMenu( tr( "HOM_MEN_HOMARD" ),  -1,  5, 10 );
195   createMenu( 1101, HOMARD_Id, -1 ); //Create_Case
196   createMenu( 1102, HOMARD_Id, -1 ); //Pursue_Iteration
197   createMenu( 1103, HOMARD_Id, -1 ); //Create_Iteration
198   createMenu( 1111, HOMARD_Id, -1 ); //COMPUTE
199 //
200   HOMARD_Id  = createMenu( tr( "HOM_MEN_MODIFICATION" ),  -1,  5, 10 );
201   createMenu( 1201, HOMARD_Id, -1 ); //Edit
202   createMenu( 1211, HOMARD_Id, -1 ); //Delete
203 //
204   HOMARD_Id  = createMenu( tr( "HOM_MEN_INFORMATION" ),  -1,  5, 10 );
205   createMenu( 1301, HOMARD_Id, -1 ); //Information sur un maillage
206   createMenu( separator(), HOMARD_Id,-1);
207   createMenu( 1302, HOMARD_Id, -1 ); //EditAsciiFile pour le fichier listeStd ou bilan
208   createMenu( separator(), HOMARD_Id,-1);
209   createMenu( 1201, HOMARD_Id, -1 ); //Edit
210   createMenu( separator(), HOMARD_Id,-1);
211 //
212   HOMARD_Id  = createMenu( tr( "HOM_MEN_YACS" ),  -1,  5, 10 );
213   createMenu( 1401, HOMARD_Id, -1 ); // Création d'un schéma YACS
214   createMenu( separator(), HOMARD_Id,-1);
215 //
216 // La langue des preferences
217   SUIT_ResourceMgr* resMgr = getApp()->resourceMgr();
218   _LanguageShort = resMgr->stringValue("language", "language", "en");
219   MESSAGE("_LanguageShort " << _LanguageShort.toStdString().c_str() );
220 //
221   SalomeApp_Application* app = dynamic_cast< SalomeApp_Application* >( application() );
222   HOMARD::HOMARD_Gen_var homardGen = HOMARDGUI::InitHOMARDGen(app);
223   homardGen->SetLanguageShort(_LanguageShort.toStdString().c_str());
224 }
225
226 //================================================
227 void HOMARDGUI::OnGUIEvent()
228 //================================================
229 {
230   MESSAGE("OnGUIEvent()")
231   setOrb();
232   const QObject* obj = sender();
233   if ( !obj || !obj->inherits( "QAction" ) )
234        return;
235   int id = actionId((QAction*)obj);
236   bool ret;
237   if ( id != -1 )
238       ret = OnGUIEvent( id );
239   MESSAGE("************** End of OnGUIEvent()");
240 }
241
242 //=======================================================================
243 // Method OnGUIEvent pour Homard
244 //=======================================================================
245 bool HOMARDGUI::OnGUIEvent (int theCommandID)
246 {
247   MESSAGE("OnGUIEvent avec theCommandID = "<<theCommandID);
248   SalomeApp_Application* app = dynamic_cast< SalomeApp_Application* >( application() );
249   if ( !app ) return false;
250
251   SalomeApp_Study* stud = dynamic_cast<SalomeApp_Study*> ( app->activeStudy() );
252   if ( !stud ) {
253     MESSAGE ( "FAILED to cast active study to SalomeApp_Study" );
254     return false;
255   }
256
257   SUIT_Desktop* parent = application()->desktop();
258   HOMARD::HOMARD_Gen_var homardGen = HOMARDGUI::InitHOMARDGen(app);
259
260   if (!CORBA::is_nil(homardGen))
261   {
262     // Set current study
263     SalomeApp_Study* aSAStudy =dynamic_cast<SalomeApp_Study*>(app->activeStudy());
264     _PTR(Study) aStudy = aSAStudy->studyDS();
265     SALOMEDS::Study_ptr aStudyDS;
266     if (aStudy)
267       aStudyDS = _CAST(Study,aStudy)->GetStudy();
268       homardGen->SetCurrentStudy(aStudyDS);
269    }
270   getApp()->updateObjectBrowser();
271
272
273   SCRUTE(theCommandID);
274   switch (theCommandID)
275   {
276     case 1101: // Creation d un Cas
277     {
278       MESSAGE("command " << theCommandID << " activated");
279       MonCreateCase *aDlg = new MonCreateCase( true,
280                             HOMARD::HOMARD_Gen::_duplicate(homardGen) ) ;
281       aDlg->show();
282       break;
283     }
284
285     case 1102: // Poursuite d une iteration
286     {
287       MESSAGE("command " << theCommandID << " activated");
288       MonPursueIteration *aDlg = new MonPursueIteration( parent, true,
289                                 HOMARD::HOMARD_Gen::_duplicate(homardGen) ) ;
290       aDlg->show();
291       break;
292     }
293
294     case 1103: // Creation d une Iteration
295     {
296       MESSAGE("command " << theCommandID << " activated");
297       QString IterParentName=HOMARD_QT_COMMUN::SelectionArbreEtude(QString("IterationHomard"), 0);
298       MESSAGE("IterParentName " << IterParentName.toStdString().c_str() << " choisi dans arbre");
299       MonCreateIteration *IterDlg = new MonCreateIteration( parent, true,
300                                      HOMARD::HOMARD_Gen::_duplicate(homardGen), IterParentName ) ;
301       IterDlg->show();
302       break;
303     }
304
305     case 1111: // Compute une Iteration
306     {
307       MESSAGE("command " << theCommandID << " activated");
308       QString monIter=HOMARD_QT_COMMUN::SelectionArbreEtude(QString("IterationHomard"), 1);
309       if (monIter == QString("")) break;
310       try
311       {
312         homardGen->Compute(monIter.toStdString().c_str(), 0, 1, -1, 1);
313       }
314       catch( SALOME::SALOME_Exception& S_ex )
315       {
316         QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
317                                   QObject::tr(CORBA::string_dup(S_ex.details.text)) );
318         getApp()->updateObjectBrowser();
319         return false;
320       }
321       break;
322     }
323
324     case 1121: // Information sur le maillage de l'iteration
325     {
326       MESSAGE("command " << theCommandID << " activated");
327       QString IterName=HOMARD_QT_COMMUN::SelectionArbreEtude(QString("IterationHomard"), 0);
328       MESSAGE("IterName " << IterName.toStdString().c_str() << " choisi dans arbre");
329       MonIterInfo *IterDlg = new MonIterInfo( parent, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), IterName ) ;
330       IterDlg->show();
331       break;
332     }
333
334     case 1201: // Edition d'un objet
335     {
336       MESSAGE("command " << theCommandID << " activated");
337       QString nomObjet = HOMARD_QT_COMMUN::SelectionArbreEtude(QString(""), 1);
338       if (nomObjet == QString("")) break;
339       _PTR(SObject) obj = chercheMonObjet();
340       if (obj)
341       {
342         // Edition d'une frontiere discrete
343         if (HOMARD_UTILS::isBoundaryDi(obj))
344         {
345           MonEditBoundaryDi *aDlg = new MonEditBoundaryDi(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
346           aDlg->show();
347         }
348         // Edition d'une frontiere analytique
349         else if (HOMARD_UTILS::isBoundaryAn(obj))
350         {
351           MonEditBoundaryAn *aDlg = new MonEditBoundaryAn(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
352           aDlg->show();
353         }
354         // Edition d'un cas
355         else if (HOMARD_UTILS::isCase(obj))
356         {
357           MonEditCase *aDlg = new MonEditCase(true, HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName ) ;
358           aDlg->show();
359         }
360         // Edition d'une hypothese
361         else if (HOMARD_UTILS::isHypo(obj))
362         {
363           MonEditHypothesis *aDlg = new MonEditHypothesis(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen),  _ObjectName, QString(""), QString("")) ;
364           aDlg->show();
365         }
366         // Edition d'une iteration
367         else if (HOMARD_UTILS::isIter(obj))
368         {
369           MonEditIteration *aDlg = new MonEditIteration(parent, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
370           aDlg->show();
371         }
372         // Edition d'un schema YACS
373         else if (HOMARD_UTILS::isYACS(obj))
374         {
375           MESSAGE("appel de MonEditYACS");
376           MonEditYACS *aDlg = new MonEditYACS(true, HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName) ;
377           aDlg->show();
378         }
379         // Edition d'une zone
380         else if (HOMARD_UTILS::isZone(obj))
381         {
382           MonEditZone *aDlg = new MonEditZone(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
383           aDlg->show();
384         }
385       }
386       break;
387     }
388
389     case 1211: // Suppression d'un objet
390     {
391       MESSAGE("command " << theCommandID << " activated");
392       QString nomObjet = HOMARD_QT_COMMUN::SelectionArbreEtude(QString(""), 1);
393       if (nomObjet == QString("")) break;
394       _PTR(SObject) obj = chercheMonObjet();
395       if (obj)
396       {
397         // Suppression d'un cas
398         if (HOMARD_UTILS::isCase(obj))
399         {
400           try
401           { homardGen->DeleteCase(_ObjectName.toStdString().c_str(), 1); }
402           catch( SALOME::SALOME_Exception& S_ex )
403           {
404             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
405                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
406             getApp()->updateObjectBrowser();
407             return false;
408           }
409         }
410         // Suppression d'une iteration
411         else if (HOMARD_UTILS::isIter(obj))
412         {
413           try
414           { homardGen->DeleteIteration(_ObjectName.toStdString().c_str(), 1); }
415           catch( SALOME::SALOME_Exception& S_ex )
416           {
417             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
418                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
419             getApp()->updateObjectBrowser();
420             return false;
421           }
422         }
423         // Suppression d'une hypothese
424         else if (HOMARD_UTILS::isHypo(obj))
425         {
426           try
427           { homardGen->DeleteHypo(_ObjectName.toStdString().c_str()); }
428           catch( SALOME::SALOME_Exception& S_ex )
429           {
430             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
431                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
432             getApp()->updateObjectBrowser();
433             return false;
434           }
435         }
436         // Suppression d'une zone
437         else if (HOMARD_UTILS::isZone(obj))
438         {
439           try
440           { homardGen->DeleteZone(_ObjectName.toStdString().c_str()); }
441           catch( SALOME::SALOME_Exception& S_ex )
442           {
443             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
444                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
445             getApp()->updateObjectBrowser();
446             return false;
447           }
448         }
449         // Suppression d'une frontiere
450         else if ( HOMARD_UTILS::isBoundaryDi(obj) or HOMARD_UTILS::isBoundaryAn(obj) )
451         {
452           try
453           { homardGen->DeleteBoundary(_ObjectName.toStdString().c_str()); }
454           catch( SALOME::SALOME_Exception& S_ex )
455           {
456             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
457                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
458             getApp()->updateObjectBrowser();
459             return false;
460           }
461         }
462       }
463       break;
464     }
465
466     case 1301: // Information sur un maillage
467     {
468       MESSAGE("etape 1301")
469       MESSAGE("command " << theCommandID << " activated");
470       MonMeshInfo *aDlg = new MonMeshInfo( parent, true, HOMARD::HOMARD_Gen::_duplicate(homardGen) ) ;
471       aDlg->show();
472       break;
473     }
474
475     case 1302: // Affichage de fichier texte
476     {
477       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
478       _PTR(SObject) obj = chercheMonObjet();
479       if ( (obj) and ( HOMARD_UTILS::isFileType(obj,QString("log")) or HOMARD_UTILS::isFileType(obj,QString("Summary")) or HOMARD_UTILS::isFileType(obj,QString("xml")) ) )
480       {
481           MonEditFile *aDlg = new MonEditFile( 0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName ) ;
482           if ( aDlg->_codret == 0 ) { aDlg->show(); }
483       }
484       break;
485     }
486
487     case 1401: // Création d'un schéma YACS
488     {
489       MESSAGE("etape 1401")
490       MESSAGE("command " << theCommandID << " activated");
491       QString Name=HOMARD_QT_COMMUN::SelectionArbreEtude(QString("CasHomard"), 1);
492       MESSAGE("Name " << Name.toStdString().c_str() << " choisi dans arbre");
493       MonCreateYACS *aDlg = new MonCreateYACS( true, HOMARD::HOMARD_Gen::_duplicate(homardGen), Name ) ;
494       aDlg->show();
495       break;
496     }
497
498     case 1402: // Ecriture d'un schéma YACS
499     {
500       MESSAGE("etape 1402")
501       MESSAGE("command " << theCommandID << " activated");
502       QString Name=HOMARD_QT_COMMUN::SelectionArbreEtude(QString("YACSHomard"), 1);
503       if (Name == QString("")) break;
504       try
505       {
506         homardGen->YACSWrite(Name.toStdString().c_str());
507       }
508       catch( SALOME::SALOME_Exception& S_ex )
509       {
510         QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
511                                   QObject::tr(CORBA::string_dup(S_ex.details.text)) );
512         getApp()->updateObjectBrowser();
513         return false;
514       }
515       break;
516     }
517
518   }
519   getApp()->updateObjectBrowser();
520   return true;
521 }
522
523 //=============================================================================
524 /*!
525  *
526  */
527 //=============================================================================
528
529 // Module's engine IOR
530 //=============================================================================
531 QString HOMARDGUI::engineIOR() const
532 //=============================================================================
533 {
534   CORBA::String_var anIOR = getApp()->orb()->object_to_string( InitHOMARDGen(getApp()) );
535   return QString( anIOR.in() );
536 }
537
538 // Module's activation
539 //=============================================================================
540 bool HOMARDGUI::activateModule( SUIT_Study* theStudy )
541 //=============================================================================
542 {
543   bool bOk = SalomeApp_Module::activateModule( theStudy );
544
545   setMenuShown( true );
546   setToolShown( true );
547
548   return bOk;
549 }
550
551 // Module's deactivation
552 //=============================================================================
553 bool HOMARDGUI::deactivateModule( SUIT_Study* theStudy )
554 //=============================================================================
555 {
556   setMenuShown( false );
557   setToolShown( false );
558
559   return SalomeApp_Module::deactivateModule( theStudy );
560 }
561
562 // Default windows
563 //=============================================================================
564 void HOMARDGUI::windows( QMap<int, int>& theMap ) const
565 //=============================================================================
566 {
567   theMap.clear();
568   theMap.insert( SalomeApp_Application::WT_ObjectBrowser, Qt::LeftDockWidgetArea );
569   theMap.insert( SalomeApp_Application::WT_PyConsole,     Qt::BottomDockWidgetArea );
570 }
571
572 //=============================================================================
573 void HOMARDGUI::setOrb()
574 //=============================================================================
575 {
576   try
577   {
578      ORB_INIT &init = *SINGLETON_<ORB_INIT>::Instance();
579      ASSERT(SINGLETON_<ORB_INIT>::IsAlreadyExisting());
580      _orb = init( 0 , 0 );
581   }
582   catch (...)
583   {
584      INFOS("internal error : orb not found");
585      _orb = 0;
586   }
587             ASSERT(! CORBA::is_nil(_orb));
588 }
589 //========================================
590 _PTR(SObject) HOMARDGUI::chercheMonObjet()
591 //========================================
592 {
593   SALOMEDSClient_SObject* aSO = NULL;
594   _PTR(SObject) obj;
595   SALOME_ListIO lst;
596   getApp()->selectionMgr()->selectedObjects( lst );
597   if (  lst.Extent() == 1 )
598   {
599     Handle(SALOME_InteractiveObject) io = lst.First();
600     SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( application()->activeStudy() );
601     _PTR(Study) study = appStudy->studyDS();
602     _PTR(SObject) obj = study->FindObjectID( io->getEntry() );
603     _ObjectName = QString( obj->GetName().c_str() );
604     return obj;
605   }
606   else { return _PTR(SObject)(aSO); }
607 }
608 //=============================================================================
609 void HOMARDGUI::contextMenuPopup( const QString& client, QMenu* menu, QString& title )
610 //=============================================================================
611 {
612   MESSAGE("Debut de contextMenuPopup");
613   _PTR(SObject) obj = chercheMonObjet();
614   if ( obj )
615   {
616     title = QString( obj->GetName().c_str() );
617     _ObjectName = title;
618     SUIT_ResourceMgr* resMgr = SUIT_Session::session()->resourceMgr();
619 //
620     QPixmap pix ;
621     bool DeleteObject = false ;
622     bool EditObject = false ;
623 //
624     if ( HOMARD_UTILS::isBoundaryAn(obj) )
625     {
626       EditObject = true ;
627       DeleteObject = true ;
628     }
629     else if ( HOMARD_UTILS::isBoundaryDi(obj) )
630     {
631       EditObject = true ;
632       DeleteObject = true ;
633     }
634     else if ( HOMARD_UTILS::isCase(obj) )
635     {
636       pix = resMgr->loadPixmap( "HOMARD", "table_view.png" );
637       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_YACS").toLatin1().data()), this, SLOT(YACSCreate()));
638       EditObject = true ;
639       DeleteObject = true ;
640     }
641     else if ( HOMARD_UTILS::isHypo(obj) )
642     {
643       EditObject = true ;
644       DeleteObject = true ;
645     }
646     else if ( HOMARD_UTILS::isIter(obj) )
647     {
648       pix = resMgr->loadPixmap( "HOMARD", "iter_next.png" );
649       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_NEW_ITERATION").toLatin1().data()), this, SLOT(NextIter()));
650       QPixmap pix2 = resMgr->loadPixmap( "HOMARD", "mesh_compute.png" );
651       menu->addAction(QIcon(pix2), tr(QString("HOM_MEN_COMPUTE").toLatin1().data()), this, SLOT(LanceCalcul()));
652       pix2 = resMgr->loadPixmap( "HOMARD", "advanced_mesh_info.png" );
653       menu->addAction(QIcon(pix2), tr(QString("HOM_MEN_MESH_INFO").toLatin1().data()), this, SLOT(IterInfo()));
654       EditObject = true ;
655       DeleteObject = true ;
656     }
657     else if ( HOMARD_UTILS::isYACS(obj) )
658     {
659       pix = resMgr->loadPixmap( "HOMARD", "write.png" );
660       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_WRITE").toLatin1().data()), this, SLOT(YACSWrite()));
661       EditObject = true ;
662       DeleteObject = true ;
663     }
664     else if ( HOMARD_UTILS::isZone(obj) )
665     {
666       EditObject = true ;
667       DeleteObject = true ;
668     }
669     else if ( HOMARD_UTILS::isFileType(obj,QString("log")) or HOMARD_UTILS::isFileType(obj,QString("Summary")) or HOMARD_UTILS::isFileType(obj,QString("xml")) )
670     {
671       pix = resMgr->loadPixmap( "HOMARD", "texte.png" );
672       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_EDIT_MESS_FILE").toLatin1().data()), this, SLOT(EditAsciiFile()));
673     }
674 //  Ajout d'un menu d'edition pour les objets qui le proposent
675     if ( EditObject )
676     {
677       pix = resMgr->loadPixmap( "HOMARD", "loop.png" );
678       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_EDIT").toLatin1().data()), this, SLOT(Edit()));
679     }
680 //  Ajout d'un menu de destruction pour les objets qui le proposent
681     if ( DeleteObject )
682     {
683       pix = resMgr->loadPixmap( "HOMARD", "delete.png" );
684       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_DELETE").toLatin1().data()), this, SLOT(Delete()));
685     }
686   }
687 }
688
689 void HOMARDGUI::NextIter()
690 {
691   this->OnGUIEvent(1103);
692 }
693
694 void HOMARDGUI::LanceCalcul()
695 {
696   this->OnGUIEvent(1111);
697 }
698
699 void HOMARDGUI::IterInfo()
700 {
701   this->OnGUIEvent(1121);
702 }
703
704 void HOMARDGUI::Edit()
705 {
706   this->OnGUIEvent(1201);
707 }
708
709 void HOMARDGUI::Delete()
710 {
711   this->OnGUIEvent(1211);
712 }
713
714 void HOMARDGUI::EditAsciiFile()
715 {
716   this->OnGUIEvent(1302);
717 }
718
719 void HOMARDGUI::YACSCreate()
720 {
721   this->OnGUIEvent(1401);
722 }
723 void HOMARDGUI::YACSWrite()
724 {
725   this->OnGUIEvent(1402);
726 }
727
728
729 //
730 //=============================================================================
731 // Export the module
732 //=============================================================================
733 extern "C" {
734   Standard_EXPORT CAM_Module* createModule()
735   {
736     return new HOMARDGUI("");
737   }
738 }
739