Imports System.Collections.ObjectModel

Namespace EgtCAM5

   Public Class GunStockPanelViewModel
      Inherits ViewModelBase

      Public ReadOnly Property MruGunStockNames As ObservableCollection(Of String)
         Get
            Return IniFile.m_MruGunStock.m_FileNames
         End Get
      End Property

            ' Definizione comandi
      Private m_cmdGunStock As ICommand
      Private Shared m_cmdOpenMruGunStock As ICommand

#Region "COMMANDS"

#Region "GunStockCommand"

      ''' <summary>
      ''' Returns a command that do Import.
      ''' </summary>
      Public ReadOnly Property GunStockCommand As ICommand
         Get
            If m_cmdGunStock Is Nothing Then
               m_cmdGunStock = New RelayCommand(AddressOf GunStock)
            End If
            Return m_cmdGunStock
         End Get
      End Property

      ''' <summary>
      ''' Execute the Door. This method is invoked by the DoorsCommand.
      ''' </summary>
      Public Sub GunStock(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, String.Empty)
      End Sub

#End Region ' GunStockCommand

#Region "OpenMruGunStockCommand"

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

      ''' <summary>
      ''' Execute the Open.  This method is invoked by the OpenCommand.
      ''' </summary>
      Public Shared Sub OpenMruGunStock(ByVal param As Object)
         Application.Msn.NotifyColleagues(Application.GUNSTOCKSCRIPT, DirectCast(param, String).Replace("__", "_"))
      End Sub

#End Region ' OpenMruGunStockCommand

#End Region

   End Class

End Namespace