#include "tlpp-objectcore.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() class MyClass
Return SelfMethodSelf
Method getNumber() as numeric class MyClass
Return nValueMethod ::nValue
Method getText() as character class MyClass
Return cValueMethod::cValue
Method setNumber(n) class MyClass
::nValue := n
ReturnMethod
Return
Method setText(c) class MyClass
::cValue := c
Return |