Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement