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

2012-01-05 14:07 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* harbour/src/rtl/hbgtcore.c
    + added default value (0) for HB_GTI_KBDSHIFTS in GTs which
      do not support this HB_GTI_* flag
This commit is contained in:
Przemyslaw Czerpak
2012-01-05 13:07:59 +00:00
parent cf3e9d7021
commit 31cf695ec8
2 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-01-05 14:07 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/rtl/hbgtcore.c
+ added default value (0) for HB_GTI_KBDSHIFTS in GTs which
do not support this HB_GTI_* flag
2012-01-04 00:12 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/rtl/filebuf.c
! modified the code to work with optimizations like -fstrict-overflow

4
harbour/src/rtl/hbgtcore.c
View File

@@ -1507,6 +1507,10 @@ static HB_BOOL hb_gt_def_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo )
pInfo->pResult = hb_itemPutL( pInfo->pResult, HB_FALSE );
break;
case HB_GTI_KBDSHIFTS:
pInfo->pResult = hb_itemPutNI( pInfo->pResult, 0 );
break;
case HB_GTI_INPUTFD:
pInfo->pResult = hb_itemPutNInt( pInfo->pResult, ( HB_NHANDLE ) pGT->hStdIn );
break;