document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits UsuarioVisitor
  4. Private hRegalo As String
  5.  
  6. Public Sub visitOperadorRegaloVisitor(op As Operador)
  7.  
  8.   hRegalo = "Caja de Vino, jamon y queso"
  9.  
  10. End
  11.  
  12. Public Sub visitClienteRegaloVisitor(cli As Cliente)
  13.  
  14.   hRegalo = "Botella de vino"
  15.  
  16. End
  17.  
  18. Public Function getRegaloUsuario() As String
  19.  
  20.   Return hRegalo
  21.  
  22. End
');