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.