From 21b54f433b9a5a45ef7ecfdecf2c16c43e76d589 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sat, 19 Sep 2009 18:49:05 +0000
Subject: [PATCH] 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.

---
 harbour/ChangeLog                  |  4 ++++
 harbour/examples/hbdoc2/hbdoc2.prg | 16 +++++++++++-----
 2 files changed, 15 insertions(+), 5 deletions(-)

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", ;
             "-? <option> or --help <option> // help on <option>, <option> is one of:", ;
@@ -980,8 +986,8 @@ PROCEDURE ShowHelp( cExtraMessage, aArgs )
             "-by-method // output is one file per method (function, command, etc)" + IsDefault( p_hsSwitches[ "by-" ] == "method" ), ;
             "-by-category // output is one file per category" + IsDefault( p_hsSwitches[ "by-" ] == "category" ), ;
             "-source=<folder> // source folder, default is .." + PATH_SEPARATOR + "..", ;
-            "- include-doc-source // output is to indicate the document source file name", ;
-            "- include-doc-version // output is to indicate the document source file version", ;
+            "-include-doc-source // output is to indicate the document source file name", ;
+            "-include-doc-version // output is to indicate the document source file version", ;
          } ;
       }