Salome HOME
refs #568: use ordered list view with selection synchronized with object browser...
[modules/hydro.git] / src / HYDROGUI / HYDROGUI_CalculationOp.cxx
index 5d4a465b695d194b9e13b965bfebd34e515d6ae5..f8311d5a4f90c45bb0ef1dfa8626dd9995559e35 100644 (file)
@@ -1,12 +1,8 @@
-// Copyright (C) 2007-2013  CEA/DEN, EDF R&D, OPEN CASCADE
-//
-// Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
-// CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
-//
+// Copyright (C) 2014-2015  EDF-R&D
 // 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.
+// version 2.1 of the License, or (at your option) any later version.
 //
 // This library is distributed in the hope that it will be useful,
 // but WITHOUT ANY WARRANTY; without even the implied warranty of
 #include "HYDROGUI_Module.h"
 #include "HYDROGUI_Tool.h"
 #include "HYDROGUI_UpdateFlags.h"
+#include "HYDROGUI_Zone.h"
+#include "HYDROGUI_Region.h"
 
-#include <HYDROData_Polyline.h>
+#include <HYDROData_PolylineXY.h>
+#include <HYDROData_ShapesGroup.h>
 #include <HYDROData_Iterator.h>
-#include <HYDROData_Zone.h>
+#include <HYDROData_ImmersibleZone.h>
+#include <HYDROData_Object.h>
+#include <HYDROData_Tool.h>
+#include <HYDROData_StricklerTable.h>
 
 #include <OCCViewer_ViewManager.h>
 #include <OCCViewer_ViewModel.h>
+#include <OCCViewer_ViewWindow.h>
 
 #include <LightApp_Application.h>
 #include <LightApp_UpdateFlags.h>
+#include <LightApp_SelectionMgr.h>
+#include <LightApp_DataOwner.h>
+
+#include <SUIT_MessageBox.h>
+#include <SUIT_Desktop.h>
+#include <SUIT_DataBrowser.h>
 
 #include <QApplication>
+#include <QKeySequence>
+#include <QShortcut>
 
 HYDROGUI_CalculationOp::HYDROGUI_CalculationOp( HYDROGUI_Module* theModule, bool theIsEdit )
 : HYDROGUI_Operation( theModule ),
@@ -57,104 +68,136 @@ HYDROGUI_CalculationOp::~HYDROGUI_CalculationOp()
 void HYDROGUI_CalculationOp::startOperation()
 {
   HYDROGUI_Operation::startOperation();
+  
+  // Begin transaction
+  startDocOperation();
 
   HYDROGUI_CalculationDlg* aPanel = 
     ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
   if ( !aPanel )
     return;
 
-  mySplittedZones.clear();
-  aPanel->reset();
+  SUIT_DataBrowser* aOb = ((LightApp_Application*)module()->application())->objectBrowser();
+  QList<QShortcut*> aShortcuts = aOb->findChildren<QShortcut*>();
+  QShortcut* aShortcut;
+  foreach( aShortcut, aShortcuts )
+  {
+    if ( aShortcut->key() == 
+      QKeySequence(((LightApp_Application*)module()->application())->objectBrowser()->shortcutKey( 
+      SUIT_DataBrowser::RenameShortcut ) ) )
+    {
+      aShortcut->setEnabled( false );
+    }
+  }
 
-  QString anObjectName = HYDROGUI_Tool::GenerateObjectName( module(), "Case" );
+  aPanel->reset();
+  QStringList aList;
+  QStringList anEntryList;
+  HYDROData_SequenceOfObjects aSeq = HYDROGUI_Tool::GetGeometryObjects( module() );
+  getNamesAndEntries( aSeq, aList, anEntryList );
+  aPanel->setAllGeomObjects( aList, anEntryList );
+
+  // Get all polylines
+  aList.clear();
+  anEntryList.clear();
+  HYDROData_Iterator anIter( doc(), KIND_POLYLINEXY );
+  Handle(HYDROData_PolylineXY) aPolylineObj;
+  QString aPolylineName;
+  for ( ; anIter.More(); anIter.Next() )
+  {
+    aPolylineObj = Handle(HYDROData_PolylineXY)::DownCast( anIter.Current() );
+
+    if ( !aPolylineObj.IsNull() && aPolylineObj->IsClosed() )
+    { 
+      // Check the polyline shape
+      TopoDS_Shape aPolylineShape = aPolylineObj->GetShape();
+      if ( !aPolylineShape.IsNull() && aPolylineShape.ShapeType() == TopAbs_WIRE ) {
+        aPolylineName = aPolylineObj->GetName();
+        if ( !aPolylineName.isEmpty() )
+        {
+          aList.append( aPolylineName );
+          anEntryList.append( HYDROGUI_DataObject::dataObjectEntry( aPolylineObj ) );
+        }
+      }
+    }
+  }
+  aPanel->setPolylineNames( aList, anEntryList );
 
-  QStringList aSelectedZones, aSplittedZones;
+  QString anObjectName = HYDROGUI_Tool::GenerateObjectName( module(), tr( "DEFAULT_CALCULATION_CASE_NAME" ) );
 
   myEditedObject.Nullify();
   if ( myIsEdit )
   {
-    myEditedObject = Handle(HYDROData_Calculation)::DownCast( HYDROGUI_Tool::GetSelectedObject( module() ) );
+    myEditedObject = Handle(HYDROData_CalculationCase)::DownCast( HYDROGUI_Tool::GetSelectedObject( module() ) );
     if ( !myEditedObject.IsNull() )
     {
+      aPanel->setMode( myEditedObject->GetAssignmentMode() );
       anObjectName = myEditedObject->GetName();
-
-      Handle(HYDROData_Polyline) aBoundaryPolyline = myEditedObject->GetBoundaryPolyline();
-      if ( !aBoundaryPolyline.IsNull() )
+      aPolylineObj = myEditedObject->GetBoundaryPolyline();
+      if ( aPolylineObj.IsNull() )
       {
-        QString aPolylineName = aBoundaryPolyline->GetName();
-        aPanel->setPolylineName( aPolylineName );
+        aPanel->setBoundary( QString() );
       }
-
-      HYDROData_SequenceOfObjects aRefZones = myEditedObject->GetZones();
-      HYDROData_SequenceOfObjects::Iterator anIter( aRefZones );
-      for ( ; anIter.More(); anIter.Next() )
+      else
       {
-        Handle(HYDROData_Zone) aRefZone = 
-          Handle(HYDROData_Zone)::DownCast( anIter.Value() );
-        if ( aRefZone.IsNull() )
-          continue;
-
-        QString aRefZoneName = aRefZone->GetName();
-        if ( aRefZoneName.isEmpty() )
-          continue;
-
-        aSelectedZones.append( aRefZoneName );
+        aPolylineName = aPolylineObj->GetName();
+        aPanel->setBoundary( aPolylineName );
       }
 
-      HYDROData_SequenceOfObjects aSplitZones = myEditedObject->GetSplittedZones();
-      anIter.Init( aSplitZones );
-      for ( ; anIter.More(); anIter.Next() )
-      {
-        Handle(HYDROData_Zone) aSplitZone = 
-          Handle(HYDROData_Zone)::DownCast( anIter.Value() );
-        if ( aSplitZone.IsNull() )
-          continue;
-
-        QString aSplitZoneName = aSplitZone->GetName();
-        if ( aSplitZoneName.isEmpty() )
-          continue;
+      aSeq = myEditedObject->GetGeometryObjects();
+      getNamesAndEntries( aSeq, aList, anEntryList );
+      aPanel->includeGeomObjects( aList );
 
-        aSplittedZones.append( aSplitZoneName );
-      }
+      // set rules
+      setRules( HYDROData_CalculationCase::DataTag_CustomRules );      
     }
   }
+  else
+  {
+    myEditedObject =
+      Handle(HYDROData_CalculationCase)::DownCast( doc()->CreateObject( KIND_CALCULATION ) );
+    myEditedObject->SetName( anObjectName );
+    myEditedObject->SetAssignmentMode( (HYDROData_CalculationCase::AssignmentMode)aPanel->getMode() );
+  }
 
-  // collect information about existing zones
-  QStringList aZones;
+  aPanel->setObjectName( anObjectName );
+  aPanel->setEditedObject( myEditedObject );
+
+  createPreview();
+}
 
