\' Gambas class file
Private hmando As Unidad
Private hnombre As String
Public Sub establecerMando(mando As Unidad)
hmando = mando
End
Public Sub getMando() As Unidad
If IsNull(hmando) Then
Return Null
Else
Return hmando
Endif
End
Public Sub _new(nombre As String)
hnombre = nombre
End
Public Function DevuelveNombre() As String
Return hnombre & "<br>"
End
Public Function orden() As String
If hmando = Null Then
Return "(sin ordenes)" & "<br>"
Else
Return hmando.orden()
Endif
End
Public Sub setNombre(valor As String)
hnombre = valor
End
Public Function getNombre() As String
Return hnombre
End