EgtCAM5 :

- Aggiunta errori di disegno utensili.
- Uscita da simulazione solo se in pausa.

MainWindow/MainWindowViewModel.vb

@@ -138,12 +138,17 @@ Namespace EgtCAM5
       ''' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
       ''' </summary>
       Public Sub CloseApplication(ByVal param As Object)
-         If m_bScriptRunning Then
+         If IniFile.m_bScriptRunning Then
             If Not IniFile.m_bFailedRun Then
                'MessageBox.Show("Can't exit now. Wait until the end of the script execution", "", MessageBoxButton.OK, MessageBoxImage.Stop)
                Return
             End If
          End If
+         Application.Msn.NotifyColleagues(Application.CANCLOSEAPPFROMSIMUL)
+         If Not IniFile.m_bSimulStatForClose Then
+            MessageBox.Show(EgtMsg(MSG_SIMULATION + 13), "", MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            Return
+         End If
          '' Gestisco eventuale file corrente modificato
          Application.Msn.NotifyColleagues(Application.MANAGEMODIFIED)
          If m_allowWindowToClose Then