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