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

2008-03-09 16:47 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/gtclip.c
    ! fixed two very bad bugs in get clipboard action used for W32 and
      GTs which do not support system clipboard data
This commit is contained in:
Przemyslaw Czerpak
2008-03-09 15:49:08 +00:00
parent 67df041c52
commit 61983c3250
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-03-09 16:47 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/gtclip.c
! fixed two very bad bugs in get clipboard action used for W32 and
GTs which do not support system clipboard data
2008-03-07 19:49 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbct/ctrand.prg
! fixed random() parameter interpretation - the action was reverted

6
harbour/source/rtl/gtclip.c
View File

@@ -82,9 +82,9 @@ BOOL hb_gt_getClipboard( char ** pszClipData, ULONG *pulLen )
{
*pszClipData = ( char * ) hb_xgrab( s_ulClipboardLen + 1 );
memcpy( *pszClipData, s_szClipboardData, s_ulClipboardLen );
*pszClipData[ s_ulClipboardLen ] = '\0';
( *pszClipData )[ s_ulClipboardLen ] = '\0';
}
return *pulLen != 0;
return s_ulClipboardLen != 0;
}
#if defined( HB_OS_WIN_32 )
@@ -141,7 +141,7 @@ BOOL hb_gt_w32_getClipboard( UINT uFormat, char ** pszClipData, ULONG *pulLen )
{
*pszClipData = ( char * ) hb_xgrab( *pulLen + 1 );
HB_TCHAR_GETFROM( *pszClipData, lptstr, *pulLen );
pszClipData[*pulLen] = '\0';
( *pszClipData )[ *pulLen ] = '\0';
}
GlobalUnlock( hglb );
}