2008-04-04 08:30 UTC+1200 Peter Rees <peter(AT)rees.co.nz>
* source/rtl/hbgtcore.c
* source/rtl/inkey.c
* include/hbgtcore.h
* Change to restore KEYBOARD / __KEYBOARD( xType, [.T.|.F.])
extended behaviour that was removed with recent GT sync
with Harbour. Change to struct _HB_GT_BASE in hbgtcore.h
makes xHarbour GT incompatible with Harbour
To maintain compatibility of Gt's with Harbour a small modification is
required by the Harbour developers
Change in /include/hbgtcore.h typedef struct _HB_GT_BASE
BYTE * StrBuffer;
int * StrBuffer;
and in /source/rtl/hbgtcore.c
static void hb_gt_def_InkeySetText( PHB_GT pGT, const char * szText,
ULONG ulLen )
{
HB_TRACE(HB_TR_DEBUG, ("hb_gt_def_InkeySetText(%p,%s,%lu)", pGT,
szText, ulLen));
if( pGT->StrBuffer )
{
hb_xfree( pGT->StrBuffer );
pGT->StrBuffer = NULL;
}
if( szText && ulLen )
{
pGT->StrBuffer = ( BYTE * ) hb_xgrab( ulLen * sizeof( int ) );
for ( x= 0 ; x < ulLen ; x++ )
{
pGT->StrBuffer[ x ] = ( int ) szText[ x ] == ';' ? K_ENTER :
szText[ x ] ;
}
/* memcpy( pGT->StrBuffer, szText, ulLen ); */
pGT->StrBufferSize = ulLen;
pGT->StrBufferPos = 0;
}
}
Regards
Peter
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
