Imports EgtUILib

Namespace EgtCAM5

   Public Class DbPanelViewModel
      Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

      ' Definizione comandi
      Private m_cmdToolDb As ICommand
      Private m_cmdMachDb As ICommand

#End Region    'FIELDS & PROPERTIES

#Region "COMMANDS"

#Region "ToolDbCommand"

      ''' <summary>
      ''' Returns a command that do Exec.
      ''' </summary>
      Public ReadOnly Property ToolDbCommand As ICommand
         Get
            If m_cmdToolDb Is Nothing Then
               m_cmdToolDb = New RelayCommand(AddressOf ToolDb, AddressOf CanToolDb)
            End If
            Return m_cmdToolDb
         End Get
      End Property

      ''' <summary>
      ''' Execute the Exec.  This method is invoked by the ExecCommand.
      ''' </summary>
      Public Sub ToolDb(ByVal param As Object)
         Dim ToolDbWindow As New ToolsDbView
         ToolDbWindow.Height = 614
         ToolDbWindow.Width = 1024
         ToolDbWindow.DataContext = New ToolsDbViewModel
         ToolDbWindow.Owner = Application.Current.MainWindow
         ToolDbWindow.ShowDialog()
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanToolDb(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region    ' ToolDbCommand

#Region "MachDbCommand"

      ''' <summary>
      ''' Returns a command that do Exec.
      ''' </summary>
      Public ReadOnly Property MachDbCommand As ICommand
         Get
            If m_cmdMachDb Is Nothing Then
               m_cmdMachDb = New RelayCommand(AddressOf MachDb, AddressOf CanMachDb)
            End If
            Return m_cmdMachDb
         End Get
      End Property

      ''' <summary>
      ''' Execute the Exec.  This method is invoked by the ExecCommand.
      ''' </summary>
      Public Sub MachDb(ByVal param As Object)
         Dim MachDbWindow As New MachiningsDbView
         MachDbWindow.Height = 614
         MachDbWindow.Width = 1024
         MachDbWindow.DataContext = New MachiningsDbViewModel
         MachDbWindow.Owner = Application.Current.MainWindow
         MachDbWindow.ShowDialog()
      End Sub

      ''' <summary>
      ''' Returns always true.
      ''' </summary>
      Private Function CanMachDb(ByVal param As Object) As Boolean
         Return True
      End Function

#End Region    ' MachDbCommand

#End Region    ' COMMANDS

   End Class

End Namespace