Imports EgtUILib

Public Class UpdateMachineV

   Private WithEvents m_UpdateMachineVM As UpdateMachineVM

   Public Shadows DialogResult As MessageBoxResult = MessageBoxResult.Cancel


   Public Sub New(Owner As Window, UpdateMachineVM As UpdateMachineVM)
      MyBase.New(Owner)
      ' This call is required by the designer.
      InitializeComponent()
      Me.DataContext = UpdateMachineVM
      ' Assegno al riferimento locale al VM il VM preso dal DataContext
      m_UpdateMachineVM = UpdateMachineVM
   End Sub

   Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_UpdateMachineVM.m_CloseWindow
      Me.DialogResult = DialogResult
      Me.Close()
   End Sub

End Class