Imports EgtUILib.EgtInterface
Imports EgtWPFLib5

Public Class SelOptionVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_SelTypeList As New List(Of String)({"Line", "Arc", "Loop", "Solid", "Face", "None"})
   Public Property SelTypeList As List(Of String)
      Get
         Return m_SelTypeList
      End Get
      Set(value As List(Of String))
         m_SelTypeList = value
      End Set
   End Property

   Private m_SelType As Integer
   Public Property SelType As Integer
      Get
         Return m_SelType
      End Get
      Set(value As Integer)
         m_SelType = value
         SelectionChanged()
      End Set
   End Property

#End Region       'Field & Properties

#Region "CONSTRUCTOR"

   Sub New()
      SelTypes()
   End Sub

#End Region    ' Constructor

#Region "METHODS"

   Private Sub SelTypes()
      Select Case Map.refSceneHostVM.m_SelType
         Case GDB_TY.CRV_LINE
            m_SelType = 0
         Case GDB_TY.CRV_ARC
            m_SelType = 1
         Case GDB_TY.CRV_COMPO
            m_SelType = 2
         Case GDB_TY.SRF_MESH
            m_SelType = 3
         Case GDB_TY.SRF_FRGN
            m_SelType = 4
         Case Else
            m_SelType = 5
      End Select
   End Sub

   Private Sub SelectionChanged()
      Select Case m_SelType
         Case 0
            Map.refSceneHostVM.m_SelType = GDB_TY.CRV_LINE
         Case 1
            Map.refSceneHostVM.m_SelType = GDB_TY.CRV_ARC
         Case 2
            Map.refSceneHostVM.m_SelType = GDB_TY.CRV_COMPO
         Case 3
            Map.refSceneHostVM.m_SelType = GDB_TY.SRF_MESH
         Case 4
            Map.refSceneHostVM.m_SelType = GDB_TY.SRF_FRGN
         Case 5
            Map.refSceneHostVM.m_SelType = GDB_TY.NONE
      End Select
      NotifyPropertyChanged(NameOf(SelType))
      Map.refSceneButtonV.MenuSelType.IsOpen = False
   End Sub

#End Region    ' Methods

End Class