EgtCAM5 1.8j6 :

- per default in lavorazione si carica solo la tavola
- non si salvano più in MRU i comandi lua dei bottoni Special.

ProjectPage/ProjectViewModel.vb

@@ -46,6 +46,9 @@ Namespace EgtCAM5
       ' Definizione comandi
       Private m_cmdLoaded As ICommand
 
+      ' Flag per non salvare Script appena eseguito in elenco MruScript
+      Private m_bScriptInMru As Boolean = True
+
 #End Region
 
 #Region "EGTUILIB FIELDS"
@@ -260,7 +263,7 @@ Namespace EgtCAM5
          IniFile.m_bMachiningGroup = (GetPrivateProfileInt(S_MACH, K_MACHININGGROUP, 0) <> 0)
          Application.Msn.NotifyColleagues(Application.DRAWMODE_ISCHECKED)
          ' lettura flag visualizzazione solo tavola in definizione lavorazioni
-         IniFile.m_bShowOnlyTable = (GetPrivateProfileInt(S_MACH, K_SHOWONLYTABLE, 0) <> 0)
+         IniFile.m_bShowOnlyTable = (GetPrivateProfileInt(S_MACH, K_SHOWONLYTABLE, 1) <> 0)
          ' ObjTree non selezionato
          Application.Msn.NotifyColleagues(Application.UPDATEOBJTREEOLDID, GDB_ID.NULL)
          ' nascondo input box
@@ -470,6 +473,9 @@ Namespace EgtCAM5
          Application.Msn.Register(Application.EXPORTPROJECT, Sub()
                                                                 m_Controller.ExportProject(Path.ChangeExtension(m_Controller.GetCurrFile(), "dxf"))
                                                              End Sub)
+         Application.Msn.Register(Application.PREEXECSCRIPT, Sub(bScriptInMru As Boolean)
+                                                                m_bScriptInMru = bScriptInMru
+                                                             End Sub)
          Application.Msn.Register(Application.EXECSCRIPT, Sub(sFilePath As String)
                                                              If String.IsNullOrEmpty(sFilePath) Then
                                                                 Dim sDir As String = String.Empty
@@ -1293,9 +1299,9 @@ Namespace EgtCAM5
          ' Salvo path dello script in lista recenti
          WritePrivateProfileString(S_GENERAL, K_LASTLUADIR, Path.GetDirectoryName(sFile))
          If bOk Then
-            IniFile.m_MruScripts.Add(sFile)
+            If m_bScriptInMru Then IniFile.m_MruScripts.Add(sFile)
          Else
-            IniFile.m_MruScripts.Remove(sFile)
+            If m_bScriptInMru Then IniFile.m_MruScripts.Remove(sFile)
             MessageBox.Show(sError, EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Error
          End If
          ' Disabilito progress e bottone stop