harbour-core/harbour/tests/classch.prg

/*
 * $Id$
 */

// 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

//--------------------------------------------------------------------//