a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
28 lines
527 B
Plaintext
28 lines
527 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// 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
|