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

2012-06-05 11:52 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbqt/qtgui/hbqt_errorsys.prg
    ! HB_ISCHAR() -> HB_ISSTRING(). Never use HB_ISCHAR() in 
      Harbour SVN, it won't accept memo type.
This commit is contained in:
Viktor Szakats
2012-06-05 09:53:58 +00:00
parent 7137863524
commit 7d8219fbf2
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

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

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

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