51 lines
750 B
Plaintext
51 lines
750 B
Plaintext
//
|
|
// $Id$
|
|
//
|
|
|
|
// Testing Harbour classes.ch commands
|
|
|
|
#include "classes.ch"
|
|
|
|
//--------------------------------------------------------------------//
|
|
|
|
function Main()
|
|
|
|
local o := TTest():New( "one", "two" )
|
|
|
|
? o:ClassName()
|
|
? o:One
|
|
? o:Two
|
|
|
|
o:Test()
|
|
|
|
return nil
|
|
|
|
//--------------------------------------------------------------------//
|
|
|
|
CLASS TTest INHERIT TParent
|
|
|
|
DATA One, Two, Three
|
|
|
|
METHOD New( One, Two )
|
|
|
|
METHOD Test() INLINE QOut( "Hello" )
|
|
|
|
ENDCLASS
|
|
|
|
//--------------------------------------------------------------------//
|
|
|
|
METHOD New( One, Two ) CLASS TTest
|
|
|
|
::One = One
|
|
::Two = Two
|
|
|
|
return Self
|
|
|
|
//--------------------------------------------------------------------//
|
|
|
|
CLASS TParent
|
|
|
|
DATA One
|
|
|
|
ENDCLASS
|