#include "tlpp-object.th"
Class MyClass
private data nValue as numeric
private data cValue as character
public method New()
public method getNumber() as numeric
public method getText() as character
public method setNumber(n)
public method setText(c)
EndClass
Method New()
Return SelfMethod getNumber() as numeric class MyClass
Return nValueMethod getText() as character class MyClass
Return cValueMethod setNumber(n) class MyClass
::nValue := n
ReturnMethod setText(c) class MyClass
::cValue := c
Return |