2688ce2212
* utils/hbmk2/hbmk2.prg
+ links to markdown and markdown to man-page converter tool
! minor cleanup to prev
* utils/hbmk2/hbmk2.1
* some updates
* ChangeLog.txt
! typos/updates in previous entry
* extras/hbdoc/*.prg
* src/rtl/memoedit.prg
* tests/clasinh.prg
* tests/classch.prg
* tests/inhprob.prg
! updated for new ::super: syntax
* src/rtl/itemseri.c
! fixed typo in latest modification:
'warning: use of unary operator that may be intended as compound assignment (+=)'
* contrib/hbgd/tests/test_out.prg
* contrib/hbhttpd/*
* contrib/hbtip/thtml.prg
* contrib/xhb/*.prg
* extras/httpsrv/*
* extras/guestbk/*
* website/faq/*.html
* website/samples/HowToBuildOnLinux.html
* website/third-party.html
* some steps to modernize old HTML
* extras/hbdoc/*.prg
* do not use [] as string delimiter
- tests/function.cfm
- website/samples/function.cfm.html
* .gitattributes
- obsolete file deleted
65 lines
609 B
Plaintext
65 lines
609 B
Plaintext
/*
|
|
* $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
|
|
|
|
// ;
|