::Classname()

[fp]

I want to create own classes inherit e.g. from TDialog like

Code: Select all

CLASS MYTDIALOG FROM TDIALOG

DATA ...
METHOD ...

ENDCLASS

But now, the Method ::ClassName() returns "MYTDIALOG".

As I see, some methods check for ::Classname() like

Code: Select all

IF ::ClassName() $ "TDIALOG,..."

so "MYTDIALOG" is not checked.

Is that a problem?

Thanks.

[Patricio Avalos Aguirre]

Code: Select all

CLASS MYTDIALOG FROM TDIALOG

DATA ...
METHOD ...
METHOD ClassName() INLINE "TDIALOG"

ENDCLASS 

Saludos
Patricio