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()
            Map.refManagePartPanelVM.Init(ManagePartPanelVM.ManagePartType.MODIFY)
      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