fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-06-04 17:00 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbqt/qtgui/hbqt_errorsys.prg
    * Changed: ISNUMBER() => HB_ISNUMERIC()
               ISCHARACTER() => HB_ISCHAR()
This commit is contained in:
Pritpal Bedi
2012-06-05 00:03:18 +00:00
parent bff2ed1a59
commit eab240feea
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -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

6
harbour/contrib/hbqt/qtgui/hbqt_errorsys.prg
View File

@@ -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