23 lines
340 B
Text
23 lines
340 B
Text
Singleton Class Demo
|
|
BeginPrivate
|
|
Name$
|
|
X.i
|
|
EndPrivate
|
|
|
|
Public Method Init(Name$)
|
|
This\Name$ = Name$
|
|
EndMethod
|
|
|
|
Public Method GetX()
|
|
MethodReturn This\X
|
|
EndMethod
|
|
|
|
Public Method SetX(n)
|
|
This\X = n
|
|
EndMethod
|
|
|
|
Public Method Hello()
|
|
MessageRequester("Hello!", "I'm "+This\Name$)
|
|
EndMethod
|
|
|
|
EndClass
|