Namespace EgtCAM5

   Public Class DrawOptionPanelViewModel
      Inherits ViewModelBase

      ' GRAPHICAL ELEMENTS
      Private m_ManageLayerExpander As ManageLayerExpanderView
      Public ReadOnly Property ManageLayerExpander As ManageLayerExpanderView
         Get
            If IsNothing(m_ManageLayerExpander) Then
               m_ManageLayerExpander = New ManageLayerExpanderView
               m_ManageLayerExpander.DataContext = New ManageLayerExpanderViewModel
            End If
            Return m_ManageLayerExpander
         End Get
      End Property

      Private m_InputExpander As InputExpanderView
      Public ReadOnly Property InputExpander As InputExpanderView
         Get
            If IsNothing(m_InputExpander) Then
               m_InputExpander = New InputExpanderView
               m_InputExpander.DataContext = New InputExpanderViewModel
            End If
            Return m_InputExpander
         End Get
      End Property

      Private m_InfoExpander As InfoExpanderView
      Public ReadOnly Property InfoExpander As InfoExpanderView
         Get
            If IsNothing(m_InfoExpander) Then
               m_InfoExpander = New InfoExpanderView
               m_InfoExpander.DataContext = New InfoExpanderViewModel
            End If
            Return m_InfoExpander
         End Get
      End Property

   End Class

End Namespace