EgtCAM5 :

- Migliorie varie.

ToolsDbWindow/ToolsDbViewModel.vb

@@ -281,7 +281,7 @@ Namespace EgtCAM5
       Private Sub LoadSelectedMachineTools()
          Dim ActiveToolsFamilies() As ToolsFamily = ReadActiveToolsFamilies()
          For Each ToolsFamily In ActiveToolsFamilies
-            Dim FamilyTreeView As New FamilyToolTreeViewItem(ToolsFamily.FamilyName) ', ToolsFamily.FamilyId)
+            Dim FamilyTreeView As New FamilyToolTreeViewItem(ToolsFamily.FamilyName, ToolsFamily.FamilyId)
             ToolsList.Add(FamilyTreeView)
             Dim nType As Integer = 0
             Dim ToolName As String = String.Empty
@@ -432,10 +432,14 @@ Namespace EgtCAM5
       ''' Saves the current tool.  This method is invoked by the SaveCommand.
       ''' </summary>
       Public Sub Save(ByVal param As Object)
-         Application.Msn.NotifyColleagues(Application.SAVETOOLDRAW)
+         Dim CurrTool As ToolTreeViewItem = DirectCast(param, ToolTreeViewItem)
+         CurrTool.WriteToolParam()
+         If IsUUID(Path.GetFileNameWithoutExtension(CurrTool.m_Draw)) Then
+            CurrTool.SaveToolDraw()
+         End If
          EgtTdbSaveCurrTool()
          EgtTdbSave()
-         DirectCast(param, ToolTreeViewItem).NewTool = False
+         CurrTool.NewTool = False
       End Sub
 
       ''' <summary>
@@ -482,9 +486,9 @@ Namespace EgtCAM5
          EgtTdbRemoveTool(ToolToRemove.Name)
          ' Rimuovo il nome dell'albero
          For Each ToolFamily In ToolsList
-            'If (ToolFamily.ToolType And ToolType) <> 0 Then
-            '   ToolFamily.Items.Remove(ToolToRemove)
-            'End If
+            If (ToolFamily.ToolType And ToolType) <> 0 Then
+               ToolFamily.Items.Remove(ToolToRemove)
+            End If
          Next
          Application.Msn.NotifyColleagues(Application.ERRORONTOOL, Nothing)
       End Sub