From 31cf695ec8f4cddf669fcc1f0879460e4768da13 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Thu, 5 Jan 2012 13:07:59 +0000
Subject: [PATCH] 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

---
 harbour/ChangeLog          | 5 +++++
 harbour/src/rtl/hbgtcore.c | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 601969c9a5..f95ed2630a 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -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
diff --git a/harbour/src/rtl/hbgtcore.c b/harbour/src/rtl/hbgtcore.c
index bb56835cf6..e41fddcd4d 100644
--- a/harbour/src/rtl/hbgtcore.c
+++ b/harbour/src/rtl/hbgtcore.c
@@ -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;