-  HYDROData_Iterator anIter( doc(), KIND_ZONE );
+void HYDROGUI_CalculationOp::getNamesAndEntries( const HYDROData_SequenceOfObjects& theSeq, 
+                                                QStringList& theNames, QStringList& theEntries ) const
+{
+  theNames.clear();
+  theEntries.clear();
+  HYDROData_SequenceOfObjects::Iterator anIter( theSeq );
   for ( ; anIter.More(); anIter.Next() )
   {
-    Handle(HYDROData_Zone) aZoneObj = 
-      Handle(HYDROData_Zone)::DownCast( anIter.Current() );
-    if ( aZoneObj.IsNull() )
-      continue;
-
-    QString aZoneName = aZoneObj->GetName();
-    if ( aZoneName.isEmpty() )
-      continue;
+    Handle(HYDROData_Entity) anEntity = anIter.Value();
+    //if ( !HYDROData_Tool::IsGeometryObject( anEntity ) )
+    //  continue;
 
-    aZones.append( aZoneName );
+    theNames.append( anEntity->GetName() );
+    theEntries.append( HYDROGUI_DataObject::dataObjectEntry( anEntity ) );
   }
-
-  aPanel->setObjectName( anObjectName );
-
-  aPanel->setZones( aZones );
-  aPanel->setSelectedZones( aSelectedZones );
-  aPanel->setSplittedZones( aSplittedZones );
 }
 
 void HYDROGUI_CalculationOp::abortOperation()
 {
   closePreview();
-
+  // Abort transaction
+  abortDocOperation();
   HYDROGUI_Operation::abortOperation();
+  module()->getApp()->updateObjectBrowser();
 }
 
 void HYDROGUI_CalculationOp::commitOperation()
 {
   closePreview();
-
+  // Commit transaction
+  commitDocOperation();
   HYDROGUI_Operation::commitOperation();
 }
 
@@ -163,177 +206,1030 @@ HYDROGUI_InputPanel* HYDROGUI_CalculationOp::createInputPanel() const
   HYDROGUI_CalculationDlg* aPanel = new HYDROGUI_CalculationDlg( module(), getName() );
 
   // Connect signals and slots
-  connect( aPanel, SIGNAL( SplitZones() ), this, SLOT( onSplitZones() ) );
+  connect( aPanel, SIGNAL( changeMode( int ) ), SLOT( onChangeMode( int ) ) );  
+  connect( aPanel, SIGNAL( addObjects() ), SLOT( onAddObjects() ) );
+  connect( aPanel, SIGNAL( removeObjects() ), SLOT( onRemoveObjects() ) );
+  connect( aPanel, SIGNAL( addGroups() ), SLOT( onAddGroups() ) );
+  connect( aPanel, SIGNAL( removeGroups() ), SLOT( onRemoveGroups() ) );
+
+  connect( aPanel, SIGNAL( changeLandCoverMode( int ) ), SLOT( onChangeLandCoverMode( int ) ) );
+  connect( aPanel, SIGNAL( addLandCovers() ), SLOT( onAddLandCovers() ) );
+  connect( aPanel, SIGNAL( removeLandCovers() ), SLOT( onRemoveLandCovers() ) );
+  
+  connect( aPanel, SIGNAL( orderChanged( bool& ) ), SLOT( onOrderChanged( bool& ) ) );
+  connect( aPanel, SIGNAL( orderLandCoverChanged( bool& ) ), SLOT( onOrderLandCoverChanged( bool& ) ) );
+    
+  connect( aPanel, SIGNAL( Next( const int ) ), SLOT( onNext( const int ) ) );
+  connect( aPanel, SIGNAL( Back( const int ) ), SLOT( onHideZones() ) );
+  //connect( aPanel, SIGNAL( clicked( SUIT_DataObject* ) ), SLOT( onSelected( SUIT_DataObject* ) ) );
+  connect( aPanel, SIGNAL( setMergeType( int, QString& ) ), SLOT( onSetMergeType( int, QString& ) ) );
+  connect( aPanel, SIGNAL( moveZones( SUIT_DataObject*, const QList<SUIT_DataObject*>& ) ),
+    SLOT( onMoveZones( SUIT_DataObject*, const QList<SUIT_DataObject*>& ) ) );
+  connect( aPanel, SIGNAL( createRegion( const QList<SUIT_DataObject*>& ) ),
+    SLOT( onCreateRegion( const QList<SUIT_DataObject*>& ) ) );
+  connect( aPanel, SIGNAL( clickedInZonesBrowser( SUIT_DataObject* ) ),
+    SLOT( onClickedInZonesBrowser( SUIT_DataObject* ) ) );
+  connect( aPanel, SIGNAL( objectsSelected() ), 
+           SLOT( onObjectsSelected() ) );
+  connect( aPanel, SIGNAL( landCoversSelected() ), 
+           SLOT( onLandCoversSelected() ) );
+  connect( aPanel, SIGNAL( boundarySelected( const QString & ) ), 
+    SLOT( onBoundarySelected( const QString & ) ) );
+  connect( aPanel, SIGNAL( StricklerTableSelected( const QString & ) ), 
+    SLOT( onStricklerTableSelected( const QString & ) ) );
 
   return aPanel;
 }
 
-bool HYDROGUI_CalculationOp::processApply( int&     theUpdateFlags,
-                                           QString& theErrorMsg )
+void HYDROGUI_CalculationOp::onBoundarySelected ( const QString & theObjName )
+{
+  bool anIsToUpdateViewer = false;
+
+  // Remove the old boundary from the operation viewer
+  Handle(HYDROData_PolylineXY) aPrevPolyline = 
+    myEditedObject->GetBoundaryPolyline();
+  if ( !aPrevPolyline.IsNull() )
+  {
+    setObjectVisibility( aPrevPolyline, false );
+    anIsToUpdateViewer = true;
+  }
+
+  // Set the selected boundary polyline to the calculation case
+  Handle(HYDROData_PolylineXY) aNewPolyline = Handle(HYDROData_PolylineXY)::DownCast(
+    HYDROGUI_Tool::FindObjectByName( module(), theObjName, KIND_POLYLINEXY ) );
+  myEditedObject->SetBoundaryPolyline( aNewPolyline );
+
+  if ( myPreviewViewManager )
+  {
+    OCCViewer_Viewer* aViewer = myPreviewViewManager->getOCCViewer();
+    if ( aViewer )
+    {
+      if ( !aNewPolyline.IsNull() )
+      {
+        Handle(AIS_InteractiveContext) aCtx = aViewer->getAISContext();
+        if ( !aCtx.IsNull() )
+        {
+          setObjectVisibility( aNewPolyline, true );
+          anIsToUpdateViewer = true;
+        }
+      }
+
+      if ( anIsToUpdateViewer )
+        module()->update( UF_OCCViewer );
+    }
+  }
+}
+
+void HYDROGUI_CalculationOp::onStricklerTableSelected ( const QString & theObjName )
+{
+  bool anIsToUpdateViewer = false;
+
+  // Remove old presentations of land covers from the operation viewer  
+  Handle(HYDROData_Entity) anEntity;
+  Handle(HYDROData_LandCover) aLandCover;
+  HYDROData_SequenceOfObjects aLandCovers;
+  HYDROData_SequenceOfObjects aSeq = myEditedObject->GetLandCovers();
+  HYDROData_SequenceOfObjects::Iterator anIter( aSeq );
+  for ( ; anIter.More(); anIter.Next() )
+  {
+    anEntity = anIter.Value();
+    if ( !anEntity.IsNull() )
+    {
+      aLandCover = Handle(HYDROData_LandCover)::DownCast( anEntity );
+      if ( !aLandCover.IsNull() )
+      {
+        aLandCovers.Append( aLandCover );
+        setObjectVisibility( aLandCover, false );
+        anIsToUpdateViewer = true;
+      }
+    }
+  }
+
+  // Set the selected Strickler table to the calculation case
+  Handle(HYDROData_StricklerTable) aNewStricklerTable = Handle(HYDROData_StricklerTable)::DownCast(
+    HYDROGUI_Tool::FindObjectByName( module(), theObjName, KIND_STRICKLER_TABLE ) );
+  myEditedObject->SetStricklerTable( aNewStricklerTable );
+
+  if ( myPreviewViewManager )
+  {
+    OCCViewer_Viewer* aViewer = myPreviewViewManager->getOCCViewer();
+    if ( aViewer )
+    {
+      if ( !aNewStricklerTable.IsNull() )
+      {
+        Handle(AIS_InteractiveContext) aCtx = aViewer->getAISContext();
+        if ( !aCtx.IsNull() )
+        {
+          HYDROData_SequenceOfObjects::Iterator anIter( aLandCovers );
+          for ( ; anIter.More(); anIter.Next() )
+          {
+            anEntity = anIter.Value();
+            if ( !anEntity.IsNull() )
+            {
+              aLandCover = Handle(HYDROData_LandCover)::DownCast( anEntity );
+              if ( !aLandCover.IsNull() )
+              {
+                setObjectVisibility( aLandCover, true );
+                anIsToUpdateViewer = true;
+              }
+            }
+          }          
+        }
+      }
+
+      if ( anIsToUpdateViewer )
+        module()->update( UF_OCCViewer );
+    }
+  }
+}
+
+void HYDROGUI_CalculationOp::onObjectsSelected()
 {
   HYDROGUI_CalculationDlg* aPanel = 
     ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
-  if ( !aPanel )
-    return false;
 
-  QString anObjectName = aPanel->getObjectName().simplified();
-  if ( anObjectName.isEmpty() )
+  QStringList aSelectedObjs = aPanel->getSelectedGeomObjects();
+  QMap<QString, bool> aSelectedObjsMap;
+  foreach( QString aName, aSelectedObjs )
+    aSelectedObjsMap[aName] = true;
+
+
+  // Select the appropriate geometry object shape in the viewer
+  selectionMgr()->clearSelected();
+
+  // Unhighlight all objects except selected
+  HYDROGUI_Shape* aShape = 0, *aLastShape = 0;
+  Handle(HYDROData_Entity) anEntity;
+  HYDROData_SequenceOfObjects aSeq = myEditedObject->GetGeometryObjects();
+  HYDROData_SequenceOfObjects::Iterator anIter( aSeq );
+  bool isSelected;
+  QString aName;
+  for ( ; anIter.More(); anIter.Next() )
   {
-    theErrorMsg = tr( "INCORRECT_OBJECT_NAME" );
-    return false;
+    anEntity = anIter.Value();
+    if ( !anEntity.IsNull() )
+    {
+      aShape = module()->getObjectShape( HYDROGUI_Module::VMR_PreviewCaseZones, anEntity );
+      if ( aShape )
+      {
+        aName = anEntity->GetName();
+        isSelected = aSelectedObjsMap.contains( aName );
+        aShape->highlight( isSelected, false );
+        aShape->update( false, false );
+        aLastShape = aShape;
+      }
+    }
   }
+  if( aLastShape )
+    aLastShape->update( true, false );
+}
 
