EgtDOORCreator 1.9l2 :

- nuova gestione degli errori;
- nuovo pulsante Reload.

ProjectManager/ProjectManagerVM.vb

@@ -54,6 +54,9 @@ Public Class ProjectManagerVM
    Private m_cmdDelete As ICommand
    Private m_cmdOpen As ICommand
    Private m_cmdOpenMruFile As ICommand
+
+   Private m_cmdReload As ICommand
+
    Private m_cmdSave As ICommand
    Private m_cmdSaveAs As ICommand
    Private m_cmdInsert As ICommand
@@ -89,6 +92,11 @@ Public Class ProjectManagerVM
          Return EgtMsg(MSG_TOPCOMMANDBAR + 2)
       End Get
    End Property
+   Public ReadOnly Property ReloadToolTip As String
+      Get
+         Return "Reload Directories"
+      End Get
+   End Property
    Public ReadOnly Property SaveToolTip As String
       Get
          Return EgtMsg(MSG_TOPCOMMANDBAR + 3)
@@ -497,6 +505,28 @@ Public Class ProjectManagerVM
 
 #End Region ' OpenMruFileCommand
 
+#Region "ReloadCommand"
+
+   Public ReadOnly Property ReloadCommand As ICommand
+      Get
+         If m_cmdReload Is Nothing Then
+            m_cmdReload = New Command(AddressOf ReloadCmd)
+         End If
+         Return m_cmdReload
+      End Get
+   End Property
+
+   Public Sub ReloadCmd()
+      If OptionModule.m_ConfigurationSoftware = ConfigType.Assembly Then Map.SetRefCompoPanelVM(New CompoPanelVM("PartPage"))
+      If IsNothing(Map.refAssemblyManagerVM.CurrProject) AndAlso IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) Then Return
+      ' Map.refSceneManagerVM.RefreshBtn()
+      ' Map.refAssemblyManagerVM.LoadTempFile()
+      ' Map.refMainWindowVM.selectedWatcher = MainWindowVM.WatcherCalling.OnLoadTempFile
+      Map.refAssemblyManagerVM.RefreshAssembly()
+   End Sub
+
+#End Region    ' ReloadCommand
+
 #Region "SaveCommand"
 
    Public ReadOnly Property SaveCommand As ICommand
@@ -1008,24 +1038,6 @@ Public Class ProjectManagerVM
 
 #End Region    ' Duplica
 
-#Region "Reload"
-
-   Public ReadOnly Property RefreshDirCommand As ICommand
-      Get
-         If m_cmdRefreshDir Is Nothing Then
-            m_cmdRefreshDir = New Command(AddressOf RefreshDir)
-         End If
-         Return m_cmdRefreshDir
-      End Get
-   End Property
-
-   Public Sub RefreshDir()
-
-   End Sub
-
-
-#End Region    ' Reload
-
 #Region "Hardware"
 
    Public ReadOnly Property HardwareCommand As ICommand