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

2002-10-19 16:50 UTC-0500 Paul Tucker <ptucker@sympatico.ca>

Browse Source
This commit is contained in:
Paul Tucker
2002-10-19 21:03:51 +00:00
parent 873d790988
commit e29ce229af
10 changed files with 1348 additions and 1208 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
harbour/ChangeLog
View File

@@ -8,6 +8,25 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-10-19 16:50 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
* include/hbdefs.h
* Added definition for UINT
* include/hbapigt.h
* source/rtl/gtapi.c
* source/rtl/saverest.c
* source/rtl/xsavescr.c
* source/rtl/gtdos/gtdos.c
* source/rtl/gtsln/gtsln.c
* source/rtl/gtos2/gtos2.c
* source/rtl/gtwin/gtwin.c
! Properly account for the fact that hb_gt_rectsize returns an int
(ok, so we treat it as UINT, but this is better than USHORT)
* source/rtl/gtwin/gtwin.c
* New, highly optimized Windows console gt driver
written by Przemyslaw Czerpak <druzus@polbox.com>
with some (?) fixes suggested by Peter Rees <peter@rees.co.nz>
and Marek Paliwoda <paliwoda@inetia.pl>
2002-10-19 16:26 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
* source/rtl/box.c
* source/rtl/disksphb.c

2
harbour/include/hbapigt.h
View File

@@ -174,7 +174,7 @@ extern USHORT hb_gtSuspend( void ); /* prepare the reminal for shell output */
extern USHORT hb_gtResume( void ); /* resume the terminal after the shell output */
extern int hb_gtExtendedKeySupport( void );
extern int hb_gtReadKey( HB_inkey_enum eventmask );
extern USHORT hb_gtRectSize( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight, USHORT * puiBuffSize );
extern USHORT hb_gtRectSize( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight, UINT * puiBuffSize );
extern USHORT hb_gtRepChar( USHORT uiRow, USHORT uiCol, BYTE byChar, USHORT uiCount );
extern USHORT hb_gtRest( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight, void * pScrBuff );
extern USHORT hb_gtSave( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight, void * pScrBuff );

3
harbour/include/hbdefs.h
View File

@@ -123,6 +123,9 @@
#undef BOOL /* boolean */
typedef int BOOL;
#undef UINT
typedef unsigned int UINT; /* compiler/target dependant */
#undef BYTE
typedef unsigned char BYTE; /* 1 byte unsigned */

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

@@ -780,7 +780,7 @@ USHORT hb_gtMaxRow( void )
return hb_gt_GetScreenHeight() - 1;
}
USHORT hb_gtRectSize( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight, USHORT * uipBuffSize )
USHORT hb_gtRectSize( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight, UINT * uipBuffSize )
{
HB_TRACE(HB_TR_DEBUG, ("hb_gtRectSize(%hu, %hu, %hu, %hu, %p)", uiTop, uiLeft, uiBottom, uiRight, uipBuffSize));

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

@@ -838,7 +838,7 @@ void hb_gt_Scroll( USHORT usTop, USHORT usLeft, USHORT usBottom, USHORT usRight,
* with C++ compilers
*/
SHORT usRow, usCol;
USHORT uiSize; /* gtRectSize returns int */
UINT uiSize;
int iLength = ( usRight - usLeft ) + 1;
int iCount, iColOld, iColNew, iColSize;

4
harbour/source/rtl/gtos2/gtos2.c
View File

@@ -453,13 +453,13 @@ void hb_gt_Scroll( USHORT usTop, USHORT usLeft, USHORT usBottom, USHORT usRight,
* with C++ compilers
*/
SHORT usRow, usCol;
USHORT usSize;
UINT uiSize;
int iLength = ( usRight - usLeft ) + 1;
int iCount, iColOld, iColNew, iColSize;
hb_gtGetPos( &usRow, &usCol );
if( hb_gtRectSize( usTop, usLeft, usBottom, usRight, &usSize ) == 0 )
if( hb_gtRectSize( usTop, usLeft, usBottom, usRight, &uiSize ) == 0 )
{
/* NOTE: 'unsigned' is used intentionally to correctly compile
* with C++ compilers

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

@@ -632,7 +632,7 @@ void hb_gt_SetAttribute( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT ui
void hb_gt_Scroll( USHORT usTop, USHORT usLeft, USHORT usBottom, USHORT usRight, BYTE byAttr, SHORT iRows, SHORT iCols )
{
SHORT usSaveRow, usSaveCol;
USHORT uiSize;
UINT uiSize;
int iLength = ( usRight - usLeft ) + 1;
int iCount, iColOld, iColNew, iColSize;

2518
harbour/source/rtl/gtwin/gtwin.c
View File

File diff suppressed because it is too large Load Diff

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

@@ -60,7 +60,7 @@ HB_FUNC( SAVESCREEN )
USHORT uiBottom = ISNUM( 3 ) ? hb_parni( 3 ) : hb_gtMaxRow();
USHORT uiRight = ISNUM( 4 ) ? hb_parni( 4 ) : hb_gtMaxCol();
USHORT uiSize;
UINT uiSize;
void * pBuffer;
hb_gtRectSize( uiTop, uiLeft, uiBottom, uiRight, &uiSize );

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

@@ -87,7 +87,7 @@ HB_FUNC( __XSAVESCREEN )
hb_gtGetPos( &s_iRow, &s_iCol );
{
USHORT uiSize;
UINT uiSize;
hb_gtRectSize( 0, 0, hb_gtMaxRow(), hb_gtMaxCol(), &uiSize );
s_pBuffer = hb_xgrab( uiSize );
}