-  // check that there are no other objects with the same name in the document
-  if( !myIsEdit || ( !myEditedObject.IsNull() && myEditedObject->GetName() != anObjectName ) )
+void HYDROGUI_CalculationOp::onLandCoversSelected()
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+
+  QStringList aSelectedObjs = aPanel->getSelectedLandCovers();
+  QMap<QString, bool> aSelectedObjsMap;
+  foreach( QString aName, aSelectedObjs )
+    aSelectedObjsMap[aName] = true;
+
+
+  // Select the appropriate land cover shape in the viewer
+  selectionMgr()->clearSelected();
+
+  // Unhighlight all land covers except selected
+  HYDROGUI_Shape* aShape = 0, *aLastShape = 0;
+  Handle(HYDROData_Entity) anEntity;
+  HYDROData_SequenceOfObjects aSeq = myEditedObject->GetLandCovers();
+  HYDROData_SequenceOfObjects::Iterator anIter( aSeq );
+  bool isSelected;
+  QString aName;
+  for ( ; anIter.More(); anIter.Next() )
   {
-    Handle(HYDROData_Object) anObject = HYDROGUI_Tool::FindObjectByName( module(), anObjectName );
-    if ( !anObject.IsNull() )
+    anEntity = anIter.Value();
+    if ( !anEntity.IsNull() )
     {
-      theErrorMsg = tr( "OBJECT_EXISTS_IN_DOCUMENT" ).arg( anObjectName );
-      return false;
+      aShape = module()->getObjectShape( HYDROGUI_Module::VMR_PreviewCaseZones, anEntity );
+      if ( aShape )
+      {
+        aName = anEntity->GetName();
+        isSelected = aSelectedObjsMap.contains( aName );
+        aShape->highlight( isSelected, false );
+        aShape->update( false, false );
+        aLastShape = aShape;
+      }
     }
   }
+  if( aLastShape )
+    aLastShape->update( true, false );
+}
 
-  Handle(HYDROData_Document) aDocument = doc();
+void HYDROGUI_CalculationOp::onClickedInZonesBrowser( SUIT_DataObject* theItem )
+{
+  HYDROGUI_Region* aRegionItem = dynamic_cast<HYDROGUI_Region*>(theItem);
+  HYDROGUI_Zone* aZoneItem;
+  selectionMgr()->clearSelected();
+  if ( aRegionItem )
+  {
+    // Select a region in preview
+    SUIT_DataOwnerPtrList aList( true );
+    DataObjectList aZones = aRegionItem->children();
+    for ( int i = 0; i < aZones.length(); i++ )
+    {
+      aZoneItem = dynamic_cast<HYDROGUI_Zone*>(aZones.at(i));
+      if ( aZoneItem )
+      {
+        aList.append( SUIT_DataOwnerPtr( new LightApp_DataOwner( aZoneItem->entry() ) ) );
+      }
+    }
+    selectionMgr()->setSelected( aList );
+  }
+  else
+  {
+    // select a single zone
+    aZoneItem = dynamic_cast<HYDROGUI_Zone*>(theItem);
+    if ( aZoneItem )
+    {
+      SUIT_DataOwnerPtrList aList( true );
+      aList.append( SUIT_DataOwnerPtr( new LightApp_DataOwner( aZoneItem->entry() ) ) );
+      selectionMgr()->setSelected( aList );
+    }
+  }
+}
 
-  Handle(HYDROData_Calculation) aCalculObj = myIsEdit ? myEditedObject :
-    Handle(HYDROData_Calculation)::DownCast( aDocument->CreateObject( KIND_CALCULATION ) );
-  if ( aCalculObj.IsNull() )
-    return false;
+void HYDROGUI_CalculationOp::onMoveZones( SUIT_DataObject* theRegionItem, const QList<SUIT_DataObject*>& theZonesList )
+{
+  HYDROGUI_Region* aRegion = dynamic_cast<HYDROGUI_Region*>(theRegionItem);
+  if ( aRegion )
+  {
+    QList<HYDROGUI_Zone*> aZonesList;
+    HYDROGUI_Zone* aZone;
+    // Get a list of dropped zones
+    for ( int i = 0; i < theZonesList.length(); i++ )
+    {
+      aZone = dynamic_cast<HYDROGUI_Zone*>( theZonesList.at( i ) );
+      if ( aZone )
+      {
+        aZonesList.append( aZone );
+      }
+    }
+    if ( aZonesList.length() > 0 )
+    {
+      aRegion->addZones( aZonesList );
+      HYDROGUI_CalculationDlg* aPanel = 
+        ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+      if ( aPanel )
+      {
+        aPanel->refreshZonesBrowser();
+      }
+      createPreview();
+    }
+  }
+}
 
-  aCalculObj->SetName( anObjectName );
+void HYDROGUI_CalculationOp::onCreateRegion( const QList<SUIT_DataObject*>& theZonesList )
+{
+  QList<HYDROGUI_Zone*> aZonesList;
+  HYDROGUI_Zone* aZone;
+  // Get a list of dropped zones
+  for ( int i = 0; i < theZonesList.length(); i++ )
+  {
+    aZone = dynamic_cast<HYDROGUI_Zone*>( theZonesList.at( i ) );
+    if ( aZone )
+    {
+      aZonesList.append( aZone );
+    }
+  }
+  if ( aZonesList.length() > 0 )
+  {
+    module()->getDataModel()->createNewRegion( myEditedObject, aZonesList );
+    HYDROGUI_CalculationDlg* aPanel = 
+      ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+    if ( aPanel )
+    {
+      aPanel->refreshZonesBrowser();
+    }
+    createPreview();
+  }
+}
 
-  QString aPolylineName = aPanel->getPolylineName();
-  Handle(HYDROData_Polyline) aBndPolyline = Handle(HYDROData_Polyline)::DownCast(
-      HYDROGUI_Tool::FindObjectByName( module(), aPolylineName, KIND_POLYLINE ) );
+void HYDROGUI_CalculationOp::onSetMergeType( int theMergeType, QString& theAltitudeName )
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( aPanel )
+  {
+    HYDROGUI_Zone* aZone = aPanel->getCurrentZone();
+    if ( aZone )
+    {
+      aZone->setMergeType( theMergeType, theAltitudeName );
+      HYDROGUI_Shape* aShape = module()->getObjectShape( HYDROGUI_Module::VMR_PreviewCaseZones, aZone->modelObject() );
+      if ( aShape )
+      {
+        aShape->update( true, false );
+      }
+    }
+    aPanel->refreshZonesBrowser();
+  }
+}
 
