Class MainWindowV

   Private m_MainWindowVM As MainWindowVM

#Region "CONSTRUCTOR"

   Sub New()
      ' Funzione che interpreta l'xaml
      InitializeComponent()
      ' Assegno al riferimento locale al VM il VM preso dal DataContext
      m_MainWindowVM = DirectCast(Me.DataContext, MainWindowVM)
      AddHandler Me.Closed, AddressOf MainWindowV_Closed
   End Sub

#End Region    ' CONSTRUCTOR

   Private Sub MainWindowV_Closed(sender As Object, e As EventArgs)
      If Not IsNothing(m_MainWindowVM) AndAlso Not IsNothing(m_MainWindowVM.FiniteStateMachineManager) Then m_MainWindowVM.FiniteStateMachineManager.ResetFiniteStateMachineTimer()
      LuaManager.Close()
      EgtOutLog("Exit")
   End Sub

End Class