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

2011-01-29 16:33 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/rtl/einstvar.prg
  * src/rtl/einstv52.prg
    * Fixed to use manifest constants. Two more.
This commit is contained in:
Viktor Szakats
2011-01-29 15:33:49 +00:00
parent 3572482250
commit 8874af4808
3 changed files with 7 additions and 2 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.
*/
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.

2
harbour/src/rtl/einstv52.prg
View File

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

2
harbour/src/rtl/einstvar.prg
View File

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