From 8874af480835a58c2c11e96eefcd22c5f1b50836 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sat, 29 Jan 2011 15:33:49 +0000 Subject: [PATCH] 2011-01-29 16:33 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * src/rtl/einstvar.prg * src/rtl/einstv52.prg * Fixed to use manifest constants. Two more. --- harbour/ChangeLog | 5 +++++ harbour/src/rtl/einstv52.prg | 2 +- harbour/src/rtl/einstvar.prg | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 45c3367e72..dee61b553f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2011-01-29 16:33 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * src/rtl/einstvar.prg + * src/rtl/einstv52.prg + * Fixed to use manifest constants. Two more. + 2011-01-29 16:26 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * src/rtl/listbox.prg * Internal var renamed to reflect its type. diff --git a/harbour/src/rtl/einstv52.prg b/harbour/src/rtl/einstv52.prg index b205fc1f49..a8150e7ed3 100644 --- a/harbour/src/rtl/einstv52.prg +++ b/harbour/src/rtl/einstv52.prg @@ -77,7 +77,7 @@ FUNCTION __eInstVar52( oVar, cMethod, xValue, cType, nSubCode, xMin, xMax ) IF lError oError := ErrorNew() - oError:description := hb_langErrMsg( 1 ) + oError:description := hb_langErrMsg( EG_ARG ) oError:gencode := EG_ARG oError:severity := ES_ERROR oError:cansubstitute := .T. diff --git a/harbour/src/rtl/einstvar.prg b/harbour/src/rtl/einstvar.prg index 08cde2773e..de89463ec9 100644 --- a/harbour/src/rtl/einstvar.prg +++ b/harbour/src/rtl/einstvar.prg @@ -63,7 +63,7 @@ FUNCTION __eInstVar53( oVar, cMethod, xValue, cType, nSubCode, bValid ) IF !( ValType( xValue ) == cType ) .OR. ; ( bValid != NIL .AND. ! Eval( bValid, oVar, xValue ) ) oError := ErrorNew() - oError:description := hb_langErrMsg( 1 ) + oError:description := hb_langErrMsg( EG_ARG ) oError:gencode := EG_ARG oError:severity := ES_ERROR oError:cansubstitute := .T.