' 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