Salome HOME
d371147ef1695b85e3d99af46c61cf6f0d6eb30e
[modules/homard.git] / src / HOMARDGUI / HOMARDGUI.cxx
1 // Copyright (C) 2011-2020  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, or (at your option) any later version.
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 : Gerald NICOLAS, EDF
22 //  Module : HOMARD
23
24 #include "HOMARDGUI.h"
25
26 // SALOME Includes
27 #include "Utils_ORB_INIT.hxx"
28 #include "Utils_SINGLETON.hxx"
29 #include "SALOME_LifeCycleCORBA.hxx"
30
31 #include "SUIT_ResourceMgr.h"
32 #include "SUIT_MessageBox.h"
33 #include "SUIT_Session.h"
34 #include "SUIT_ViewWindow.h"
35 #include "SUIT_ViewManager.h"
36 #include <SUIT_Desktop.h>
37
38 #include "CAM_Module.h"
39 #include "OB_Browser.h"
40
41 #include "SALOME_ListIO.hxx"
42
43 #include "SalomeApp_Application.h"
44 #include "SalomeApp_DataModel.h"
45 #include "SalomeApp_Study.h"
46 #include "LightApp_SelectionMgr.h"
47 #include "LightApp_Selection.h"
48 #include <LightApp_Preferences.h>
49 #include "SalomeApp_Module.h"
50 #include "SALOMEconfig.h"
51 #include <SALOME_LifeCycleCORBA.hxx>
52
53 #include <utilities.h>
54
55
56 // QT Includes
57 #include <QMenu>
58 #include "MonCreateCase.h"
59 #include "MonCreateIteration.h"
60 #include "MonPursueIteration.h"
61 #include "MonCreateYACS.h"
62 #include "MonEditBoundaryCAO.h"
63 #include "MonEditBoundaryAn.h"
64 #include "MonEditBoundaryDi.h"
65 #include "MonEditCase.h"
66 #include "MonEditHypothesis.h"
67 #include "MonEditIteration.h"
68 #include "MonEditYACS.h"
69 #include "MonEditZone.h"
70 #include "MonMeshInfo.h"
71 #include "MonIterInfo.h"
72 #include "MonEditFile.h"
73 #include "HomardQtCommun.h"
74
75 // BOOST Includes
76 #include <boost/shared_ptr.hpp>
77
78 //Pour le _CAST
79 #include "SALOMEDS_Study.hxx"
80 #include "HOMARDGUI_Utils.h"
81
82 using namespace std;
83
84 static CORBA::ORB_var _orb;
85
86 //=======================================================================
87 // function : HOMARDGUI()
88 // purpose  : Constructor
89 //=======================================================================
90 HOMARDGUI::HOMARDGUI(const QString&) :
91            SalomeApp_Module( "HOMARD" ) // default name
92 {
93 }
94 //=======================================================================
95 // function : ~HOMARDGUI()
96 // purpose  : Destructor
97 //=======================================================================
98 HOMARDGUI::~HOMARDGUI()
99 {
100 }
101
102 //=======================================================================
103 // function : InitHOMARDGen
104 // launch HOMARD component and return a handle
105 //=======================================================================
106 HOMARD::HOMARD_Gen_var HOMARDGUI::InitHOMARDGen(SalomeApp_Application* app)
107 {
108   Engines::EngineComponent_var comp = app->lcc()->FindOrLoad_Component( "FactoryServer","HOMARD" );
109   HOMARD::HOMARD_Gen_var clr = HOMARD::HOMARD_Gen::_narrow(comp);
110   ASSERT(!CORBA::is_nil(clr));
111   return clr;
112 }
113
114 //=======================================================================
115 // Module's initialization
116 void HOMARDGUI::initialize( CAM_Application* app )
117 //=======================================================================
118 {
119   SalomeApp_Module::initialize( app );
120   InitHOMARDGen(dynamic_cast<SalomeApp_Application*>( app ));
121   anId = 0;
122   createActions();
123   createMenus();
124   recupPreferences();
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( 1112, "COMPUTE_PUBLISH",  "mesh_compute.png"       );
164   createHOMARDAction( 1121, "MESH_INFO",        "advanced_mesh_info.png" );
165   createHOMARDAction( 1131, "MESH_PUBLICATION", "mesh_tree_mesh.png"     );
166 //
167   createHOMARDAction( 1201, "EDIT",             "loop.png"         );
168   createHOMARDAction( 1211, "DELETE",           "delete.png"       );
169 //
170   createHOMARDAction( 1301, "MESH_INFO",        "advanced_mesh_info.png" );
171   createHOMARDAction( 1302, "EDIT_MESS_FILE",   "texte.png"              );
172 //
173   createHOMARDAction( 1401, "YACS",             "table_view.png" );
174 //
175 }
176
177 //================================================
178 // function : createPreferences
179 //================================================
180 void HOMARDGUI::createPreferences()
181 {
182   MESSAGE("createPreferences")
183
184   int Onglet, Bloc, Pref ;
185   // 1. Generalites
186   Onglet = addPreference( tr( "PREF_TAB_GENERAL" ) );
187 //   Onglet = addPreference( tr( "PREF_TAB_SETTINGS" ) ) ;
188
189   Bloc = addPreference( tr( "PREF_PUBLICATION" ), Onglet );
190   setPreferenceProperty( Bloc, "columns", 1 );
191
192   Pref = addPreference( tr( "PREF_PUBLICATION_MAILLAGE_IN" ), Bloc, LightApp_Preferences::Bool, "HOMARD", "publish_mesh_in" );
193
194   Pref = addPreference( tr( "PREF_PUBLICATION_MAILLAGE_OUT" ), Bloc, LightApp_Preferences::Bool, "HOMARD", "publish_mesh_out" );
195
196   // 2. YACS
197   Onglet = addPreference( tr( "PREF_YACS" ) ) ;
198
199   Bloc = addPreference( tr( "PREF_YACS_MAX" ), Onglet );
200   setPreferenceProperty( Bloc, "columns", 1 );
201
202   Pref = addPreference( tr( "PREF_YACS_MAX_ITER" ), Bloc, LightApp_Preferences::IntSpin, "HOMARD", "yacs_max_iter" );
203   setPreferenceProperty( Pref, "min",  0 );
204   setPreferenceProperty( Pref, "max",  100000000 );
205   setPreferenceProperty( Pref, "step", 1 );
206
207   Pref = addPreference( tr( "PREF_YACS_MAX_NODE" ), Bloc, LightApp_Preferences::IntSpin, "HOMARD", "yacs_max_node" );
208   setPreferenceProperty( Pref, "min",  0 );
209   setPreferenceProperty( Pref, "max",  100000000 );
210   setPreferenceProperty( Pref, "step", 1000 );
211
212   Pref = addPreference( tr( "PREF_YACS_MAX_ELEM" ), Bloc, LightApp_Preferences::IntSpin, "HOMARD", "yacs_max_elem" );
213   setPreferenceProperty( Pref, "min",  0 );
214   setPreferenceProperty( Pref, "max",  100000000 );
215   setPreferenceProperty( Pref, "step", 1000 );
216
217   Bloc = addPreference( tr( "PREF_YACS_CONVERGENCE" ), Onglet );
218   setPreferenceProperty( Bloc, "columns", 1 );
219
220   Pref = addPreference( tr( "PREF_YACS_TYPE_TEST" ), Bloc, LightApp_Preferences::Selector, "HOMARD", "yacs_type_test" );
221   QStringList aListOfTypeTest;
222   aListOfTypeTest << "None";
223   aListOfTypeTest << "VTest > VRef";
224   aListOfTypeTest << "VTest < VRef";
225   setPreferenceProperty( Pref, "strings", aListOfTypeTest );
226 }
227
228
229 //================================================
230 // function : createMenus
231 //================================================
232 void HOMARDGUI::createMenus()
233 {
234   MESSAGE("createMenus")
235 //
236   int HOMARD_Id  = createMenu( tr( "HOM_MEN_HOMARD" ),  -1,  5, 10 );
237   createMenu( 1101, HOMARD_Id, -1 ); //Create_Case
238   createMenu( 1102, HOMARD_Id, -1 ); //Pursue_Iteration
239   createMenu( separator(), HOMARD_Id,-1);
240   createMenu( 1103, HOMARD_Id, -1 ); //Create_Iteration
241   createMenu( 1111, HOMARD_Id, -1 ); //Compute
242   createMenu( 1112, HOMARD_Id, -1 ); //Compute and publish
243 //
244   HOMARD_Id  = createMenu( tr( "HOM_MEN_MODIFICATION" ),  -1,  5, 10 );
245   createMenu( 1201, HOMARD_Id, -1 ); //Edit
246   createMenu( 1211, HOMARD_Id, -1 ); //Delete
247 //
248   HOMARD_Id  = createMenu( tr( "HOM_MEN_INFORMATION" ),  -1,  5, 10 );
249   createMenu( 1301, HOMARD_Id, -1 ); //Information sur un maillage
250   createMenu( 1131, HOMARD_Id, -1 ); //Mesh publication
251   createMenu( separator(), HOMARD_Id,-1);
252   createMenu( 1302, HOMARD_Id, -1 ); //EditAsciiFile pour le fichier listeStd ou bilan
253   createMenu( separator(), HOMARD_Id,-1);
254   createMenu( 1201, HOMARD_Id, -1 ); //Edit
255   createMenu( separator(), HOMARD_Id,-1);
256 //
257   HOMARD_Id  = createMenu( tr( "HOM_MEN_YACS" ),  -1,  5, 10 );
258   createMenu( 1401, HOMARD_Id, -1 ); // Création d'un schéma YACS
259   createMenu( separator(), HOMARD_Id,-1);
260 }
261
262 //================================================
263 // function : recupPreferences
264 // Pour chaque valeur, le defaut est la valeur definie dans HOMARD_Gen
265 // . Si la recuperation dans config/salome s'est bien passee a la creation de HOMARD_Gen,
266 //   ces valeurs sont les valeurs definies.
267 // . Si cela ne s'est pas bien passe, ce sont les valeurs par defaut de HOMARD_Gen
268 //================================================
269 void HOMARDGUI::recupPreferences()
270 {
271   MESSAGE("recupPreferences")
272 //
273 // A. Declarations
274 //
275   SalomeApp_Application* app = dynamic_cast< SalomeApp_Application* >( application() );
276   HOMARD::HOMARD_Gen_var homardGen = HOMARDGUI::InitHOMARDGen(app);
277   int defaut_i ;
278   std::string defaut_s ;
279   QString QString_v ;
280 //
281 // B. Les valeurs
282 // B.1. La langue
283 //
284   SUIT_ResourceMgr* resMgr0 = getApp()->resourceMgr();
285   QString lang = resMgr0->stringValue( resMgr0->langSection(), "language", "en" );
286   INFOS ("Récupération de lang = " << lang.toStdString().c_str() );
287   defaut_s = homardGen->GetLanguageShort();
288   INFOS ("Récupération de defaut_s = " << defaut_s.c_str() );
289   SUIT_ResourceMgr* resMgr = getApp()->resourceMgr();
290   _LanguageShort = resMgr->stringValue("language", "language", QString(defaut_s.c_str()) );
291   INFOS ("Récupération de LanguageShort = " << _LanguageShort.toStdString().c_str() );
292 //
293 // B.2. Les publications
294   bool publish_mesh ;
295 //
296   _PublisMeshIN = homardGen->GetPublisMeshIN();
297   if ( _PublisMeshIN == 1 ) { publish_mesh = true ;  }
298   else                      { publish_mesh = false ; }
299   publish_mesh = resMgr->booleanValue("HOMARD", "publish_mesh_in", publish_mesh );
300   if ( publish_mesh ) { _PublisMeshIN = 1 ; }
301   else                { _PublisMeshIN = 0 ; }
302 //
303   _PublisMeshOUT = homardGen->GetPublisMeshOUT();
304   if ( _PublisMeshOUT == 1 ) { publish_mesh = true ;  }
305   else                       { publish_mesh = false ; }
306   publish_mesh = resMgr->booleanValue("HOMARD", "publish_mesh_out", publish_mesh );
307   if ( publish_mesh ) { _PublisMeshOUT = 1 ; }
308   else                { _PublisMeshOUT = 0 ; }
309 //
310 // B.3. Les maximum pour YACS
311 //
312   defaut_i = homardGen->GetYACSMaxIter();
313   _YACSMaxIter = resMgr->integerValue("HOMARD", "yacs_max_iter", defaut_i );
314 //
315   defaut_i = homardGen->GetYACSMaxNode();
316   _YACSMaxNode = resMgr->integerValue("HOMARD", "yacs_max_node", defaut_i );
317 //
318   defaut_i = homardGen->GetYACSMaxElem();
319   _YACSMaxElem = resMgr->integerValue("HOMARD", "yacs_max_elem", defaut_i );
320 //
321 // B.4. La convergence pour YACS
322 //
323   defaut_i = homardGen->GetYACSConvergenceType();
324   if ( defaut_i == 1 )      { QString_v = tr("VTest > VRef") ; }
325   else if ( defaut_i == 2 ) { QString_v = tr("VTest < VRef") ; }
326   else                      { QString_v = tr("None") ; }
327   QString_v = resMgr->stringValue ( "HOMARD", "yacs_type_test", QString_v );
328   if ( ( QString_v == "VTest > VRef" ) || ( QString_v == "VTest &gt; VRef" ) )      { _YACSTypeTest = 1 ; }
329   else if ( ( QString_v == "VTest < VRef" ) || ( QString_v == "VTest &lt; VRef" ) ) { _YACSTypeTest = 2 ; }
330   else                                                                              { _YACSTypeTest = 0 ; }
331 //
332 // C. Enregistrement dans l'objet general
333 //
334   MESSAGE ("Enregistrement de LanguageShort = " << _LanguageShort.toStdString().c_str() );
335   MESSAGE ("Enregistrement de PublisMeshIN = " << _PublisMeshIN<<", PublisMeshOUT = "<< _PublisMeshOUT);
336   MESSAGE ("Enregistrement de YACSMaxIter = " << _YACSMaxIter<<", YACSMaxNode = "<< _YACSMaxNode<<", YACSMaxElem = "<< _YACSMaxElem);
337   MESSAGE ("Enregistrement de YACSTypeTest = " << _YACSTypeTest);
338 //
339   homardGen->SetLanguageShort(_LanguageShort.toStdString().c_str());
340   homardGen->SetPublisMesh(_PublisMeshIN, _PublisMeshOUT);
341   homardGen->SetYACSMaximum(_YACSMaxIter, _YACSMaxNode, _YACSMaxElem);
342 //
343   homardGen->SetYACSConvergenceType(_YACSTypeTest);
344 }
345
346 //================================================
347 void HOMARDGUI::OnGUIEvent()
348 //================================================
349 {
350   MESSAGE("OnGUIEvent()")
351   setOrb();
352   const QObject* obj = sender();
353   if ( !obj || !obj->inherits( "QAction" ) ) { return; }
354   int id = actionId((QAction*)obj);
355   if ( id != -1 ) { bool ret = OnGUIEvent( id ); }
356   MESSAGE("Fin de OnGUIEvent()");
357 }
358
359 //=======================================================================
360 // Method OnGUIEvent pour Homard
361 //=======================================================================
362 bool HOMARDGUI::OnGUIEvent (int theCommandID)
363 {
364   MESSAGE("OnGUIEvent avec theCommandID = "<<theCommandID);
365 // A. Controles
366   SalomeApp_Application* app = dynamic_cast< SalomeApp_Application* >( application() );
367   if ( !app ) return false;
368
369   SalomeApp_Study* stud = dynamic_cast<SalomeApp_Study*> ( app->activeStudy() );
370   if ( !stud )
371   {
372     MESSAGE ( "FAILED to cast active study to SalomeApp_Study" );
373     return false;
374   }
375
376   SUIT_Desktop* parent = application()->desktop();
377
378   HOMARD::HOMARD_Gen_var homardGen = HOMARDGUI::InitHOMARDGen(app);
379
380   if (!CORBA::is_nil(homardGen))
381     homardGen->UpdateStudy();
382
383   getApp()->updateObjectBrowser();
384
385 // B. Choix selon les commandes
386   SCRUTE(theCommandID);
387   switch (theCommandID)
388   {
389     case 1101: // Creation d un Cas
390     {
391       MESSAGE("command " << theCommandID << " activated");
392       MonCreateCase *aDlg = new MonCreateCase( true,
393                             HOMARD::HOMARD_Gen::_duplicate(homardGen) ) ;
394       aDlg->show();
395       break;
396     }
397
398     case 1102: // Poursuite d une iteration
399     {
400       MESSAGE("command " << theCommandID << " activated");
401       MonPursueIteration *aDlg = new MonPursueIteration( true,
402                                 HOMARD::HOMARD_Gen::_duplicate(homardGen) ) ;
403       aDlg->show();
404       break;
405     }
406
407     case 1103: // Creation d une Iteration
408     {
409       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
410       MonCreateIteration *IterDlg = new MonCreateIteration( parent, true,
411                                      HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName ) ;
412       IterDlg->show();
413       break;
414     }
415
416     case 1111: // Compute une iteration
417     {
418       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
419       try { homardGen->Compute(_ObjectName.toStdString().c_str(), 0, 1, -1, 1); }
420       catch( SALOME::SALOME_Exception& S_ex )
421       {
422         QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
423                                   QObject::tr(CORBA::string_dup(S_ex.details.text)) );
424         getApp()->updateObjectBrowser();
425         return false;
426       }
427       break;
428     }
429
430     case 1112: // Compute une iteration et publication
431     {
432       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
433       try { homardGen->Compute(_ObjectName.toStdString().c_str(), 0, 1, -1, 2); }
434       catch( SALOME::SALOME_Exception& S_ex )
435       {
436         QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
437                                   QObject::tr(CORBA::string_dup(S_ex.details.text)) );
438         getApp()->updateObjectBrowser();
439         return false;
440       }
441       break;
442     }
443
444     case 1121: // Information sur le maillage de l'iteration
445     {
446       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
447       MonIterInfo *IterDlg = new MonIterInfo( parent, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName ) ;
448       IterDlg->show();
449       break;
450     }
451
452     case 1131: // Publication du maillage de l'iteration
453     {
454       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
455       homardGen->PublishMeshIterInSmesh(_ObjectName.toStdString().c_str());
456       break;
457     }
458
459     case 1132: // Publication du maillage de l'iteration a partir du fichier
460     {
461       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
462       homardGen->PublishResultInSmesh(_ObjectName.toStdString().c_str(), 1);
463       break;
464     }
465
466     case 1201: // Edition d'un objet
467     {
468       MESSAGE("command " << theCommandID << " activated");
469       QString nomObjet = HOMARD_QT_COMMUN::SelectionArbreEtude(QString(""), 1);
470       if (nomObjet == QString("")) break;
471       _PTR(SObject) obj = chercheMonObjet();
472       if (obj)
473       {
474         // Edition d'une frontiere CAO
475         if (HOMARD_UTILS::isBoundaryCAO(obj))
476         {
477           MonEditBoundaryCAO *aDlg = new MonEditBoundaryCAO(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
478           aDlg->show();
479         }
480         // Edition d'une frontiere discrete
481         else if (HOMARD_UTILS::isBoundaryDi(obj))
482         {
483           MonEditBoundaryDi *aDlg = new MonEditBoundaryDi(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
484           aDlg->show();
485         }
486         // Edition d'une frontiere analytique
487         else if (HOMARD_UTILS::isBoundaryAn(obj))
488         {
489           MonEditBoundaryAn *aDlg = new MonEditBoundaryAn(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
490           aDlg->show();
491         }
492         // Edition d'un cas
493         else if (HOMARD_UTILS::isCase(obj))
494         {
495           MonEditCase *aDlg = new MonEditCase(true, HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName ) ;
496           aDlg->show();
497         }
498         // Edition d'une hypothese
499         else if (HOMARD_UTILS::isHypo(obj))
500         {
501           MonEditHypothesis *aDlg = new MonEditHypothesis(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen),  _ObjectName, QString(""), QString("")) ;
502           aDlg->show();
503         }
504         // Edition d'une iteration
505         else if (HOMARD_UTILS::isIter(obj))
506         {
507           MonEditIteration *aDlg = new MonEditIteration(parent, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
508           aDlg->show();
509         }
510         // Edition d'un schema YACS
511         else if (HOMARD_UTILS::isYACS(obj))
512         {
513           MESSAGE("appel de MonEditYACS");
514           MonEditYACS *aDlg = new MonEditYACS(true, HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName) ;
515           aDlg->show();
516         }
517         // Edition d'une zone
518         else if (HOMARD_UTILS::isZone(obj))
519         {
520           MonEditZone *aDlg = new MonEditZone(0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), QString(""), _ObjectName ) ;
521           aDlg->show();
522         }
523       }
524       break;
525     }
526
527     case 1211: // Suppression d'un objet
528     {
529       MESSAGE("command " << theCommandID << " activated");
530       QString nomObjet = HOMARD_QT_COMMUN::SelectionArbreEtude(QString(""), 1);
531       if (nomObjet == QString("")) break;
532       _PTR(SObject) obj = chercheMonObjet();
533       if (obj)
534       {
535         // Suppression d'une frontiere
536         if ( HOMARD_UTILS::isBoundaryCAO(obj) || HOMARD_UTILS::isBoundaryDi(obj) || HOMARD_UTILS::isBoundaryAn(obj) )
537         {
538           try
539           { homardGen->DeleteBoundary(_ObjectName.toStdString().c_str()); }
540           catch( SALOME::SALOME_Exception& S_ex )
541           {
542             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
543                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
544             getApp()->updateObjectBrowser();
545             return false;
546           }
547         }
548         // Suppression d'un cas
549         else if (HOMARD_UTILS::isCase(obj))
550         {
551           try
552           { homardGen->DeleteCase(_ObjectName.toStdString().c_str(), 1); }
553           catch( SALOME::SALOME_Exception& S_ex )
554           {
555             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
556                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
557             getApp()->updateObjectBrowser();
558             return false;
559           }
560         }
561         // Suppression d'une hypothese
562         else if (HOMARD_UTILS::isHypo(obj))
563         {
564           try
565           { homardGen->DeleteHypo(_ObjectName.toStdString().c_str()); }
566           catch( SALOME::SALOME_Exception& S_ex )
567           {
568             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
569                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
570             getApp()->updateObjectBrowser();
571             return false;
572           }
573         }
574         // Suppression d'une iteration
575         else if (HOMARD_UTILS::isIter(obj))
576         {
577           try
578           { homardGen->DeleteIteration(_ObjectName.toStdString().c_str(), 1); }
579           catch( SALOME::SALOME_Exception& S_ex )
580           {
581             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
582                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
583             getApp()->updateObjectBrowser();
584             return false;
585           }
586         }
587         // Suppression d'un schema YACS
588         else if (HOMARD_UTILS::isYACS(obj))
589         {
590           try
591           { homardGen->DeleteYACS(_ObjectName.toStdString().c_str(), 1); }
592           catch( SALOME::SALOME_Exception& S_ex )
593           {
594             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
595                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
596             getApp()->updateObjectBrowser();
597             return false;
598           }
599         }
600         // Suppression d'une zone
601         else if (HOMARD_UTILS::isZone(obj))
602         {
603           try
604           { homardGen->DeleteZone(_ObjectName.toStdString().c_str()); }
605           catch( SALOME::SALOME_Exception& S_ex )
606           {
607             QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
608                                       QObject::tr(CORBA::string_dup(S_ex.details.text)) );
609             getApp()->updateObjectBrowser();
610             return false;
611           }
612         }
613       }
614       break;
615     }
616
617     case 1301: // Information sur un maillage
618     {
619       MESSAGE("etape 1301")
620       MESSAGE("command " << theCommandID << " activated");
621       MonMeshInfo *aDlg = new MonMeshInfo( parent, true, HOMARD::HOMARD_Gen::_duplicate(homardGen) ) ;
622       aDlg->show();
623       break;
624     }
625
626     case 1302: // Affichage de fichier texte
627     {
628       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
629       _PTR(SObject) obj = chercheMonObjet();
630       if ( (obj) && ( HOMARD_UTILS::isFileType(obj,QString("log")) || HOMARD_UTILS::isFileType(obj,QString("Summary")) || HOMARD_UTILS::isFileType(obj,QString("xml")) ) )
631       {
632           MonEditFile *aDlg = new MonEditFile( 0, true, HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName, 0 ) ;
633           if ( aDlg->_codret == 0 ) { aDlg->show(); }
634       }
635       break;
636     }
637
638     case 1401: // Création d'un schema YACS
639     {
640       MESSAGE("etape 1401")
641       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
642       MonCreateYACS *aDlg = new MonCreateYACS( true, HOMARD::HOMARD_Gen::_duplicate(homardGen), _ObjectName ) ;
643       aDlg->show();
644       break;
645     }
646
647     case 1402: // Ecriture d'un schéma YACS
648     {
649       MESSAGE("etape 1402")
650       MESSAGE("command " << theCommandID << " activated avec objet " << _ObjectName.toStdString().c_str() );
651       try { homardGen->YACSWrite(_ObjectName.toStdString().c_str()); }
652       catch( SALOME::SALOME_Exception& S_ex )
653       {
654         QMessageBox::critical( 0, QObject::tr("HOM_ERROR"),
655                                   QObject::tr(CORBA::string_dup(S_ex.details.text)) );
656         getApp()->updateObjectBrowser();
657         return false;
658       }
659       break;
660     }
661
662   }
663   getApp()->updateObjectBrowser();
664   return true;
665 }
666
667 //=============================================================================
668 /*!
669  *
670  */
671 //=============================================================================
672
673 // Module's engine IOR
674 //=============================================================================
675 QString HOMARDGUI::engineIOR() const
676 //=============================================================================
677 {
678   CORBA::String_var anIOR = getApp()->orb()->object_to_string( InitHOMARDGen(getApp()) );
679   return QString( anIOR.in() );
680 }
681
682 // Module's activation
683 //=============================================================================
684 bool HOMARDGUI::activateModule( SUIT_Study* theStudy )
685 //=============================================================================
686 {
687   bool bOk = SalomeApp_Module::activateModule( theStudy );
688
689   setMenuShown( true );
690   setToolShown( true );
691
692   return bOk;
693 }
694
695 // Module's deactivation
696 //=============================================================================
697 bool HOMARDGUI::deactivateModule( SUIT_Study* theStudy )
698 //=============================================================================
699 {
700   setMenuShown( false );
701   setToolShown( false );
702
703   return SalomeApp_Module::deactivateModule( theStudy );
704 }
705
706 // Default windows
707 //=============================================================================
708 void HOMARDGUI::windows( QMap<int, int>& theMap ) const
709 //=============================================================================
710 {
711   theMap.clear();
712   theMap.insert( SalomeApp_Application::WT_ObjectBrowser, Qt::LeftDockWidgetArea );
713 #ifndef DISABLE_PYCONSOLE
714   theMap.insert( SalomeApp_Application::WT_PyConsole,     Qt::BottomDockWidgetArea );
715 #endif
716 }
717
718 //=============================================================================
719 void HOMARDGUI::setOrb()
720 //=============================================================================
721 {
722   try
723   {
724      ORB_INIT &init = *SINGLETON_<ORB_INIT>::Instance();
725      ASSERT(SINGLETON_<ORB_INIT>::IsAlreadyExisting());
726      _orb = init( 0 , 0 );
727   }
728   catch (...)
729   {
730      INFOS("internal error : orb not found");
731      _orb = 0;
732   }
733             ASSERT(! CORBA::is_nil(_orb));
734 }
735 //========================================
736 _PTR(SObject) HOMARDGUI::chercheMonObjet()
737 //========================================
738 {
739   SALOMEDSClient_SObject* aSO = NULL;
740   _PTR(SObject) obj;
741   SALOME_ListIO lst;
742   getApp()->selectionMgr()->selectedObjects( lst );
743   if (  lst.Extent() == 1 )
744   {
745     Handle(SALOME_InteractiveObject) io = lst.First();
746     SalomeApp_Study* appStudy = dynamic_cast<SalomeApp_Study*>( application()->activeStudy() );
747     _PTR(Study) study = appStudy->studyDS();
748     _PTR(SObject) obj = study->FindObjectID( io->getEntry() );
749     _ObjectName = QString( obj->GetName().c_str() );
750     return obj;
751   }
752   else { return _PTR(SObject)(aSO); }
753 }
754 //=============================================================================
755 void HOMARDGUI::contextMenuPopup( const QString& client, QMenu* menu, QString& title )
756 //=============================================================================
757 {
758   MESSAGE("Debut de contextMenuPopup");
759   _PTR(SObject) obj = chercheMonObjet();
760   if ( obj )
761   {
762     title = QString( obj->GetName().c_str() );
763     _ObjectName = title;
764     SUIT_ResourceMgr* resMgr = SUIT_Session::session()->resourceMgr();
765 //
766     QPixmap pix ;
767     bool DeleteObject = false ;
768     bool EditObject = false ;
769 //
770     if ( HOMARD_UTILS::isBoundaryCAO(obj) )
771     {
772       EditObject = true ;
773       DeleteObject = true ;
774     }
775     else if ( HOMARD_UTILS::isBoundaryAn(obj) )
776     {
777       EditObject = true ;
778       DeleteObject = true ;
779     }
780     else if ( HOMARD_UTILS::isBoundaryDi(obj) )
781     {
782       EditObject = true ;
783       DeleteObject = true ;
784     }
785     else if ( HOMARD_UTILS::isCase(obj) )
786     {
787       pix = resMgr->loadPixmap( "HOMARD", "table_view.png" );
788       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_YACS").toLatin1().data()), this, SLOT(YACSCreate()));
789       EditObject = true ;
790       DeleteObject = true ;
791     }
792     else if ( HOMARD_UTILS::isHypo(obj) )
793     {
794       EditObject = true ;
795       DeleteObject = true ;
796     }
797     else if ( HOMARD_UTILS::isIter(obj) )
798     {
799       pix = resMgr->loadPixmap( "HOMARD", "iter_next.png" );
800       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_NEW_ITERATION").toLatin1().data()), this, SLOT(NextIter()));
801       pix = resMgr->loadPixmap( "HOMARD", "mesh_compute.png" );
802       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_COMPUTE").toLatin1().data()), this, SLOT(LanceCalcul0()));
803       pix = resMgr->loadPixmap( "HOMARD", "mesh_compute.png" );
804       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_COMPUTE_PUBLISH").toLatin1().data()), this, SLOT(LanceCalcul1()));
805       pix = resMgr->loadPixmap( "HOMARD", "advanced_mesh_info.png" );
806       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_MESH_INFO").toLatin1().data()), this, SLOT(IterInfo()));
807       pix = resMgr->loadPixmap( "HOMARD", "mesh_tree_mesh.png" );
808       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_MESH_PUBLICATION").toLatin1().data()), this, SLOT(MeshPublish0()));
809       EditObject = true ;
810       DeleteObject = true ;
811     }
812     else if ( HOMARD_UTILS::isYACS(obj) )
813     {
814       pix = resMgr->loadPixmap( "HOMARD", "write.png" );
815       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_WRITE").toLatin1().data()), this, SLOT(YACSWrite()));
816       EditObject = true ;
817       DeleteObject = true ;
818     }
819     else if ( HOMARD_UTILS::isZone(obj) )
820     {
821       EditObject = true ;
822       DeleteObject = true ;
823     }
824     else if ( HOMARD_UTILS::isFileType(obj,QString("log")) || HOMARD_UTILS::isFileType(obj,QString("Summary")) || HOMARD_UTILS::isFileType(obj,QString("xml")) )
825     {
826       pix = resMgr->loadPixmap( "HOMARD", "texte.png" );
827       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_EDIT_MESS_FILE").toLatin1().data()), this, SLOT(EditAsciiFile()));
828     }
829     else if ( HOMARD_UTILS::isFileType(obj,QString("Mesh")) )
830     {
831       pix = resMgr->loadPixmap( "HOMARD", "mesh_tree_mesh.png" );
832       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_MESH_PUBLICATION").toLatin1().data()), this, SLOT(MeshPublish1()));
833     }
834 //  Ajout d'un menu d'edition pour les objets qui le proposent
835     if ( EditObject )
836     {
837       pix = resMgr->loadPixmap( "HOMARD", "loop.png" );
838       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_EDIT").toLatin1().data()), this, SLOT(Edit()));
839     }
840 //  Ajout d'un menu de destruction pour les objets qui le proposent
841     if ( DeleteObject )
842     {
843       pix = resMgr->loadPixmap( "HOMARD", "delete.png" );
844       menu->addAction(QIcon(pix), tr(QString("HOM_MEN_DELETE").toLatin1().data()), this, SLOT(Delete()));
845     }
846   }
847 }
848
849 void HOMARDGUI::NextIter()
850 {
851   this->OnGUIEvent(1103);
852 }
853
854 void HOMARDGUI::LanceCalcul0()
855 {
856   this->OnGUIEvent(1111);
857 }
858
859 void HOMARDGUI::LanceCalcul1()
860 {
861   this->OnGUIEvent(1112);
862 }
863
864 void HOMARDGUI::IterInfo()
865 {
866   this->OnGUIEvent(1121);
867 }
868
869 void HOMARDGUI::MeshPublish0()
870 {
871   this->OnGUIEvent(1131);
872 }
873
874 void HOMARDGUI::MeshPublish1()
875 {
876   this->OnGUIEvent(1132);
877 }
878
879 void HOMARDGUI::Edit()
880 {
881   this->OnGUIEvent(1201);
882 }
883
884 void HOMARDGUI::Delete()
885 {
886   this->OnGUIEvent(1211);
887 }
888
889 void HOMARDGUI::EditAsciiFile()
890 {
891   this->OnGUIEvent(1302);
892 }
893
894 void HOMARDGUI::YACSCreate()
895 {
896   this->OnGUIEvent(1401);
897 }
898 void HOMARDGUI::YACSWrite()
899 {
900   this->OnGUIEvent(1402);
901 }
902
903
904 //
905 //=============================================================================
906 // Export the module
907 //=============================================================================
908 extern "C" {
909   Standard_EXPORT CAM_Module* createModule()
910   {
911     return new HOMARDGUI("");
912   }
913 }
914