Imports EgtUILib

Namespace EgtCAM5

   Public Class OptionsViewModel

      Private m_Title As String
      Public ReadOnly Property Title As String
         Get
            Return EgtMsg(MSG_MAINWINDOW + 5)
         End Get
      End Property

      ' Definizione comandi
      Private m_cmdCloseOptions As ICommand

#Region "COMMANDS"

#Region "CloseMachiningsDbCommand"

      ''' <summary>
      ''' Returns a command that remove the current selected machining.
      ''' </summary>
      Public ReadOnly Property CloseOptionsCommand() As ICommand
         Get
            If m_cmdCloseOptions Is Nothing Then
               m_cmdCloseOptions = New RelayCommand(AddressOf CloseOptions)
            End If
            Return m_cmdCloseOptions
         End Get
      End Property

      ''' <summary>
      ''' Manage the MachiningDb closing.  This method is invoked by the CloseMachiningDbCommand.
      ''' </summary>
      Public Sub CloseOptions()
         ' Chiusura finestra
         For Each Window In Application.Current.Windows
            If TypeOf Window Is OptionsView Then
               Dim OptionsWindow As OptionsView = DirectCast(Window, OptionsView)
               OptionsWindow.Close()
            End If
         Next
      End Sub

#End Region ' CloseMachiningDbCommand

#End Region    ' COMMANDS

   End Class

End Namespace