EgtCAM5 :

-Miglioramenti vari.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -366,8 +366,9 @@ Namespace EgtCAM5
 
       Sub New()
          Me.ListIsExpanded = True
-         Application.Msn.Register(Application.LOADOPERATIONLIST, Sub()
+         Application.Msn.Register(Application.LOADOPERATIONLIST, Sub(nSelectedOperation As Integer)
                                                                     LoadOperationList()
+                                                                    SelectOperation(nSelectedOperation)
                                                                  End Sub)
          Application.Msn.Register(Application.REMOVEMARKFROMLASTOPERATION, Sub()
                                                                               EgtResetMark(m_LastMarkedOperationId)
@@ -474,7 +475,7 @@ Namespace EgtCAM5
                ' Rimuovo l'operazione selezionata
                EgtRemoveOperation(SelectedOperation.Id)
                ' Ricarico la lista delle operazioni
-               Application.Msn.NotifyColleagues(Application.LOADOPERATIONLIST)
+               Application.Msn.NotifyColleagues(Application.LOADOPERATIONLIST, -1)
             End If
          End If
       End Sub
@@ -684,6 +685,24 @@ Namespace EgtCAM5
          End While
       End Sub
 
+      Private Sub SelectOperation(nSelectedOperation As Integer)
+         If nSelectedOperation < 0 Then
+            SelectedOperation = OperationList(0)
+         Else
+            Dim OperationFound = False
+            For Each Operation In OperationList
+               If Operation.Id = nSelectedOperation Then
+                  OperationFound = True
+                  SelectedOperation = Operation
+                  Exit For
+               End If
+            Next
+            If Not OperationFound Then
+               SelectedOperation = OperationList(0)
+            End If
+         End If
+      End Sub
+
 #End Region    ' Methods
 
    End Class