/*
 * $Id$
 */

#include "hbclass.ch"

PROCEDURE Main()

   LOCAL oObject, oBase

   oObject := TAnyClass():New()
   oBase := TClassBase():New()

   RETURN

CREATE CLASS TClassBase

   METHOD New()
   METHOD Test() INLINE Alert( "Test" )

ENDCLASS

METHOD New() CLASS TClassBase

   RETURN Self

CREATE CLASS TAnyClass FROM TClassBase

   METHOD New()

ENDCLASS

METHOD New() CLASS TAnyClass

   super:New()
   super:Test()

   RETURN Self