fmainDelegation

' Gambas class file

' Patrón Delegation
' Ejemplo de Herencia Multiple....
'
Public Sub Form_Open()

  Dim empleado_Tienda As New EmpleadoDeTienda

  empleado_Tienda.setnombre("Juan")
  Print "Nombre del empleado: ", empleado_Tienda.getnombre()

  empleado_Tienda.setSueldo(2000)
  empleado_Tienda.cobrar()
  empleado_Tienda.setDomicilio("Dos Hermanas, Sevilla")
  'usando la clase EmpleadoDeTienda en distintas funciones y subrutinas
  EscribeDatosEnCuadro(empleado_Tienda)

  SueldosEmpleado(empleado_Tienda.getTrabajador())

End

Public Sub SueldosEmpleado(t As Trabajador)
  'funcion que solo admite objetos de la clase trabajador...

  Print "El sueldo es....", t.getSueldo()

End

Public Sub EscribeDatosEnCuadro(p As Persona)

  Print "---------------------------"
  Print p.getnombre()
  Print p.getDomicilio()
  Print "---------------------------"

End