EgtCAM5 :

- Cambiati nomi classi e file.

SetUpWindow/SetUpV.xaml

@@ -1,4 +1,4 @@
-<EgtWPFLib5:EgtCustomWindow x:Class="SetUpView"
+<EgtWPFLib5:EgtCustomWindow x:Class="SetUpWindowV"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"

SetUpWindow/SetUpV.xaml.vb

@@ -0,0 +1,3 @@
+Public Class SetUpWindowV
+
+End Class

SetUpWindow/SetUpVM.vb

@@ -5,7 +5,7 @@ Imports EgtUILib
 
 Namespace EgtCAM5
 
-   Public Class SetUpViewModel
+   Public Class SetUpWindowVM
       Implements INotifyPropertyChanged
 
       Private Const INVALIDPOS As String = ""
@@ -346,7 +346,7 @@ Namespace EgtCAM5
                            If bFoundPos Then
                               m_ToolsList(TempFamilyIndex).Items.Remove(m_ToolsList(TempFamilyIndex).Items(TempToolIndex))
                            End If
-                        ' altrimenti, se non l'ho trovato
+                           ' altrimenti, se non l'ho trovato
                         Else
                            Dim sSearchedTool As String = String.Empty
                            EgtTdbGetToolFromUUID(sToolList(ToolIndex), sSearchedTool)
@@ -584,7 +584,7 @@ Namespace EgtCAM5
          Dim sPath As String = String.Empty
          If Not Directory.Exists(sDir) Then
             Try
-            Directory.CreateDirectory(sDir)
+               Directory.CreateDirectory(sDir)
             Catch ex As Exception
                EgtOutLog("Error in SetupDir creation " & ex.ToString())
                Return
@@ -805,8 +805,8 @@ Namespace EgtCAM5
 
          ' Chiusura finestra
          For Each Window In Application.Current.Windows
-            If TypeOf Window Is SetUpView Then
-               Dim SetUpWindow As SetUpView = DirectCast(Window, SetUpView)
+            If TypeOf Window Is SetUpWindowV Then
+               Dim SetUpWindow As SetUpWindowV = DirectCast(Window, SetUpWindowV)
                SetUpWindow.Close()
             End If
          Next
@@ -893,7 +893,7 @@ Namespace EgtCAM5
             EgtOutLog("SetUp warning: try to set " & SelTool.Name & " on " & Position.TcPos)
             MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 5), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
             Return False
-         ' altrimenti, se la posizione nell'attrezzaggio è vuota
+            ' altrimenti, se la posizione nell'attrezzaggio è vuota
          ElseIf Not PosIsOccupied Then
             ' verifico se la testa è la stessa
             If Not Position.Head = sHead Then

SetUpWindow/SetUpView.xaml.vb

@@ -1,3 +0,0 @@
-Public Class SetUpView
-
-End Class