EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -37,12 +37,14 @@ Namespace EgtCAM5
          End Get
          Set(value As OperationListBoxItem)
             If value IsNot m_SelectedOperation Then
+               'EgtSetCurrMachining(value.Id)
                If m_LastMarkedOperationId <> GDB_ID.NULL Then
                   EgtResetMark(m_LastMarkedOperationId)
                End If
                EgtSetMark(value.Id)
                m_LastMarkedOperationId = value.Id
                EgtDraw()
+               Application.Msn.NotifyColleagues(Application.SELECTEDOPERATION, value)
                m_SelectedOperation = value
             End If
          End Set
@@ -82,7 +84,8 @@ Namespace EgtCAM5
       ''' Execute the Point.  This method is invoked by the PointCommand.
       ''' </summary>
       Public Sub NewMachining(ByVal param As Object)
-
+         EgtDeselectAll()
+         Application.Msn.NotifyColleagues(Application.MACHININGTREEVIEWEXPANDERISENABLED, True)
       End Sub
 
       ''' <summary>