From 7d8219fbf2e87985ce9cdcf48dfc94b19cb8f9b7 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Tue, 5 Jun 2012 09:53:58 +0000
Subject: [PATCH] 2012-06-05 11:52 UTC+0200 Viktor Szakats (harbour syenar.net)
   * contrib/hbqt/qtgui/hbqt_errorsys.prg     ! HB_ISCHAR() -> HB_ISSTRING().
 Never use HB_ISCHAR() in       Harbour SVN, it won't accept memo type.

---
 harbour/ChangeLog                            | 7 ++++++-
 harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg | 4 ++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3611a149ee..5320beaccc 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-06-05 11:52 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * contrib/hbqt/qtgui/hbqt_errorsys.prg
+    ! HB_ISCHAR() -> HB_ISSTRING(). Never use HB_ISCHAR() in
+      Harbour SVN, it won't accept memo type.
+
 2012-06-05 02:49 UTC+0200 Viktor Szakats (harbour syenar.net)
   * src/debug/debugger.prg
   * src/rdd/dbstrux.prg
@@ -50,7 +55,7 @@
     * converted 'DEFAULT ... TO ...' to
       a) __defaultNIL() where bug compatibility is desired
       b) IF ... == NIL ... where default value had execution cost
-      c) hb_default() where above side-effect were not in play
+      c) hb_default() where above side-effects were not in play
     % deleted '#include "common.ch"'
     * minor formatting
 
diff --git a/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg b/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg
index 1546d4e58a..b65a9f7d7f 100644
--- a/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg
+++ b/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg
@@ -171,7 +171,7 @@ STATIC FUNCTION ErrorMessage( oError )
    LOCAL cMessage := iif( oError:severity > ES_WARNING, "Error", "Warning" ) + " "
 
    // add subsystem name if available
-   IF HB_ISCHAR( oError:subsystem )
+   IF HB_ISSTRING( oError:subsystem )
       cMessage += oError:subsystem()
    ELSE
       cMessage += "???"
@@ -185,7 +185,7 @@ STATIC FUNCTION ErrorMessage( oError )
    ENDIF
 
    // add error description if available
-   IF HB_ISCHAR( oError:description )
+   IF HB_ISSTRING( oError:description )
       cMessage += "  " + oError:description
    ENDIF