Imports System.Collections.ObjectModel
Imports EgtUILib

Public Class ExecutePanelVM
   Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

   Public ReadOnly Property MruScriptNames As ObservableCollection(Of String)
      Get
         Return IniFile.m_MruScripts.m_FileNames
      End Get
   End Property

   Private m_ExecutePanel_Visibility As Visibility
   Public ReadOnly Property ExecutePanel_Visibility As Visibility
      Get
         Return m_ExecutePanel_Visibility
      End Get
   End Property

   Friend Sub SetExecutePanelVisibility(bValue As Boolean)
      m_ExecutePanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
      OnPropertyChanged(NameOf(ExecutePanel_Visibility))
   End Sub

   ' Definizione comandi
   Private m_cmdExec As ICommand
   Private Shared m_cmdOpenMruScript 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

   Sub New()
      ' Creo riferimento a questa classe in Map
      Map.SetRefExecutePanelVM(Me)
   End Sub

#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)
         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)
      Map.refProjectVM.PreExecScript(True)
      Map.refProjectVM.ExecScript(String.Empty)
   End Sub

#End Region    ' ExecCommand

#Region "OpenMruScriptCommand"

   ''' <summary>
   ''' Returns a command that do Open.
   ''' </summary>
   Public Shared ReadOnly Property OpenMruScriptCommand As ICommand
      Get
         If m_cmdOpenMruScript Is Nothing Then
            m_cmdOpenMruScript = New RelayCommand(AddressOf OpenMruScript)
         End If
         Return m_cmdOpenMruScript
      End Get
   End Property

   ''' <summary>
   ''' Execute the Open.  This method is invoked by the OpenCommand.
   ''' </summary>
   Public Shared Sub OpenMruScript(ByVal param As Object)
      Map.refProjectVM.PreExecScript(True)
      Map.refProjectVM.ExecScript(DirectCast(param, String).Replace("__", "_"))
   End Sub

#End Region ' OpenMruFileCommand

#End Region    ' COMMANDS

End Class