Imports System.Globalization
Imports EgtUILib
Imports EgtWPFLib5

Public Class LeftPanelVM
   Inherits VMBase

   Public Enum Panels As Integer
      NULL = 0
      IMPORT = 1
      DISPOSITION = 2
      REFERENCE = 3
      STARTMACH = 4
      RIBS = 5
      SHELLNUMBER = 6
      AUXSOLIDS = 7
      MODIFYPART = 8
   End Enum

   Private m_SelPanel As Panels
   Public Property SelPanel As Integer
      Get
         Return m_SelPanel
      End Get
      Set(value As Integer)
         m_SelPanel = value
      End Set
   End Property
   Friend Sub SetSelPanel(Panel As Panels)
      ' esco da modalita' precedente
      Select Case m_SelPanel
         Case Panels.IMPORT

         Case Panels.DISPOSITION

         Case Panels.STARTMACH
            Map.refStartMachPanelVM.Dispose()
         Case Panels.RIBS
            Map.refRibPanelVM.Dispose()
         Case Panels.SHELLNUMBER
            Map.refShellNumberPanelVM.Dispose()
      End Select
      m_SelPanel = Panel
      Select Case Panel
         Case Panels.IMPORT

         Case Panels.DISPOSITION
            Map.refDispositionPanelVM.Init()
         Case Panels.REFERENCE
            Map.refReferencePanelVM.Init()
         Case Panels.STARTMACH
            Map.refStartMachPanelVM.Init()
         Case Panels.RIBS
            Map.refRibPanelVM.Init()
         Case Panels.SHELLNUMBER
            Map.refShellNumberPanelVM.Init()
         Case Panels.MODIFYPART
            Map.refModifyPartPanelVM.Init()
      End Select
      Map.refViewLayerManagerVM.UpdateForced()
      NotifyPropertyChanged(NameOf(SelPanel))
   End Sub

   Sub New()
      ' Creo riferimento a questa classe in EgtCAM5Map
      Map.SetRefLeftPanelVM(Me)
      SetSelPanel(Panels.NULL)
   End Sub

End Class