Imports EgtUILib
Imports EgtWPFLib5

Public Class InfoWindowVM
   Inherits VMBase

   Friend m_RefInfoWindowV As InfoWindowV

   Private m_Title As String = String.Empty
   Public ReadOnly Property Title As String
      Get
         Return m_Title
      End Get
   End Property

   Private m_Messages As String = String.Empty
   Public ReadOnly Property Messages As String
      Get
         Return m_Messages
      End Get
   End Property

   Private m_TryeAgain As Boolean = False
   Public Property TryAgain As Boolean
      Get
         Return m_TryeAgain
      End Get
      Set(value As Boolean)
         m_TryeAgain = value
         m_StopTry = Not value
         m_RefInfoWindowV.Close()
      End Set
   End Property

   Private m_StopTry As Boolean = False
   Public Property StopTry As Boolean
      Get
         Return m_StopTry
      End Get
      Set(value As Boolean)
         m_StopTry = value
         m_TryeAgain = Not value
         m_RefInfoWindowV.Close()
      End Set
   End Property

   Sub New(sMessages As String, sTitle As String)
      m_Title = sTitle
      m_Messages = sMessages
      m_RefInfoWindowV = New InfoWindowV(Application.Current.MainWindow, Me)
   End Sub

End Class