Imports EgtUILib

Namespace EgtCAM5

   Public Class OperationPropertyExpanderViewModel
      Inherits ViewModelBase

      Private m_SelectedOperation As OperationListBoxItem
      Public Property SelectedOperation As OperationListBoxItem
         Get
            Return m_SelectedOperation
         End Get
         Set(value As OperationListBoxItem)
            If value IsNot m_SelectedOperation Then
               Dim x = EgtSetCurrMachining(value.Id)
               m_SelectedOperation = value

               m_SelectedOperation.NotifyPropertyChanged("Invert")
            End If
         End Set
      End Property

      'Private m_Depth As String
      'Public Property Depth As String
      '   Get
      '      EgtGetMachiningParam(MCH_MP.DEPTH, m_Depth)
      '      Return m_Depth
      '   End Get
      '   Set(value As String)
      '      If value <> m_Depth Then
      '         If EgtSetMachiningParam(MCH_MP.NAME, value) Then
      '            m_Depth = value
      '         End If
      '      End If
      '      'OnPropertyChanged("Depth")
      '   End Set
      'End Property

      Sub New()
         Application.Msn.Register(Application.SELECTEDOPERATION, Sub(SelectedOperation As OperationListBoxItem)
                                                                    Me.SelectedOperation = SelectedOperation
                                                                 End Sub)
      End Sub

   End Class

End Namespace