document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Inherits Persona
  4.  
  5. Private t As Trabajador
  6.  
  7. Public Sub _new()
  8.  
  9.   t = New Trabajador
  10.  
  11. End
  12.  
  13. Public Sub setTrabajador(trab As Trabajador)
  14.  
  15.   t = trab
  16.  
  17. End
  18.  
  19. Public Function getTrabajador() As Trabajador
  20.  
  21.   Return t
  22.  
  23. End
  24.  
  25. Public Function setSueldo(cantidad As Float)
  26.  
  27.   t.setsueldo(cantidad)
  28.  
  29. End
  30.  
  31. Public Sub getSueldo() As Float
  32.  
  33.   Return t.getSueldo()
  34.  
  35. End
  36.  
  37. Public Sub cobrar()
  38.  
  39.   t.cobrar()
  40.  
  41. End
');