\' Gambas class file
Inherits AutoBuilder
Public Sub buildMarca()
Super.Vehiculo.setmarca("Ford")
End
Public Sub buildModelo()
Super.Vehiculo.setModelo("Focus")
End
Public Sub buildMotor()
Dim m As New Motor
m.setNumero(23111)
m.setPotencia("20 HP")
Super.Vehiculo.setmotor(m)
End
Public Sub buildPuerta()
Super.Vehiculo.setCantidadDePuertas(4)
End