::Classname()

[fp]

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

Code: Select all  Expand view  RUN

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  Expand view  RUN

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


so "MYTDIALOG" is not checked.

Is that a problem?

Thanks.

[Patricio Avalos Aguirre]

Code: Select all  Expand view  RUN

CLASS MYTDIALOG FROM TDIALOG

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

ENDCLASS

Saludos
Patricio