#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 SelfMethodSelf
Method getNumber() as numeric class MyClass
Return nValueMethodnValue
Method getText() as character class MyClass
Return cValueMethodcValue
Method setNumber(n) class MyClass
::nValue := n
ReturnMethodReturn
Method setText(c) class MyClass
::cValue := c
Return
|