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

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

Browse Source 
* src/rtl/listbox.prg
    * Internal var renamed to reflect its type.

  * src/rtl/einstvar.prg
  * src/rtl/einstv52.prg
    * Fixed to use manifest constants.

  * utils/hbrun/hbrun.prg
    ! Fixed to allow case-insensitive match for headers on 
      non-*nix platforms.
This commit is contained in:
Viktor Szakats
2011-01-29 15:26:56 +00:00
parent 5e2d58dff3
commit 3572482250
5 changed files with 27 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -16,6 +16,18 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-01-29 16:26 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/listbox.prg
* Internal var renamed to reflect its type.
* src/rtl/einstvar.prg
* src/rtl/einstv52.prg
* Fixed to use manifest constants.
* utils/hbrun/hbrun.prg
! Fixed to allow case-insensitive match for headers on
non-*nix platforms.
2011-01-29 14:00 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/utils/hbmk2/hbmk2.prg
! remove .d files from .hbmk working dir when -clean option is used

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

@@ -52,6 +52,7 @@
*/
#include "common.ch"
#include "error.ch"
/* NOTE: In CA-Cl*pper 5.2/5.3 the cMethod argument seems to be ignored. */
@@ -77,8 +78,8 @@ FUNCTION __eInstVar52( oVar, cMethod, xValue, cType, nSubCode, xMin, xMax )
IF lError
oError := ErrorNew()
oError:description := hb_langErrMsg( 1 )
oError:gencode := 1
oError:severity := 2
oError:gencode := EG_ARG
oError:severity := ES_ERROR
oError:cansubstitute := .T.
oError:subsystem := oVar:className
#ifdef HB_CLP_STRICT

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

@@ -52,6 +52,7 @@
*/
#include "common.ch"
#include "error.ch"
/* NOTE: In CA-Cl*pper 5.2/5.3 the cMethod argument seems to be ignored. */
@@ -60,11 +61,11 @@ FUNCTION __eInstVar53( oVar, cMethod, xValue, cType, nSubCode, bValid )
LOCAL oError
IF !( ValType( xValue ) == cType ) .OR. ;
( bValid != NIL .AND. !Eval( bValid, oVar, xValue ) )
( bValid != NIL .AND. ! Eval( bValid, oVar, xValue ) )
oError := ErrorNew()
oError:description := hb_langErrMsg( 1 )
oError:gencode := 1
oError:severity := 2
oError:gencode := EG_ARG
oError:severity := ES_ERROR
oError:cansubstitute := .T.
oError:subsystem := oVar:className
#ifdef HB_CLP_STRICT

4
harbour/src/rtl/listbox.prg
View File

@@ -1094,7 +1094,7 @@ METHOD New( nTop, nLeft, nBottom, nRight, lDropDown )
FUNCTION ListBox( nTop, nLeft, nBottom, nRight, lDropDown )
RETURN HBListBox():New( nTop, nLeft, nBottom, nRight, lDropDown )
FUNCTION _LISTBOX_( nTop, nLeft, nBottom, nRight, nSelect, aItems, cCaption,;
FUNCTION _LISTBOX_( nTop, nLeft, nBottom, nRight, xPos, aItems, cCaption,;
cMessage, cColorSpec, bFBlock, bSBlock, lDropDown, lIsOpen, cBitmap )
LOCAL o := HBListBox():New( nTop, nLeft, nBottom, nRight, lDropDown )
@@ -1141,7 +1141,7 @@ FUNCTION _LISTBOX_( nTop, nLeft, nBottom, nRight, nSelect, aItems, cCaption,;
o:bitmap := cBitmap
ENDIF
o:select( nSelect )
o:select( xPos )
ENDIF
RETURN o

6
harbour/utils/hbrun/hbrun.prg
View File

@@ -255,6 +255,12 @@ STATIC FUNCTION hbrun_CoreHeaderFiles()
ADD HEADER TO hHeaders FILE "hbscalar.hbx"
ADD HEADER TO hHeaders FILE "hbusrrdd.hbx"
#if defined( __PLATFORM__UNIX )
hb_HCaseMatch( hHeaders, .T. )
#else
hb_HCaseMatch( hHeaders, .F. )
#endif
#else
hHeaders := NIL