lo = CREATEOBJECT("ccc")

DEFINE CLASS aaa as Custom

	PROCEDURE init
	
		MESSAGEBOX("Aaa")
		
	endproc

ENDDEFINE

DEFINE CLASS bbb as aaa

	PROCEDURE init
	
		MESSAGEBOX("bbb")
		DODEFAULT()
		
	endproc

ENDDEFINE

DEFINE CLASS ccc as bbb

	PROCEDURE init
	
		MESSAGEBOX("ccc")
		aaa::Init()
		
	endproc

ENDDEFINE