ventanilla

' Gambas class file

Private cajero As String
Private tex As TextLabel
Private estado As EstadoVentanilla

Public Sub _new(t As TextLabel)

  estado = New Abierta(t)
  tex = t

End

Public Sub suspendete()

  estado = New Suspendida(tex)

End

Public Sub cierrate()

  estado = New Cerrada(tex)

End

Public Sub abrete()

  estado = New Abierta(tex)

End

Public Sub atiende(pers As Persona)

  estado.atiende(pers)

End

Public Function getCajero() As String

  Return cajero

End

Public Sub setcajero(CajeroNombre As String)

  cajero = CajeroNombre

End