EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -84,7 +84,8 @@ Namespace EgtCAM5
             Return m_SelectedOperation
          End Get
          Set(value As OperationListBoxItem)
-            If value IsNot m_SelectedOperation Then
+            'If value IsNot m_SelectedOperation Then
+            If Not IsNothing(value) Then
                ' Verifico se c'è l'operazione precedente 
                If m_LastMarkedOperationId <> GDB_ID.NULL Then
                   ' La deevidenzio 
@@ -118,8 +119,9 @@ Namespace EgtCAM5
                   ' Notifico l'operazione selezionata all'expander dei parametri operazione
                   Application.Msn.NotifyColleagues(Application.SELECTEDOPERATION, value)
                End If
-               m_SelectedOperation = value
             End If
+            m_SelectedOperation = value
+            'End If
             OnPropertyChanged("SelectedOperation")
          End Set
       End Property
@@ -499,7 +501,7 @@ Namespace EgtCAM5
             ' Ricarico la lista delle operazioni
             Application.Msn.NotifyColleagues(Application.LOADOPERATIONLIST)
             ' Riseleziono l'entità selezionata
-            Me.SelectedOperation = SelectedOperation
+            Me.SelectedOperation = DirectCast(param, OperationListBoxItem)
          End If
       End Sub