EgtCAM5 1.8l2 :

- sistemazione AboutBox come vero dialogo
- piccole migliorie a feedback.

MainWindow/MainWindowViewModel.vb

@@ -37,18 +37,8 @@ Namespace EgtCAM5
          End Set
       End Property
 
-      Private m_AboutBox As Window
-      Private bFirstAboutBox As Boolean = True
-      Public ReadOnly Property AboutBox As Window
-         Get
-            If bFirstAboutBox Then
-               m_AboutBox = New AboutBoxView
-            End If
-            Return New AboutBoxView
-         End Get
-      End Property
-
       Private m_cmdMainWindow_ContentRendered As ICommand
+      Private m_cmdAboutBox As ICommand
       ' MainWindow Activated Event
       Private m_cmdMainWindow_Activated As ICommand
       ' MainWindow Deactivated Event
@@ -117,6 +107,27 @@ Namespace EgtCAM5
 
 #Region "COMMANDS"
 
+#Region "AboutBoxCommand"
+
+   ' Returns a command that manage the MainWindow_Unloaded command
+   Public ReadOnly Property AboutBoxCommand() As ICommand
+      Get
+         If m_cmdAboutBox Is Nothing Then
+            m_cmdAboutBox = New Command(AddressOf AboutBox)
+         End If
+         Return m_cmdAboutBox
+      End Get
+   End Property
+
+   ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
+   Public Sub AboutBox(ByVal param As Object)
+      Dim AboutBoxWindow As New AboutBoxView
+      AboutBoxWindow.Owner = Application.Current.MainWindow
+      AboutBoxWindow.ShowDialog()
+   End Sub
+
+#End Region ' AboutBoxCommand
+
 #Region "CloseApplicationCommand"
 
       ''' <summary>