diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d780017bee..0a23c82ac5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-09-19 20:48 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * examples/hbdoc2/hbdoc2.prg + * Minor changes/fixes to help screen and header. + 2009-09-19 20:32 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * bin/hb-mkdyn.sh * bin/postinst.sh diff --git a/harbour/examples/hbdoc2/hbdoc2.prg b/harbour/examples/hbdoc2/hbdoc2.prg index ba6bea6caa..cfa66ef270 100644 --- a/harbour/examples/hbdoc2/hbdoc2.prg +++ b/harbour/examples/hbdoc2/hbdoc2.prg @@ -949,6 +949,9 @@ PROCEDURE ShowSubHelp( xLine, nMode, nIndent, n ) RETURN +STATIC FUNCTION HBRawVersion() + RETURN StrTran( Version(), "Harbour " ) + PROCEDURE ShowHelp( cExtraMessage, aArgs ) LOCAL nMode := 1 @@ -962,11 +965,14 @@ PROCEDURE ShowHelp( cExtraMessage, aArgs ) CASE Empty( aArgs ) .OR. Len( aArgs ) <= 1 .OR. Empty( aArgs[ 1 ] ) aHelp = { ; cExtraMessage, ; - "Harbour Document Extractor No. 2 (" + Version() + ")", ; + "Harbour Document Extractor (hbdoc2) " + HBRawVersion(), ; "Copyright (c) 1999-2009, http://www.harbour-project.org/", ; - "Syntax: ", ; + "", ; + "Syntax:", ; + "", ; { "hbdoc2 [options]" }, ; - "options:", ; + "", ; + "Options:", ; { ; "-? or --help // this screen", ; "-?