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
53 lines
569 B
Plaintext
53 lines
569 B
Plaintext
// Testing Harbour hbclass.ch commands
|
|
|
|
#include "hbclass.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL o := TTest():New( "one", "two" )
|
|
|
|
? o:ClassName()
|
|
? o:One
|
|
? o:Two
|
|
|
|
o:Test()
|
|
|
|
RETURN
|
|
|
|
// ;
|
|
|
|
CREATE CLASS TTest INHERIT TParent
|
|
|
|
VAR One, Two, Three
|
|
|
|
METHOD New( One, Two )
|
|
|
|
METHOD Test() INLINE QOut( "Hello" )
|
|
|
|
ENDCLASS
|
|
|
|
METHOD New( One, Two ) CLASS TTest
|
|
|
|
::super:New()
|
|
|
|
::One := One
|
|
::Two := Two
|
|
|
|
RETURN Self
|
|
|
|
// ;
|
|
|
|
CREATE CLASS TParent
|
|
|
|
VAR One
|
|
|
|
METHOD New()
|
|
|
|
ENDCLASS
|
|
|
|
METHOD New() CLASS TParent
|
|
|
|
? "TParent:New()"
|
|
|
|
RETURN Self
|