-  aCalculObj->SetBoundaryPolyline( aBndPolyline );
+void HYDROGUI_CalculationOp::onAddObjects()
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
 
-  QStringList aRefZoneNames = aPanel->getSelectedZones();
-  HYDROData_SequenceOfObjects aRefZones = 
-    HYDROGUI_Tool::FindObjectsByNames( module(), aRefZoneNames, KIND_ZONE );
+  // Add geometry objects selected in the module browser to the calculation case
+  QStringList aSelectedList = aPanel->getSelectedAvailableGeomObjects();
+  if ( aSelectedList.isEmpty() || !confirmRegionsChange() )
+    return;
 
-  aCalculObj->SetZones( aRefZones );
+  QStringList anAddedList;
+  for (int i = 0; i < aSelectedList.length(); i++)
+  {
+    Handle(HYDROData_Object) anObject = Handle(HYDROData_Object)::DownCast( 
+      HYDROGUI_Tool::FindObjectByName( module(), aSelectedList.at( i ) ) );
+    if ( anObject.IsNull() )
+      continue;
 
-  HYDROData_SequenceOfObjects aSplittedZones;
+    if ( myEditedObject->AddGeometryObject( anObject ) )
+      anAddedList.append( anObject->GetName() );
+  }
 
-  SplittedZonesList::iterator anIter = mySplittedZones.begin();
-  for ( ; anIter != mySplittedZones.end(); ++anIter )
+  if ( !anAddedList.isEmpty() )
   {
-    const SplittedZone& aSplittedZone = *anIter;
+    aPanel->includeGeomObjects( anAddedList );
+    createPreview();
+  }
+}
 
-    Handle(HYDROData_Polyline) aPolyline =
-      Handle(HYDROData_Polyline)::DownCast( aDocument->CreateObject( KIND_POLYLINE ) );
-    Handle(HYDROData_Zone) aDtaZone =
-      Handle(HYDROData_Zone)::DownCast( aDocument->CreateObject( KIND_ZONE ) );
+void HYDROGUI_CalculationOp::onRemoveObjects()
+{
+  // Remove selected objects from the calculation case
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  QStringList aSelectedList = aPanel->getSelectedGeomObjects();
+  if ( aSelectedList.isEmpty() || !confirmRegionsChange() )
+    return;
 
-    if( aPolyline.IsNull() || aDtaZone.IsNull() )
+  for (int i = 0; i < aSelectedList.length(); i++)
+  {
+    Handle(HYDROData_Object) anObject = Handle(HYDROData_Object)::DownCast( 
+      HYDROGUI_Tool::FindObjectByName( module(), aSelectedList.at(i) ) );
+    if ( anObject.IsNull() )
       continue;
 
-    // Fill the polyline data
-    aPolyline->SetName( aSplittedZone.PolylineName );
-    aPolyline->setDimension( 2 );
+    setObjectVisibility( anObject, false );
+    myEditedObject->RemoveGeometryObject( anObject );
+  }
+
+  module()->update( UF_OCCViewer );
+  aPanel->excludeGeomObjects( aSelectedList );
+}
 
-    QList<PolylineSection> aPolylineData;
-    for( int i = 0, n = aSplittedZone.SplitData.Path.elementCount(); i < n; i++ )
+bool HYDROGUI_CalculationOp::confirmRegionsChange() const
+{
+  // Check if the case is already modified or not
+  bool isConfirmed = myEditedObject->IsMustBeUpdated();
+  if ( !isConfirmed )
+  {
+    // If not modified check if the case has already defined regions with zones
+    HYDROData_SequenceOfObjects aSeq = myEditedObject->GetRegions();
+    if ( aSeq.Length() > 0 )
     {
-      const QPainterPath::Element anElement = aSplittedZone.SplitData.Path.elementAt( i );
-      switch( anElement.type )
-      {
-        case QPainterPath::MoveToElement:
-          aPolylineData.append( PolylineSection() );
-          break;
-        case QPainterPath::LineToElement:
-          if( !aPolylineData.isEmpty() )
-          {
-            PolylineSection& aSection = aPolylineData.last();
-            aSection.myCoords << anElement.x;
-            aSection.myCoords << anElement.y;
-          }
-          break;
-        case QPainterPath::CurveToElement: // currently not supported
-        default:
-          break;
-      }
+      // If there are already defined zones then ask a user to confirm zones recalculation
+      isConfirmed = ( SUIT_MessageBox::question( module()->getApp()->desktop(),
+                               tr( "REGIONS_CHANGED" ),
+                               tr( "CONFIRM_SPLITTING_ZONES_RECALCULATION_REGIONS" ),
+                               QMessageBox::Yes | QMessageBox::No,
+                               QMessageBox::No ) == QMessageBox::Yes );
     }
-    aPolyline->setPolylineData( aPolylineData );
+    else
+    {
+      isConfirmed = true; // No regions - no zones - nothing to recalculate
+    }
+  }
+  return isConfirmed;
+}
 
-    // Fill the zone data
-    aDtaZone->SetName( aSplittedZone.ZoneName );
-    aDtaZone->SetPolyline( aPolyline );
-    aDtaZone->SetBorderColor( aSplittedZone.BorderColor );
-    aDtaZone->SetFillingColor( aSplittedZone.FillingColor );
+bool HYDROGUI_CalculationOp::confirmOrderChange() const
+{
+  // Check if the case is already modified or not
+  bool isConfirmed = myEditedObject->IsMustBeUpdated();
+  if ( !isConfirmed )
+  {
+    // If not modified check if the case has already defined regions with zones
+    HYDROData_SequenceOfObjects aSeq = myEditedObject->GetRegions();
+    if ( aSeq.Length() > 0 )
+    {
+      // If there are already defined zones then ask a user to confirm zones recalculation
+      isConfirmed = ( SUIT_MessageBox::question( module()->getApp()->desktop(),
+                               tr( "ORDER_CHANGED" ),
+                               tr( "CONFIRM_SPLITTING_ZONES_RECALCULATION_REGIONS" ),
+                               QMessageBox::Yes | QMessageBox::No,
+                               QMessageBox::No ) == QMessageBox::Yes );
+    }
+    else
+    {
+      isConfirmed = true; // No regions - no zones - nothing to recalculate
+    }
+  }
+  return isConfirmed;
+}
 
-    aSplittedZones.Append( aDtaZone );
+bool HYDROGUI_CalculationOp::confirmModeChange() const
+{
+  // Check if the case is already modified or not
+  bool isConfirmed = myEditedObject->IsMustBeUpdated();
+  if ( !isConfirmed )
+  {
+    // If not modified check if the case has already defined regions with zones
+    HYDROData_SequenceOfObjects aSeq = myEditedObject->GetRegions();
+    if ( aSeq.Length() > 0 )
+    {
+      // If there are already defined zones then ask a user to confirm zones recalculation
+      isConfirmed = ( SUIT_MessageBox::question( module()->getApp()->desktop(),
+                               tr( "MODE_CHANGED" ),
+                               tr( "CONFIRM_SPLITTING_ZONES_RECALCULATION_MODE" ),
+                               QMessageBox::Yes | QMessageBox::No,
+                               QMessageBox::No ) == QMessageBox::Yes );
+    }
+    else
+    {
+      isConfirmed = true; // No regions - no zones - nothing to recalculate
+    }
   }
+  return isConfirmed;
+}
 
-  aCalculObj->SetSplittedZones( aSplittedZones );
+bool HYDROGUI_CalculationOp::confirmContinueWithWarning( const HYDROData_Warning& theWarning ) const
+{
+  HYDROData_WarningType aType = theWarning.Type;
+  if ( aType == WARN_OK ) {
+    return true;
+  }
 
-  theUpdateFlags = UF_Model;
+  QString aTitle;
+  QString aMsg;
+  switch ( aType )
+  {
+    case WARN_EMPTY_REGIONS:
+      aTitle = tr( "EMPTY_REGIONS" );
+      aMsg = tr( "CONFIRM_CONTINUE_WITH_OBJECTS_NOT_INCLUDED_TO_REGION" ).arg( theWarning.Data );
+      break;
+    default:
+      aTitle = tr( "WARNING" );
+      aMsg = theWarning.Data;
+  }
 
-  return true;
+
+  int anAnswer = SUIT_MessageBox::warning( module()->getApp()->desktop(),
+                                           aTitle, aMsg,
+                                           QMessageBox::Yes | QMessageBox::No,
+                                           QMessageBox::No );
+
+  return ( anAnswer == QMessageBox::Yes );
 }
 
