document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Private cajero As String
  4. Private tex As TextLabel
  5. Private estado As EstadoVentanilla
  6.  
  7. Public Sub _new(t As TextLabel)
  8.  
  9.   estado = New Abierta(t)
  10.   tex = t
  11.  
  12. End
  13.  
  14. Public Sub suspendete()
  15.  
  16.   estado = New Suspendida(tex)
  17.  
  18. End
  19.  
  20. Public Sub cierrate()
  21.  
  22.   estado = New Cerrada(tex)
  23.  
  24. End
  25.  
  26. Public Sub abrete()
  27.  
  28.   estado = New Abierta(tex)
  29.  
  30. End
  31.  
  32. Public Sub atiende(pers As Persona)
  33.  
  34.   estado.atiende(pers)
  35.  
  36. End
  37.  
  38. Public Function getCajero() As String
  39.  
  40.   Return cajero
  41.  
  42. End
  43.  
  44. Public Sub setcajero(CajeroNombre As String)
  45.  
  46.   cajero = CajeroNombre
  47.  
  48. End
');