Imports EgtWPFLib5
Imports EgtUILib
Imports System.Windows.Forms

Public Class ProjManagerVM

#Region "FIELDS & PROPERTIES"

   ' Definizione Comandi
   Private m_NewFileCmd As ICommand
   Private m_SaveFileCmd As ICommand
   Private m_OpenFileCmd As ICommand

#End Region    ' Fields & Properties

#Region "COMMANDS"

#Region "NewFileCmd"

   Public ReadOnly Property NewFileCmd As ICommand
      Get
         If IsNothing(m_NewFileCmd) Then
            m_NewFileCmd = New Command(AddressOf NewFile)
         End If
         Return m_NewFileCmd
      End Get
   End Property

   Private Sub NewFile()

   End Sub

#End Region    ' NewFileCmd

#Region "OpenFileCmd"

   Public ReadOnly Property OpenFileCmd As ICommand
      Get
         If IsNothing(m_OpenFileCmd) Then
            m_OpenFileCmd = New Command(AddressOf OpenFile)
         End If
         Return m_OpenFileCmd
      End Get
   End Property

   Private Sub OpenFile()
      Dim dialog As New OpenFileDialog()

      dialog.InitialDirectory = "D:\Temp\marmo\Vein3d"
      dialog.Filter = "nge files (*.nge)|*.nge|vme files (*.vme)|*.vme"
      dialog.FilterIndex = 2
      dialog.RestoreDirectory = True

      dialog.ShowDialog()

      If String.IsNullOrEmpty(dialog.FileName) Then Return

      Dim sFilePath As String = dialog.FileName
      EgtOpenFile(sFilePath)
      SolidManagerM.CreatePartSolid()
      EgtDraw()

   End Sub

#End Region    ' OpenFileCmd

#Region "SaveFileCmd"

   Public ReadOnly Property SaveFileCmd As ICommand
      Get
         If IsNothing(m_SaveFileCmd) Then
            m_SaveFileCmd = New Command(AddressOf SaveFile)
         End If
         Return m_SaveFileCmd
      End Get
   End Property

   Private Sub SaveFile()

   End Sub

#End Region    ' SaveFileCmd

#End Region    ' Commands

End Class