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

2007-12-11 16:05 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/hbgtcore.c
    * formatting

  * harbour/source/vm/hvm.c
    ! fixed typo in HB_TRACE message

  * harbour/source/rtl/gtwvt/gtwvt.h
  * harbour/source/rtl/gtwvt/gtwvt.c
    * updated for multi window usage

  * harbour/source/vm/maindllp.c
    * use MessageBox() instead of hb_errInternal() - thanks to Jon Jagger
      for information about the problem
This commit is contained in:
Przemyslaw Czerpak
2007-12-11 15:06:07 +00:00
parent 6e795ddb59
commit 59ebbe7064
6 changed files with 418 additions and 313 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
harbour/ChangeLog
View File

@@ -8,6 +8,21 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-12-11 16:05 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/hbgtcore.c
* formatting
* harbour/source/vm/hvm.c
! fixed typo in HB_TRACE message
* harbour/source/rtl/gtwvt/gtwvt.h
* harbour/source/rtl/gtwvt/gtwvt.c
* updated for multi window usage
* harbour/source/vm/maindllp.c
* use MessageBox() instead of hb_errInternal() - thanks to Jon Jagger
for information about the problem
2007-12-09 19:17 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/hbgtwvg/tests/demowvg.prg
! Formatting.

701
harbour/source/rtl/gtwvt/gtwvt.c
View File

File diff suppressed because it is too large Load Diff

2
harbour/source/rtl/gtwvt/gtwvt.h
View File

@@ -77,6 +77,7 @@
#define WVT_MAX_TITLE_SIZE 128
#define WVT_MAX_ROWS 256
#define WVT_MAX_COLS 256
#define WVT_MAX_WINDOWS 256
#if defined( HB_WINCE )
# define WVT_DEFAULT_ROWS 15
# define WVT_DEFAULT_COLS 50
@@ -112,6 +113,7 @@
typedef struct
{
PHB_GT pGT; /* core GT pointer */
int iHandle; /* window number */
USHORT ROWS; /* number of displayable rows in window */
USHORT COLS; /* number of displayable columns in window */

2
harbour/source/rtl/hbgtcore.c
View File

@@ -2003,7 +2003,7 @@ static void hb_gt_def_ColdArea( PHB_GT pGT, int iTop, int iLeft, int iBottom, in
if( HB_GTSELF_CHECKPOS( pGT, iTop, i, &lIndex ) )
{
pGT->prevBuffer[ lIndex ].uiValue =
( pGT->screenBuffer[ lIndex ].uiValue &= ~HB_GT_ATTR_REFRESH );
( pGT->screenBuffer[ lIndex ].uiValue &= ~HB_GT_ATTR_REFRESH );
}
}
if( iLeft == 0 && iRight == pGT->iWidth - 1 )

2
harbour/source/vm/hvm.c
View File

@@ -3645,7 +3645,7 @@ static void hb_vmEnumReference( PHB_ITEM pBase )
PHB_ENUMREF pEnumExtRef;
HB_TRACE(HB_TR_DEBUG, ("hb_vmEnumReference(%p)", pEnumRef));
HB_TRACE(HB_TR_DEBUG, ("hb_vmEnumReference(%p)", pBase));
pEnumExtRef = ( PHB_ENUMREF ) hb_xgrab( sizeof( HB_ENUMREF ) );
pEnumExtRef->basevalue.type = HB_IT_NIL;

9
harbour/source/vm/maindllp.c
View File

@@ -70,7 +70,7 @@
#if defined(HB_OS_WIN_32)
HB_EXTERN_BEGIN
static FARPROC hb_getProcAddress( LPSTR szProcName )
static FARPROC hb_getProcAddress( LPCSTR szProcName )
{
static HMODULE s_hModule = NULL;
FARPROC pProcAddr = NULL;
@@ -93,7 +93,12 @@ static FARPROC hb_getProcAddress( LPSTR szProcName )
}
if( pProcAddr == NULL )
hb_errInternal( HB_EI_ERRUNRECOV, "Cannot find address of '%s' function", szProcName, NULL );
{
LPTSTR lpFuncName = HB_TCHAR_CONVTO( szProcName );
MessageBox( NULL, TEXT( "Cannot find function address" ),
lpFuncName, MB_ICONSTOP );
HB_TCHAR_FREE( lpFuncName );
}
return pProcAddr;
}