EgtCAM5 1.6x5 :

- miglioramenti alla simulazione.

MainWindow/MainWindowViewModel.vb

@@ -19,8 +19,6 @@ Namespace EgtCAM5
       Private m_sDataRoot As String = String.Empty
       Private m_sConfigDir As String = String.Empty
       Private m_nDebug As Integer = 0
-      Private m_ProcEventsCallback As New ProcessEventsCallback(AddressOf ProcessEvents)
-      Private m_OutTextCallback As New OutTextCallback(AddressOf OutText)
 
 
       ' EGALTECH ENVIRONMENT FIELDS WITH PROPERTY
@@ -377,10 +375,6 @@ Namespace EgtCAM5
             m_MruNewGunStock.Init(S_MRUGUNSTOCKMOD, 8)
             m_MruModifyGunStock.Init(S_MRUGUNSTOCKPEZ, 8)
          End If
-         ' Installo funzione gestione eventi per lua
-         EgtSetProcessEvents(m_ProcEventsCallback)
-         ' Installo funzione output testo su status per lua
-         EgtSetOutText(m_OutTextCallback)
          ' Info su opzioni chiave
          EgtOutLog("KeyOptions : " & bKey.ToString() & " " & IniFile.m_nKeyOptions.ToString())
 
@@ -446,30 +440,6 @@ Namespace EgtCAM5
          End If
       End Sub
 
-      Public Function ProcessEvents(ByVal nProg As Integer, ByVal nPause As Integer) As Integer
-         ' Se previsto, imposto progress
-         If nProg > 0 Then
-            Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSPROGRESS, nProg)
-         End If
-         ' Costringo ad aggiornare
-         Application.Current.Dispatcher.Invoke(DispatcherPriority.Background, New Action(Sub()
-                                                                                         End Sub))
-         ' Eventuale attesa
-         Thread.Sleep(nPause)
-         ' Ritorno eventuale stop
-         If m_bStopScript Then
-            m_bStopScript = False
-            Return 0
-         Else
-            Return 1
-         End If
-      End Function
-
-      Public Function OutText(ByRef psText As IntPtr) As Boolean
-         Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, Marshal.PtrToStringUni(psText))
-         Return True
-      End Function
-
 #End Region
 
 #Region "Events"