EgtCAM5 :

- Correzzione in lettura file di testo per farlo funzionare su Windows XP.
- Correzione in binding lista identificativi delle macchine in tabella per farlo funzionare su Windows XP.
- Correzione SaveAs che non funzionava correttamente.

MTableDb/MTableDbViewModel.vb

@@ -189,7 +189,6 @@ Namespace EgtCAM5
          EgtGetCurrMachineName(m_sPreviousActiveMachine)
          MTableListBoxItem.NewMTableIndex = 0
          UpdateTables()
-         SetActiveTable()
          If m_TablesList.Count > 0 Then
             m_TablesList(0).IsSelected = True
          End If
@@ -215,6 +214,7 @@ Namespace EgtCAM5
                VerifyNewName(Path.GetFileNameWithoutExtension(FileTableList(Index)))
             End If
          Next
+         SetActiveTable()
       End Sub
 
       Private Sub VerifyNewName(sNewName As String)
@@ -235,7 +235,7 @@ Namespace EgtCAM5
          Dim ActiveMTableName As String = String.Empty
          Dim ActiveMTableFilePath As String = Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\CurrMTable.lua"
          If File.Exists(ActiveMTableFilePath) Then
-            Dim ReadFile As IEnumerable(Of String) = File.ReadLines(ActiveMTableFilePath)
+            Dim ReadFile As String() = File.ReadAllLines(ActiveMTableFilePath)
             For LineIndex As Integer = 0 To ReadFile.Count - 1
                If ReadFile(LineIndex).Contains(MTABLENAME) Then
                   ActiveMTableName = TableUtility.SearchKey(ReadFile(LineIndex), MTNAME)
@@ -245,6 +245,7 @@ Namespace EgtCAM5
             For Index As Integer = 0 To m_TablesList.Count - 1
                If m_TablesList(Index).TableName = ActiveMTableName Then
                   m_TablesList(Index).ActiveTable = True
+                  Exit For
                End If
             Next
          End If
@@ -444,7 +445,7 @@ Namespace EgtCAM5
             End If
          Next
          ' Scrivo il file di configurazione con il nome di questa tavola
-         Dim FileContent As IEnumerable(Of String) = File.ReadLines(Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\" & CURRMTABLE_FILE)
+         Dim FileContent As String() = File.ReadAllLines(Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\" & CURRMTABLE_FILE)
          Dim NewTableFileContent As New List(Of String)
          For LineIndex As Integer = 0 To FileContent.Count - 1
             Dim sCurrLine As String = FileContent(LineIndex)