Emmanuele Sassi
24 lines
722 B
VB.net
24 lines
722 B
VB.net
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
|