From eab240feeaad0817428e480a73221e7c8d105a13 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Tue, 5 Jun 2012 00:03:18 +0000 Subject: [PATCH] 2012-06-04 17:00 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbqt/qtgui/hbqt_errorsys.prg * Changed: ISNUMBER() => HB_ISNUMERIC() ISCHARACTER() => HB_ISCHAR() --- harbour/ChangeLog | 5 +++++ harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 7ad88406c3..c03c164bfb 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2012-06-04 17:00 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbqt/qtgui/hbqt_errorsys.prg + * Changed: ISNUMBER() => HB_ISNUMERIC() + ISCHARACTER() => HB_ISCHAR() + 2012-06-05 01:06 UTC+0200 Viktor Szakats (harbour syenar.net) * contrib/hbgd/gdbar.prg * contrib/hbqt/tests/demoqt.prg diff --git a/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg b/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg index 931aba428e..1546d4e58a 100644 --- a/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg +++ b/harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg @@ -171,21 +171,21 @@ STATIC FUNCTION ErrorMessage( oError ) LOCAL cMessage := iif( oError:severity > ES_WARNING, "Error", "Warning" ) + " " // add subsystem name if available - IF ISCHARACTER( oError:subsystem ) + IF HB_ISCHAR( oError:subsystem ) cMessage += oError:subsystem() ELSE cMessage += "???" ENDIF // add subsystem's error code if available - IF ISNUMBER( oError:subCode ) + IF HB_ISNUMERIC( oError:subCode ) cMessage += "/" + hb_NToS( oError:subCode ) ELSE cMessage += "/???" ENDIF // add error description if available - IF ISCHARACTER( oError:description ) + IF HB_ISCHAR( oError:description ) cMessage += " " + oError:description ENDIF