-void HYDROGUI_CalculationOp::onSplitZones()
+bool HYDROGUI_CalculationOp::confirmLandCoverModeChange() const
 {
-  mySplittedZones.clear();
+  // Check if the case is already modified or not
+  bool isConfirmed = myEditedObject->IsMustBeUpdated();
+  if ( !isConfirmed )
+  {
+    // If not modified check if the case has already defined regions with zones
+    // TODO: adapt HYDROData_CalculationCase class to process regions constructed for land covers
+    /*HYDROData_SequenceOfObjects aSeq = myEditedObject->GetLandCoverRegions();
+    if ( aSeq.Length() > 0 )
+    {*/
+      // If there are already defined zones then ask a user to confirm zones recalculation
+      isConfirmed = ( SUIT_MessageBox::question( module()->getApp()->desktop(),
+                               tr( "MODE_CHANGED" ),
+                               tr( "CONFIRM_LAND_COVER_PARTITION_RECALCULATION_MODE" ),
+                               QMessageBox::Yes | QMessageBox::No,
+                               QMessageBox::No ) == QMessageBox::Yes );
+    /*}
+    else
+    {
+      isConfirmed = true; // No regions - no zones - nothing to recalculate
+    }*/
+  }
+  return isConfirmed;
+}
+
+bool HYDROGUI_CalculationOp::confirmLandCoverOrderChange() const
+{
+  // Check if the case is already modified or not
+  bool isConfirmed = myEditedObject->IsMustBeUpdated();
+  if ( !isConfirmed )
+  {
+    // If not modified check if the case has already defined regions with zones
+    // TODO: adapt HYDROData_CalculationCase class to process regions constructed for land covers
+    /*HYDROData_SequenceOfObjects aSeq = myEditedObject->GetLandCoverRegions();
+    if ( aSeq.Length() > 0 )
+    {*/
+      // If there are already defined zones then ask a user to confirm zones recalculation
+      isConfirmed = ( SUIT_MessageBox::question( module()->getApp()->desktop(),
+                               tr( "ORDER_CHANGED" ),
+                               tr( "CONFIRM_LAND_COVER_PARTITION_RECALCULATION_REGIONS" ),
+                               QMessageBox::Yes | QMessageBox::No,
+                               QMessageBox::No ) == QMessageBox::Yes );
+    /*}
+    else
+    {
+      isConfirmed = true; // No regions - no zones - nothing to recalculate
+    }*/
+  }
+  return isConfirmed;
+}
 
+bool HYDROGUI_CalculationOp::processApply( int&     theUpdateFlags,
+                                           QString& theErrorMsg,
+                                           QStringList& theBrowseObjectsEntries )
+{
   HYDROGUI_CalculationDlg* aPanel = 
     ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
   if ( !aPanel )
-    return;
+    return false;
+
+  if( !myIsEdit )
+  {
+    QString anEntry = HYDROGUI_DataObject::dataObjectEntry( myEditedObject );
+    theBrowseObjectsEntries.append( anEntry );
+  }
+
+  // For manual mode priority rules are redundant
+  if ( aPanel->getMode() == HYDROData_CalculationCase::MANUAL ) {
+    myEditedObject->ClearRules( HYDROData_CalculationCase::DataTag_CustomRules, false );
+  }
+  if ( aPanel->getLandCoverMode() == HYDROData_CalculationCase::MANUAL ) {
+    myEditedObject->ClearRules( HYDROData_CalculationCase::DataTag_CustomLandCoverRules, false );
+  }
+  theUpdateFlags = UF_Model | UF_OCCViewer | UF_OCC_Forced | UF_VTKViewer | UF_VTK_Forced | UF_VTK_Init;
+
+  return true;
+}
+
+void HYDROGUI_CalculationOp::onApply()
+{
+  // Check warnings
+  HYDROData_Warning aWarning = myEditedObject->GetLastWarning();
+  if ( aWarning.Type != WARN_OK ) {
+    if ( !confirmContinueWithWarning( aWarning ) ) {
+      // Go back to the first page
+      HYDROGUI_CalculationDlg* aPanel = 
+        ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+      if ( aPanel ) {
+        aPanel->onFirstPage();
+      }
+      return;
+    }
+  }
 
   QApplication::setOverrideCursor( Qt::WaitCursor );
 
-  QString aPolylineName = aPanel->getPolylineName();
-  Handle(HYDROData_Polyline) aBndPolyline = Handle(HYDROData_Polyline)::DownCast(
-      HYDROGUI_Tool::FindObjectByName( module(), aPolylineName, KIND_POLYLINE ) );
+  int anUpdateFlags = 0;
+  QString anErrorMsg;
+  QStringList aBrowseObjectsEntries;
 
-  QStringList aZoneNames = aPanel->getSelectedZones();
-  HYDROData_SequenceOfObjects aZones = 
-    HYDROGUI_Tool::FindObjectsByNames( module(), aZoneNames, KIND_ZONE );
+  bool aResult = false;
+  
+  try
+  {
+    aResult = processApply( anUpdateFlags, anErrorMsg, aBrowseObjectsEntries );
+  }
+  catch ( Standard_Failure )
+  {
+    Handle(Standard_Failure) aFailure = Standard_Failure::Caught();
+    anErrorMsg = aFailure->GetMessageString();
+    aResult = false;
+  }
+  catch ( ... )
+  {
+    aResult = false;
+  }
+  
+  QApplication::restoreOverrideCursor();
 
-  QStringList aResSplittedZones;
+  if ( aResult )
+  {
+    module()->update( anUpdateFlags );
+    commit();
+    browseObjects( aBrowseObjectsEntries );
+  }
+  else
+  {
+    abort();
+    QString aMsg = tr( "INPUT_VALID_DATA" );
+    if( !anErrorMsg.isEmpty() )
+      aMsg.prepend( anErrorMsg + "\n" );
+    SUIT_MessageBox::critical( module()->getApp()->desktop(),
+                               tr( "INSUFFICIENT_INPUT_DATA" ),
+                               aMsg ); 
+  }
+}
 
