Imports EgwMultiEngineManager.Data

Public Class ThreadData

   Public Enum ProcessStatuses As Integer
      NULL = 0
      TAKINGREQUEST = 1
      WAITINGANSWER = 2
      ANSWERRECEIVED = 3
      TOBESTARTED = 10
   End Enum

   Private m_ProcessStatus As ProcessStatuses = ProcessStatuses.TOBESTARTED
   Public ReadOnly Property ProcessStatus As ProcessStatuses
      Get
         Return m_ProcessStatus
      End Get
   End Property
   Friend Sub SetProcessStatus(value As ProcessStatuses)
      m_ProcessStatus = value
   End Sub

   Private m_CurrRequest As QuestionDTO
   Public ReadOnly Property CurrRequest As QuestionDTO
      Get
         Return m_CurrRequest
      End Get
   End Property
   Friend Sub SetCurrRequest(value As QuestionDTO)
      m_CurrRequest = value
   End Sub

   Private m_nProcResult As AnswerDTO
   Public ReadOnly Property nProcResult As AnswerDTO
      Get
         Return m_nProcResult
      End Get
   End Property
   Friend Sub SetProcResult(value As AnswerDTO)
      m_nProcResult = value
   End Sub

   Private m_Process As Process
   Public ReadOnly Property Process As Process
      Get
         Return m_Process
      End Get
   End Property
   Friend Sub SetProcess(value As Process)
      m_Process = value
   End Sub

End Class