Imports EgtUILib

Namespace EgtCAM5

   Public Class ExecutePanelViewModel
      Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

      ' Definizione comandi
      Private m_cmdExec As ICommand

#Region "ToolTip"

      Public ReadOnly Property ExecToolTip As String
         Get
            Return EgtMsg(MSG_TOPCOMMANDBAR + 8)
         End Get
      End Property

#End Region    ' ToolTip

#End Region    ' FIELDS & PROPERTIES

#Region "COMMANDS"

#Region "ExecCommand"

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

      ''' <summary>
      ''' Execute the Exec.  This method is invoked by the ExecCommand.
      ''' </summary>
      Public Sub Exec(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.EXECPROJECT)
      End Sub

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

#End Region    ' ExecCommand

#End Region    ' COMMANDS

   End Class

End Namespace