Namespace EgtCAM5

   Public Class DoorsPanelViewModel
      Inherits ViewModelBase

      ' Definizione comandi
      Private m_cmdDoors As ICommand
      Private m_cmdDMach As ICommand

#Region "COMMANDS"

#Region "DoorsCommand"

      ''' <summary>
      ''' Returns a command that do Import.
      ''' </summary>
      Public ReadOnly Property DoorsCommand As ICommand
         Get
            If m_cmdDoors Is Nothing Then
               m_cmdDoors = New RelayCommand(AddressOf Doors, AddressOf CanDoors)
            End If
            Return m_cmdDoors
         End Get
      End Property

      ''' <summary>
      ''' Execute the Import.  This method is invoked by the ImportCommand.
      ''' </summary>
      Public Sub Doors(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.DOORSPROJECT)
      End Sub

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

#End Region ' DoorsCommand

#Region "DMachCommand"

      ''' <summary>
      ''' Returns a command that do Import.
      ''' </summary>
      Public ReadOnly Property DMachCommand As ICommand
         Get
            If m_cmdDMach Is Nothing Then
               m_cmdDMach = New RelayCommand(AddressOf DMach, AddressOf CanDMach)
            End If
            Return m_cmdDMach
         End Get
      End Property

      ''' <summary>
      ''' Execute the Dmach.  This method is invoked by the DMachCommand.
      ''' </summary>
      Public Sub DMach(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.DMACHPROJECT)
      End Sub

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

#End Region ' DMachCommand

#End Region

   End Class

End Namespace