FiveTech Support Forums

#include "hbclass.ch"

function main()
  local oCuatro := cuatro():new()
  local oCinco  := cinco():new()

  ? esDe( oCuatro, "uno" )   // Es hija de la clase uno
  ? esDe( oCinco , "dos" )   // Es hija de la clase dos
return nil

class uno
endclass

class dos
endclass

class tres from uno
endclass

class cuatro from tres
  method new inline self
endclass

class cinco from uno,dos
  method new inline self
endclass