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

2007-08-09 08:48 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/gtxwc/gtxwc.c
    + added support for GTI_KBDSHIFTS
This commit is contained in:
Przemyslaw Czerpak
2007-08-09 06:49:08 +00:00
parent c81c4ddc8c
commit 72d4129e6f
2 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-08-09 08:48 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/gtxwc/gtxwc.c
+ added support for GTI_KBDSHIFTS
2007-08-09 03:35 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/libnf/numlock.c
* harbour/contrib/libnf/caplock.c

16
harbour/source/rtl/gtxwc/gtxwc.c
View File

@@ -3576,6 +3576,17 @@ static BOOL hb_gt_xwc_SetKeyCP( char * pszTermCDP, char * pszHostCDP )
/* *********************************************************************** */
static int hb_gt_xwc_getKbdState( PXWND_DEF wnd )
{
int iKbdState = 0;
if( wnd->keyModifiers.bShift ) iKbdState |= GTI_KBD_SHIFT;
if( wnd->keyModifiers.bCtrl ) iKbdState |= GTI_KBD_CTRL;
if( wnd->keyModifiers.bAlt ) iKbdState |= GTI_KBD_ALT;
return iKbdState;
}
static BOOL hb_gt_xwc_Info( int iType, PHB_GT_INFO pInfo )
{
int iVal;
@@ -3731,6 +3742,11 @@ static BOOL hb_gt_xwc_Info( int iType, PHB_GT_INFO pInfo )
s_cursorBlinkRate = hb_itemGetNI( pInfo->pNewVal );
break;
case GTI_KBDSHIFTS:
pInfo->pResult = hb_itemPutNI( pInfo->pResult,
hb_gt_xwc_getKbdState( s_wnd ) );
break;
default:
return HB_GTSUPER_INFO( iType, pInfo );
}