-  HYDROGUI_SplitZonesTool::SplitDataList aSplittedZones =
-    HYDROGUI_SplitZonesTool::SplitZones( aZones, aBndPolyline );
+void HYDROGUI_CalculationOp::onNext( const int theIndex )
+{
+  if( theIndex==1 )
+  {
+    setAvailableGroups();
+  }
+  else if( theIndex==2 )
+  {
+    // Land covers panel
+     HYDROGUI_CalculationDlg* aPanel = 
+      ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+    if ( !aPanel )
+      return;
+
+    QStringList aList;
+    QStringList anEntryList;
+    HYDROData_SequenceOfObjects aSeq;
+
+    Handle(HYDROData_StricklerTable) aStricklerTableObj;
+    QString aStricklerTableName;
+
+    // Get all Strickler table objects to fill in combo-box
+    aList.clear();
+    anEntryList.clear();
+    HYDROData_Iterator anIter( doc(), KIND_STRICKLER_TABLE );      
+    for ( ; anIter.More(); anIter.Next() )
+    {
+      aStricklerTableObj = Handle(HYDROData_StricklerTable)::DownCast( anIter.Current() );
+
+      if ( !aStricklerTableObj.IsNull() )
+      { 
+        aStricklerTableName = aStricklerTableObj->GetName();
+        if ( !aStricklerTableName.isEmpty() )
+        {
+          aList.append( aStricklerTableName );
+          anEntryList.append( HYDROGUI_DataObject::dataObjectEntry( aStricklerTableObj ) );
+        }        
+      }
+    }
+    aPanel->setStricklerTableNames( aList, anEntryList );
+    if ( !aList.isEmpty() )
+      aPanel->setStricklerTable( aList.at( 0 ), false );
+
+    // Fill in list widget with all available land covers
+    aSeq = HYDROGUI_Tool::GetLandCovers( module() );
+    getNamesAndEntries( aSeq, aList, anEntryList );
+    aPanel->setAllLandCovers( aList, anEntryList );
+
+    // Set list of included land covers
+    aSeq = myEditedObject->GetLandCovers();
+    getNamesAndEntries( aSeq, aList, anEntryList );
+    aPanel->includeLandCovers( aList, true );
+    
+    if ( !myEditedObject.IsNull() )
+    {
+      if ( myIsEdit )
+      {      
+        // Select the certain Strickler table object in combo-box
+        aStricklerTableObj = myEditedObject->GetStricklerTable();
+        if ( aStricklerTableObj.IsNull() )
+        {
+          aPanel->setStricklerTable( QString() );
+        }
+        else
+        {
+          aStricklerTableName = aStricklerTableObj->GetName();
+          aPanel->setStricklerTable( aStricklerTableName );
+        }
+
+        // Set mode (Auto or Manual) to defined priority of land covers
+        aPanel->setLandCoverMode( myEditedObject->GetAssignmentLandCoverMode() );
+
+        // Set rules defined on land covers
+        setRules( HYDROData_CalculationCase::DataTag_CustomLandCoverRules );
+      }
+      else
+      {
+        myEditedObject->SetAssignmentLandCoverMode( (HYDROData_CalculationCase::AssignmentMode)aPanel->getLandCoverMode() );
+      }
+    }
+  }
+  else if( theIndex==3 )
+  {
+    HYDROGUI_CalculationDlg* aPanel = 
+      ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+    if ( !aPanel )
+      return;
 
-  QString aSplitZonesPrefix = aPanel->getSplitZonesPrefix();
-  QStringList aUsedNames;
+    QApplication::setOverrideCursor( Qt::WaitCursor );
+  
+    QString aNewCaseName = aPanel->getObjectName();
+    QString anOldCaseName = myEditedObject->GetName();
+    bool isNameChanged = anOldCaseName != aNewCaseName;
+  
+    bool anIsToUpdateOb = isNameChanged;
+
+    // At first we must to update the case name because of 
+    // automatic names generation for regions and zones
+    myEditedObject->SetName( aNewCaseName );
+    
+    // Set parameters for automatic mode
+    int aMode = aPanel->getMode();
+    if ( aMode == HYDROData_CalculationCase::AUTOMATIC )
+    {
+      // Set objects in the specified order
+      if( myEditedObject->IsMustBeUpdated() )
+      {
+        myEditedObject->RemoveGeometryObjects();
+        foreach ( const QString& aName, aPanel->getAllGeomObjects() )
+        {
+          Handle(HYDROData_Object) anObject = Handle(HYDROData_Object)::DownCast( 
+            HYDROGUI_Tool::FindObjectByName( module(), aName ) );
+          if ( anObject.IsNull() )
+          {
+            continue;
+          }
+          myEditedObject->AddGeometryObject( anObject );
+        }
+
+        // Clear priority rules
+        //@ASL if ( myEditedObject->GetRulesCount() > 0 ) {
+          myEditedObject->ClearRules( HYDROData_CalculationCase::DataTag_CustomRules, true );
+        //@ASL }
+        // Set priority rules
+        foreach ( const HYDROData_CustomRule& aRule, aPanel->getRules() ) {
+          myEditedObject->AddRule( aRule.Object1, aRule.Priority,
+                                  aRule.Object2, aRule.MergeType,
+                                  HYDROData_CalculationCase::DataTag_CustomRules );
+        }
+      }
+    }
+    aPanel->setEditZonesEnabled( aMode == HYDROData_CalculationCase::MANUAL );
+         
+    if ( myEditedObject->IsMustBeUpdated() )
+    {
+      myShowZones = true;
+      myEditedObject->Update();
+      
+      AssignDefaultZonesColors();
 
-  HYDROGUI_SplitZonesTool::SplitDataListIterator anIter( aSplittedZones );
-  while( anIter.hasNext() )
+      //aPanel->setEditedObject( myEditedObject );
+      aPanel->refreshZonesBrowser();
+    
+      closePreview();
+      createPreview();
+
+      anIsToUpdateOb = true;
+
+      myEditedObject->SetToUpdate( true );
+    }
+    else
+    {
+      setZonesVisible( true );
+
+      if ( isNameChanged ) {
+        module()->getDataModel()->updateObjectTree( myEditedObject );
+      }
+    }
+
+    // Move this code to processing od the last panel (see below)
+    if ( anIsToUpdateOb ) {
+      SUIT_DataBrowser* anObjBrowser = ((LightApp_Application*)module()->application())->objectBrowser();
+      if ( anObjBrowser ) {
+        anObjBrowser->updateTree( module()->getDataModel()->getDataObject( myEditedObject ), false );
+      }
+    }
+
+    QApplication::restoreOverrideCursor();
+  }
+  else if( theIndex==4 )
   {
-    SplittedZone aSplittedZone;
-    aSplittedZone.SplitData = anIter.next();
+    // Partition of Land covers panel
+    HYDROGUI_CalculationDlg* aPanel = 
+      ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+    if ( !aPanel )
+      return;
 
-    aSplittedZone.FillingColor = HYDROGUI_Tool::GenerateFillingColor( module(), aSplittedZone.SplitData.ZoneNames );
-    aSplittedZone.BorderColor  = QColor( HYDROData_Zone::DefaultBorderColor() );
+    QApplication::setOverrideCursor( Qt::WaitCursor );
 
-    aSplittedZone.ZoneName = HYDROGUI_Tool::GenerateObjectName( module(), aSplitZonesPrefix + "Zone", aUsedNames );
-    aSplittedZone.PolylineName = HYDROGUI_Tool::GenerateObjectName( module(), aSplitZonesPrefix + "Poly", aUsedNames );
+    // Set parameters for automatic mode
+    int aMode = aPanel->getLandCoverMode();
+    if ( aMode == HYDROData_CalculationCase::AUTOMATIC )
+    {
+      // Set objects in the specified order
+      if( myEditedObject->IsMustBeUpdated() )
+      {
+        myEditedObject->RemoveLandCovers();
+        foreach ( const QString& aName, aPanel->getAllLandCovers() )
+        {
+          Handle(HYDROData_LandCover) aLandCover = Handle(HYDROData_LandCover)::DownCast( 
+            HYDROGUI_Tool::FindObjectByName( module(), aName ) );
+          if ( aLandCover.IsNull() )
+          {
+            continue;
+          }
+          myEditedObject->AddLandCover( aLandCover );
+        }
+
+        // Clear priority rules
+        myEditedObject->ClearRules( HYDROData_CalculationCase::DataTag_CustomLandCoverRules, true );
+        // Set priority rules
+        foreach ( const HYDROData_CustomRule& aRule, aPanel->getLandCoverRules() ) {
+          myEditedObject->AddRule( aRule.Object1, aRule.Priority,
+                                   aRule.Object2, HYDROData_Zone::Merge_Object,
+                                   HYDROData_CalculationCase::DataTag_CustomLandCoverRules );
+        }
+      }
+    }
+    aPanel->setEditLandCoversEnabled( aMode == HYDROData_CalculationCase::MANUAL );
 
-    aUsedNames.append( aSplittedZone.ZoneName );
-    aUsedNames.append( aSplittedZone.PolylineName );
+    QApplication::restoreOverrideCursor();
+  }
+}
 
-    aResSplittedZones.append( aSplittedZone.ZoneName );
+void HYDROGUI_CalculationOp::onHideZones()
+{
+  setZonesVisible( false );
+}
 
-    mySplittedZones.append( aSplittedZone );
+void HYDROGUI_CalculationOp::setZonesVisible( bool theIsVisible )
+{
+  myShowZones = theIsVisible;
+  HYDROData_SequenceOfObjects aRegions = myEditedObject->GetRegions();
+  HYDROData_SequenceOfObjects::Iterator aRegionsIter( aRegions );
+  HYDROData_SequenceOfObjects aZones;
+  Handle(HYDROData_Region) aRegion;
+  if ( myPreviewViewManager ) 
+  {
+    if ( OCCViewer_Viewer* aViewer = myPreviewViewManager->getOCCViewer() )
+    {
+      Handle(AIS_InteractiveContext) aCtx = aViewer->getAISContext();
+      if ( !aCtx.IsNull() )
+      {
+        for ( ; aRegionsIter.More(); aRegionsIter.Next() )
+        {
+          aRegion = Handle(HYDROData_Region)::DownCast( aRegionsIter.Value() );
+          if ( !aRegion.IsNull() )
+          {
+            aZones = aRegion->GetZones();
+            HYDROData_SequenceOfObjects::Iterator aZonesIter( aZones );
+            for ( ; aZonesIter.More(); aZonesIter.Next() )
+            {
+              setObjectVisibility( aZonesIter.Value(), theIsVisible );
+            }
+          }
+        }
+      }
+
+      module()->update( UF_OCCViewer );
+    }
   }
+}
 
