Properties CLASS, PARENTCLASS, BASECLASS

[Jens]

Hi,
in VFP the properties CLASS, PARENTCLASS, BASECLASS have the following meaning:

CLASS - Name of the class the actual object is created of
PARENTCLASS - Name of the class the class of the actual object is derived of
BASECLASS - Name of the VFP-baseclass, the actual class is derived of

In Lianja it is the following:

CLASS - Name of the Lianja-baseclass, the actual class is derived of
PARENTCLASS - Empty
BASECLASS - Missing

Is it possible, to implement it as it is in VFP?

Here is a small prg in Lianja to test it:

define class cip_gui_form as form
	Name = "cip_gui_form"
	
enddefine

define class frmTest as cip_gui_form
	Name = "frmTest"
	
	PROCEDURE ShowClass
= Messagebox("class = '" + this.class + "' (should be: frmTest)" + CHR(13) + CHR(10) + ;
			 "parentclass = '" + this.parentclass + "' (should be: cip_gui_form)")
	RETURN
	ENDPROC
enddefine


loObj = createobject("frmTest")
loObj.ShowClass()

= messagebox("Ok")

[barrymavin]

Hi Jens,

Yes. Please cut and paste this into an ER ticket and I'll take a look.

[Jens]

Done