Imports EgtUILib

Public Class PrepareInputBoxParam
   Friend sTitle As String
   Friend sLabel As String
   Friend sCheckLabel As String
   Friend bShowCombo As Boolean
   Friend bShowBtn As Boolean

   Sub New(ByVal sTitle As String, ByVal sLabel As String, ByVal sCheckLabel As String,
                                 ByVal bShowCombo As Boolean, ByVal bShowBtn As Boolean)
      Me.sTitle = sTitle
      Me.sLabel = sLabel
      Me.sCheckLabel = sCheckLabel
      Me.bShowCombo = bShowCombo
      Me.bShowBtn = bShowBtn
   End Sub

End Class

Public Class AddInputBoxComboParam
   Friend sText As String
   Friend bSelected As Boolean

   Sub New(ByVal sText As String, ByVal bSelected As Boolean)
      Me.sText = sText
      Me.bSelected = bSelected
   End Sub

End Class

Public Class UpdateStatusGridParam
   Friend m_bShowGrid As Boolean
   Friend m_bShowGridFrame As Boolean

   Sub New(ByVal bShowGrid As Boolean, bShowGridFrame As Boolean)
      Me.m_bShowGrid = bShowGrid
      Me.m_bShowGridFrame = bShowGridFrame
   End Sub

End Class

Public Class SaveObjectParam
   Friend nId As Integer
   Friend sDir As String
   Friend nType As NGE

   Sub New(nId As Integer, sDir As String, nType As NGE)
      Me.nId = nId
      Me.sDir = sDir
      Me.nType = nType
   End Sub

End Class

Public Class NewMachOpParam
   Friend bActive As Boolean = False
   Friend SelMachOpId As Integer = GDB_ID.NULL

   Sub New(bActive As Boolean, SelMachOpId As Integer)
      Me.bActive = bActive
      Me.SelMachOpId = SelMachOpId
   End Sub

End Class