-  aPanel->setSplittedZones( aResSplittedZones );
-  
-  createPreview();
+void HYDROGUI_CalculationOp::AssignDefaultZonesColors()
+{
+  HYDROData_SequenceOfObjects aRegions = myEditedObject->GetRegions();
+  HYDROData_SequenceOfObjects::Iterator aRegionsIter( aRegions );
+  HYDROData_SequenceOfObjects aZones;
+  Handle(HYDROData_Region) aRegion;
+  if ( myPreviewViewManager ) 
+  {
+    if ( OCCViewer_Viewer* aViewer = myPreviewViewManager->getOCCViewer() )
+    {
+      Handle(AIS_InteractiveContext) aCtx = aViewer->getAISContext();
+      if ( !aCtx.IsNull() )
+      {
+        int aCounter = 0;        
+        for ( ; aRegionsIter.More(); aRegionsIter.Next() )
+        {
+          aRegion = Handle(HYDROData_Region)::DownCast( aRegionsIter.Value() );
+          if ( !aRegion.IsNull() )
+          {
+            aZones = aRegion->GetZones();
+            HYDROData_SequenceOfObjects::Iterator aZonesIter( aZones );
+            for ( ; aZonesIter.More(); aZonesIter.Next() )
+            {
+              // Zone
+              Handle(HYDROData_Zone) aZone = Handle(HYDROData_Zone)::DownCast( aZonesIter.Value() );
+              if ( !aZone.IsNull() )
+              {
+                QColor aFillingColor = GenerateDefaultZonesColor(++aCounter);
+                while (aFillingColor == Qt::red)
+                  aFillingColor = GenerateDefaultZonesColor(++aCounter);
+                
+                aZone->SetColor(aFillingColor);
+              }
+            }
+          }
+        }
+      }
+    }
+  }
+}
 
-  QApplication::restoreOverrideCursor();
+QColor HYDROGUI_CalculationOp::GenerateDefaultZonesColor( int theIndex,
+                                                          float theSaturation/* = 0.5*/,
+                                                          float theValue/* = 0.95*/ ) const
+{
+  float aGoldenRatioConjugate = (float)(360./582.);
+  float aHue = (float)rand();
+  aHue += aGoldenRatioConjugate*theIndex;
+  aHue -= floor(aHue);
+
+  float aR = 0., aG = 0., aB = 0.;
+  int aHueInt = (int)(aHue*6.);
+  float aF = aHue*6. - aHueInt;
+  float aP = theValue * (1. - theSaturation);
+  float aQ = theValue * (1. - aF*theSaturation);
+  float aT = theValue * (1. - (1. - aF) * theSaturation);
+  switch (aHueInt)
+  {
+  case 0: { aR = theValue; aG = aT; aB = aP; break; }
+  case 1: { aR = aQ; aG = theValue; aB = aP; break; }
+  case 2: { aR = aP; aG = theValue; aB = aT; break; }
+  case 3: { aR = aP; aG = aQ; aB = theValue; break; }
+  case 4: { aR = aT; aG = aP; aB = theValue; break; }
+  case 5: { aR = theValue; aG = aP; aB = aQ; break; }
+  default: break;
+  }
+
+  QColor aColor = QColor( (int)(aR*256.), (int)(aG*256.), (int)(aB*256.) );
+  return ( aColor.isValid() ? aColor : HYDROData_ImmersibleZone::DefaultFillingColor() );
+}
+
+void HYDROGUI_CalculationOp::setRules( HYDROData_CalculationCase::DataTag theDataTag )
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  HYDROData_ListOfRules aRules;
+  Handle(HYDROData_Entity) anObject1, anObject2;
+  HYDROData_PriorityType aPriority;
+  HYDROData_Zone::MergeAltitudesType aMergeType;
+  HYDROData_CalculationCase::DataTag aDataTag = HYDROData_CalculationCase::DataTag_CustomRules;
+  for ( int anIndex = 0; ; anIndex++ )
+  {
+    if ( myEditedObject->GetRule( anIndex, anObject1, aPriority, anObject2, aMergeType, theDataTag ) ) {
+      HYDROData_CustomRule aRule;
+      aRule.Object1 = anObject1;
+      aRule.Object2 = anObject2;
+      aRule.Priority = aPriority;
+      aRule.MergeType = aMergeType;
+
+      aRules << aRule;
+    }
+    else
+      break;
+  }
+
+  if ( theDataTag == HYDROData_CalculationCase::DataTag_CustomRules )
+    aPanel->setRules( aRules );
+  else if ( theDataTag == HYDROData_CalculationCase::DataTag_CustomLandCoverRules )
+    aPanel->setLandCoverRules( aRules );
 }
 
 void HYDROGUI_CalculationOp::createPreview()
 {
   LightApp_Application* anApp = module()->getApp();
+  HYDROData_SequenceOfObjects aSeq = myEditedObject->GetGeometryObjects();
+  Handle(HYDROData_Entity) anEntity;
+
+  if ( myShowZones )
+  {
+    // Gather zones for displaying
+    HYDROData_SequenceOfObjects aRegions = myEditedObject->GetRegions();
+    HYDROData_SequenceOfObjects::Iterator aRegionsIter( aRegions );
+    HYDROData_SequenceOfObjects aZones;
+    Handle(HYDROData_Region) aRegion;
+    for ( ; aRegionsIter.More(); aRegionsIter.Next() )
+    {
+      anEntity = aRegionsIter.Value();
+      if ( !anEntity.IsNull() )
+      {
+        aRegion = Handle(HYDROData_Region)::DownCast( anEntity );
+        if ( !aRegion.IsNull() )
+        {
+          aZones = aRegion->GetZones();
+          aSeq.Append( aZones );
+        }
+      }
+    }
+  }
+
+  // Get a boundary polyline if any
+  aSeq.Append( myEditedObject->GetBoundaryPolyline() );
+
+  module()->removeViewShapes( HYDROGUI_Module::VMR_PreviewCaseZones );
 
   if ( !myActiveViewManager )
   {
+    if ( aSeq.IsEmpty() )
+      return;
+
     myActiveViewManager = anApp->activeViewManager();
   }
 
@@ -359,20 +1255,31 @@ void HYDROGUI_CalculationOp::createPreview()
     Handle(AIS_InteractiveContext) aCtx = aViewer->getAISContext();
     if ( !aCtx.IsNull() )
     {
-      SplittedZonesList::iterator anIter = mySplittedZones.begin();
-      for ( ; anIter != mySplittedZones.end(); ++anIter )
+      HYDROData_SequenceOfObjects::Iterator anIter( aSeq );
+      for ( ; anIter.More(); anIter.Next() )
       {
-        SplittedZone& aSplittedZone = *anIter;
-        if ( aSplittedZone.Shape )
-          delete aSplittedZone.Shape;
-
-        aSplittedZone.Shape = new HYDROGUI_Shape( aCtx );
-
-        aSplittedZone.Shape->setFillingColor( aSplittedZone.FillingColor, false );
-        aSplittedZone.Shape->setBorderColor( aSplittedZone.BorderColor, false );
-        aSplittedZone.Shape->setPath( aSplittedZone.SplitData.Path, true );
+        setObjectVisibility( anIter.Value(), true );
       }
+
+      //Process the draw events for viewer
+      QApplication::processEvents( QEventLoop::ExcludeUserInputEvents );
+      if ( OCCViewer_ViewWindow* vw = (OCCViewer_ViewWindow*)myPreviewViewManager->getActiveView() )
+        vw->onTopView();
     }
+
+    module()->update( UF_OCCViewer | UF_FitAll );
+  }
+}
+
+void HYDROGUI_CalculationOp::setObjectVisibility( Handle(HYDROData_Entity) theEntity, const bool theIsVisible )
+{
+  if ( theEntity.IsNull() || !myPreviewViewManager ) {
+    return;
+  }
+
+  OCCViewer_Viewer* aViewer = myPreviewViewManager->getOCCViewer();
+  if ( aViewer ) {
+    module()->setObjectVisible( (size_t)aViewer, theEntity, theIsVisible );
   }
 }
 
