9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
24 lines
511 B
Plaintext
24 lines
511 B
Plaintext
// Class(y) Class Symbol documentation is located at:
|
|
// http://www.clipx.net/ng/classy/ngdebc.php
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL oSym := SYMBOL():New( "QOUT" )
|
|
|
|
? "Now test the :Exec() method"
|
|
|
|
oSym:Exec( "This string is being printed by QOUT" )
|
|
oSym:Exec( "which is being invoked by the :Exec()" )
|
|
oSym:Exec( "method in the Symbol class." )
|
|
|
|
?
|
|
? "symbol name: ", oSym:name
|
|
|
|
? "Comparing QOut symbol with xOut symbol"
|
|
? oSym:IsEqual( SYMBOL():New( "xOut" ) )
|
|
|
|
? "done!"
|
|
?
|
|
|
|
RETURN
|