Imports EgtUILib

Public Class InstrumentPanelVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

#Region "ToolTip"

   Public ReadOnly Property GetDistToolTip As String
      Get
         Return "Disposition"
      End Get
   End Property

#End Region       ' ToolTip

   Private m_GetDistIsChecked As Boolean
   Public Property GetDistIsChecked As Boolean
      Get
         Return m_GetDistIsChecked
      End Get
      Set(value As Boolean)
         If value <> m_GetDistIsChecked Then
            m_GetDistIsChecked = value
            If value Then
               OmagOFFICEMap.refSceneHostV.GetDistanceON()
            Else
               OmagOFFICEMap.refSceneHostV.GetDistanceOFF()
               OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
            End If
            NotifyPropertyChanged("GetDistIsChecked")
         End If
      End Set
   End Property

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

   Sub New()

   End Sub

#End Region    ' CONSTRUCTOR

End Class