@@ -383,19 +1290,35 @@ void HYDROGUI_CalculationOp::onLastViewClosed( SUIT_ViewManager* theViewManager
 
 void HYDROGUI_CalculationOp::closePreview()
 {
-  SplittedZonesList::iterator anIter= mySplittedZones.begin();
-  for ( ; anIter != mySplittedZones.end(); ++anIter )
+  SUIT_DataBrowser* aOb = ((LightApp_Application*)module()->application())->objectBrowser();
+  QList<QShortcut*> aShortcuts = aOb->findChildren<QShortcut*>();
+  QShortcut* aShortcut;
+  foreach( aShortcut, aShortcuts )
   {
-    SplittedZone& aSplittedZone = *anIter;
-    if ( aSplittedZone.Shape )
+    if ( aShortcut->key() == 
+      QKeySequence( ((LightApp_Application*)module()->application())->objectBrowser()->shortcutKey( 
+      SUIT_DataBrowser::RenameShortcut ) ) )
     {
-      delete aSplittedZone.Shape;
-      aSplittedZone.Shape = NULL;
+      aShortcut->setEnabled( true );
     }
   }
 
+
   if( myPreviewViewManager )
   {
+    // Hide all the displayed objects in the preview view
+    OCCViewer_Viewer* aViewer = myPreviewViewManager->getOCCViewer();
+    if ( aViewer ) {
+      size_t aViewId = (size_t)aViewer;
+      HYDROData_Iterator anIterator( doc() );
+      for( ; anIterator.More(); anIterator.Next() ) {
+        Handle(HYDROData_Entity) anObject = anIterator.Current();
+        if( !anObject.IsNull() ) {
+          module()->setObjectVisible( aViewId, anObject, false );
+        }
+      }
+    }
+
     disconnect( myPreviewViewManager, SIGNAL( lastViewClosed( SUIT_ViewManager* ) ),
                 this, SLOT( onLastViewClosed( SUIT_ViewManager* ) ) );
 
@@ -410,4 +1333,210 @@ void HYDROGUI_CalculationOp::closePreview()
   }
 }
 
+void HYDROGUI_CalculationOp::setAvailableGroups()
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+      ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+
+  HYDROData_SequenceOfObjects aSeq = myEditedObject->GetGeometryGroups();
+  QStringList aList, anEntryList;
+  getNamesAndEntries( aSeq, aList, anEntryList );
+
+  QStringList aGroupsNames;
+
+  HYDROData_SequenceOfObjects anObjs = myEditedObject->GetGeometryObjects();
+  for( int anIndex = 1, aLength = anObjs.Length(); anIndex <= aLength; anIndex++ )
+  {
+    Handle_HYDROData_Object anObj = Handle_HYDROData_Object::DownCast( anObjs.Value( anIndex ) );
+    HYDROData_SequenceOfObjects aGroups = anObj->GetGroups();
+    for( int aGIndex = 1, aGLength = aGroups.Length(); aGIndex <= aGLength; aGIndex++ )
+    {
+      Handle_HYDROData_ShapesGroup aGroup = Handle_HYDROData_ShapesGroup::DownCast( aGroups.Value( aGIndex ) );
+      aGroupsNames.append( aGroup->GetName() );
+    }
+  }
+  if( myEditedObject->IsMustBeUpdated() ) {
+    for( int anIndex = 1, aLength = aSeq.Length(); anIndex <= aLength; anIndex++ ) {
+      Handle(HYDROData_ShapesGroup) aGeomGroup =
+        Handle(HYDROData_ShapesGroup)::DownCast( aSeq.Value( anIndex ) );
+      if ( !aGeomGroup.IsNull() && !aGroupsNames.contains( aGeomGroup->GetName() ) ) {
+        myEditedObject->RemoveGeometryGroup( aGeomGroup );
+      }
+    }
+  }
+
+  aPanel->setAvailableGroups( aGroupsNames );
+  aPanel->includeGroups( aList );
+
+  bool isUpdated = myEditedObject->IsMustBeUpdated();
+}
+
+void HYDROGUI_CalculationOp::onAddGroups()
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  // Add geometry objects selected in the module browser to the calculation case
+  QStringList aSelectedList = aPanel->getSelectedAvailableGroups();
+  if ( aSelectedList.isEmpty() || !confirmRegionsChange() )
+    return;
+
+  QStringList anAddedList;
+  for (int i = 0; i < aSelectedList.length(); i++)
+  {
+    Handle(HYDROData_ShapesGroup) aGroup = Handle(HYDROData_ShapesGroup)::DownCast( 
+      HYDROGUI_Tool::FindObjectByName( module(), aSelectedList.at( i ) ) );
+    if ( aGroup.IsNull() )
+      continue;
+
+    if ( myEditedObject->AddGeometryGroup( aGroup ) )
+      anAddedList.append( aGroup->GetName() );
+  }
+
+  if ( !anAddedList.isEmpty() )
+  {
+    aPanel->includeGroups( anAddedList );
+  }
+}
+
+void HYDROGUI_CalculationOp::onRemoveGroups()
+{
+  // Remove selected objects from the calculation case
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  QStringList aSelectedList = aPanel->getSelectedGroups();
+  if ( aSelectedList.isEmpty() || !confirmRegionsChange() )
+    return;
+
+  for (int i = 0; i < aSelectedList.length(); i++)
+  {
+    Handle(HYDROData_ShapesGroup) aGroup = Handle(HYDROData_ShapesGroup)::DownCast( 
+      HYDROGUI_Tool::FindObjectByName( module(), aSelectedList.at(i) ) );
+    if ( aGroup.IsNull() )
+      continue;
+
+    myEditedObject->RemoveGeometryGroup( aGroup );
+  }
+
+  aPanel->excludeGroups( aSelectedList );
+}
+
+void HYDROGUI_CalculationOp::onChangeLandCoverMode( int theMode )
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  if ( !confirmLandCoverModeChange() ) {
+    aPanel->setLandCoverMode( myEditedObject->GetAssignmentLandCoverMode() );
+    return;
+  }
+
+  myEditedObject->SetAssignmentLandCoverMode( (HYDROData_CalculationCase::AssignmentMode)theMode );
+  aPanel->setLandCoverMode( theMode );
+}
 
+void HYDROGUI_CalculationOp::onAddLandCovers()
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  // Add land covers selected in the module browser to the calculation case
+  QStringList aSelectedList = aPanel->getSelectedAvailableLandCovers();
+  if ( aSelectedList.isEmpty() || !confirmRegionsChange() )
+    return;
+
+  QStringList anAddedList;
+  for (int i = 0; i < aSelectedList.length(); i++)
+  {
+    Handle(HYDROData_LandCover) anObject = Handle(HYDROData_LandCover)::DownCast( 
+      HYDROGUI_Tool::FindObjectByName( module(), aSelectedList.at( i ) ) );
+    if ( anObject.IsNull() )
+      continue;
+
+    if ( myEditedObject->AddLandCover( anObject ) )
+      anAddedList.append( anObject->GetName() );
+  }
+
+  if ( !anAddedList.isEmpty() )
+  {
+    aPanel->includeLandCovers( anAddedList, false );
+    // TODO: create preview of included land covers
+    //createPreview();
+  }
+}
+
+void HYDROGUI_CalculationOp::onRemoveLandCovers()
+{
+  // Remove selected objects from the calculation case
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  QStringList aSelectedList = aPanel->getSelectedLandCovers();
+  if ( aSelectedList.isEmpty() || !confirmRegionsChange() )
+    return;
+
+  for (int i = 0; i < aSelectedList.length(); i++)
+  {
+    Handle(HYDROData_LandCover) anObject = Handle(HYDROData_LandCover)::DownCast( 
+      HYDROGUI_Tool::FindObjectByName( module(), aSelectedList.at(i) ) );
+    if ( anObject.IsNull() )
+      continue;
+
+    setObjectVisibility( anObject, false );
+    myEditedObject->RemoveLandCover( anObject );
+  }
+
+  module()->update( UF_OCCViewer );
+  aPanel->excludeLandCovers( aSelectedList );
+}
+
+void HYDROGUI_CalculationOp::onChangeMode( int theMode )
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  if ( !confirmModeChange() ) {
+    aPanel->setMode( myEditedObject->GetAssignmentMode() );
+    return;
+  }
+
+  myEditedObject->SetAssignmentMode( (HYDROData_CalculationCase::AssignmentMode)theMode );
+  aPanel->setMode( theMode );
+}
+
+void HYDROGUI_CalculationOp::onOrderChanged( bool& isConfirmed )
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  isConfirmed = confirmOrderChange();
+  if( isConfirmed )
+    myEditedObject->SetToUpdate( true );
+}
+
+void HYDROGUI_CalculationOp::onOrderLandCoverChanged( bool& isConfirmed )
+{
+  HYDROGUI_CalculationDlg* aPanel = 
+    ::qobject_cast<HYDROGUI_CalculationDlg*>( inputPanel() );
+  if ( !aPanel )
+    return;
+
+  isConfirmed = confirmLandCoverOrderChange();
+  if( isConfirmed )
+    myEditedObject->SetToUpdate( true );
+}