From a7dc65f10ea6910a20a9c9e55fd2110d0b4853dd Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.sassi@egalware.com>
Date: Mon, 19 Feb 2024 14:58:17 +0100
Subject: [PATCH] EgtCAM5 2.6b4 : - in simulazione migliorata gestione errori
 dopo EgtSimulStart - nella toolbar di Vista aggiunto anche comando IsoViewSE.

---
 My Project/AssemblyInfo.vb                    |  4 +--
 .../SimulationExpanderVM.vb                   |  1 +
 PopUpViewPanel/PopUpViewPanelV.xaml           |  3 --
 PopUpViewPanel/PopUpViewPanelVM.vb            | 30 -------------------
 ViewPanel/ViewPanelV.xaml                     |  3 ++
 ViewPanel/ViewPanelVM.vb                      | 30 +++++++++++++++++++
 6 files changed, 36 insertions(+), 35 deletions(-)

diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index c5777e2..2e2000f 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -70,6 +70,6 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.6.2.1")>
-<Assembly: AssemblyFileVersion("2.6.2.1")>
+<Assembly: AssemblyVersion("2.6.2.4")>
+<Assembly: AssemblyFileVersion("2.6.2.4")>
 
diff --git a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
index 6098616..093707b 100644
--- a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
+++ b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb
@@ -254,6 +254,7 @@ Public Class SimulationExpanderVM
          Else
             MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    'Errore sconosciuto - ERRORE
          End If
+         SetSimulationStatus(MCH_SIM_ST.UI_STOP)
       End If
       Dim nShowDataCounter As Integer = 0
       While GetStatus() <> MCH_SIM_ST.UI_STOP
diff --git a/PopUpViewPanel/PopUpViewPanelV.xaml b/PopUpViewPanel/PopUpViewPanelV.xaml
index 7ef95bb..6b0eda0 100644
--- a/PopUpViewPanel/PopUpViewPanelV.xaml
+++ b/PopUpViewPanel/PopUpViewPanelV.xaml
@@ -12,9 +12,6 @@
       <Button ToolTip="{Binding ZoomSelToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding ZoomSelCommand}">
          <Image Source="/Resources/GridViewPanel/ZoomSel.png" Stretch="Uniform"/>
       </Button>
-      <Button ToolTip="{Binding LookFromIso_SEToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewSECommand}">
-         <Image Source="/Resources/GridViewPanel/LookFromISO_SE.png" Stretch="Uniform"/>
-      </Button>
       <Button ToolTip="{Binding LookFromIso_NEToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewNECommand}">
          <Image Source="/Resources/GridViewPanel/LookFromISO_NE.png" Stretch="Uniform"/>
       </Button>
diff --git a/PopUpViewPanel/PopUpViewPanelVM.vb b/PopUpViewPanel/PopUpViewPanelVM.vb
index 8f4d51d..b939555 100644
--- a/PopUpViewPanel/PopUpViewPanelVM.vb
+++ b/PopUpViewPanel/PopUpViewPanelVM.vb
@@ -9,7 +9,6 @@ Public Class PopUpViewPanelVM
    Private m_cmdZoomIn As ICommand
    Private m_cmdZoomOut As ICommand
    Private m_cmdZoomSel As ICommand
-   Private m_cmdIsoViewSE As ICommand
    Private m_cmdIsoViewNE As ICommand
    Private m_cmdIsoViewNW As ICommand
    Private m_cmdViewToCPlane As ICommand
@@ -34,12 +33,6 @@ Public Class PopUpViewPanelVM
       End Get
    End Property
 
-   Public ReadOnly Property LookFromIso_SEToolTip As String
-      Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 13)
-      End Get
-   End Property
-
    Public ReadOnly Property LookFromIso_NEToolTip As String
       Get
          Return EgtMsg(MSG_GRIDVIEWPANEL + 14)
@@ -133,29 +126,6 @@ Public Class PopUpViewPanelVM
 
 #End Region ' ZoomOutCommand
 
-#Region "IsoViewSECommand"
-
-   ''' <summary>
-   ''' Returns a command that do IsoViewSE.
-   ''' </summary>
-   Public ReadOnly Property IsoViewSECommand As ICommand
-      Get
-         If m_cmdIsoViewSE Is Nothing Then
-            m_cmdIsoViewSE = New RelayCommand(AddressOf IsoViewSE)
-         End If
-         Return m_cmdIsoViewSE
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the IsoViewSE.  This method is invoked by the IsoViewSECommand.
-   ''' </summary>
-   Public Sub IsoViewSE(ByVal param As Object)
-      Map.refProjectVM.GetScene.IsoViewSE()
-   End Sub
-
-#End Region ' IsoViewSECommand
-
 #Region "IsoViewNECommand"
 
    ''' <summary>
diff --git a/ViewPanel/ViewPanelV.xaml b/ViewPanel/ViewPanelV.xaml
index 5fcdd2c..1cfb9b5 100644
--- a/ViewPanel/ViewPanelV.xaml
+++ b/ViewPanel/ViewPanelV.xaml
@@ -27,6 +27,9 @@
       <Button ToolTip="{Binding LookFromIso_SWToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewSWCommand}">
          <Image Source="/Resources/GridViewPanel/LookFromISO_SW.png" Stretch="Uniform"/>
       </Button>
+      <Button ToolTip="{Binding LookFromIso_SEToolTip}" Style="{StaticResource GridViewPanelButton}" Command="{Binding IsoViewSECommand}">
+         <Image Source="/Resources/GridViewPanel/LookFromISO_SE.png" Stretch="Uniform"/>
+      </Button>
    </StackPanel>
 
 </UserControl>
diff --git a/ViewPanel/ViewPanelVM.vb b/ViewPanel/ViewPanelVM.vb
index d7965ed..596eeea 100644
--- a/ViewPanel/ViewPanelVM.vb
+++ b/ViewPanel/ViewPanelVM.vb
@@ -14,6 +14,7 @@ Public Class ViewPanelVM
    Private m_cmdBackView As ICommand
    Private m_cmdRightView As ICommand
    Private m_cmdIsoViewSW As ICommand
+   Private m_cmdIsoViewSE As ICommand
 
 #Region "ToolTip"
 
@@ -64,6 +65,12 @@ Public Class ViewPanelVM
       End Get
    End Property
 
+   Public ReadOnly Property LookFromIso_SEToolTip As String
+      Get
+         Return EgtMsg(MSG_GRIDVIEWPANEL + 13)
+      End Get
+   End Property
+
 #End Region    ' ToolTip
 
 #End Region    ' FIELDS & PROPERTIES
@@ -254,6 +261,29 @@ Public Class ViewPanelVM
 
 #End Region ' IsoViewSWCommand
 
+#Region "IsoViewSECommand"
+
+   ''' <summary>
+   ''' Returns a command that do IsoViewSE.
+   ''' </summary>
+   Public ReadOnly Property IsoViewSECommand As ICommand
+      Get
+         If m_cmdIsoViewSE Is Nothing Then
+            m_cmdIsoViewSE = New RelayCommand(AddressOf IsoViewSE)
+         End If
+         Return m_cmdIsoViewSE
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the IsoViewSE.  This method is invoked by the IsoViewSECommand.
+   ''' </summary>
+   Public Sub IsoViewSE(ByVal param As Object)
+      Map.refProjectVM.GetScene.IsoViewSE()
+   End Sub
+
+#End Region ' IsoViewSECommand
+
 #End Region    ' COMMANDS
 
 End Class
\ No newline at end of file