-
Notifications
You must be signed in to change notification settings - Fork 97
/
alt.c
34 lines (25 loc) · 910 Bytes
/
alt.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
/* This is an original work by Ted Means and is placed in the public domain.
Rev 1.5 16 Apr 2000 17:30:00 Luiz Rafael Culik
Ported to Harbour
Rev 1.4 15 Jul 1993 23:48:00 GLENN
Dropped _MK_FP for preferred 0x00400017
Rev 1.3 13 Jul 1993 22:28:58 GLENN
Added call to _MK_FP in order to be compatible in protected mode.
Rev 1.2 15 Aug 1991 23:08:34 GLENN
Forest Belt proofread/edited/cleaned up doc
Rev 1.1 14 Jun 1991 19:53:36 GLENN
Minor edit to file header
Rev 1.0 01 Apr 1991 01:02:42 GLENN
Nanforum Toolkit
*/
#include "hbapigt.h"
#include "hbapiitm.h"
HB_FUNC( FT_ALT )
{
HB_GT_INFO gtInfo;
memset( >Info, 0, sizeof( gtInfo ) );
hb_gtInfo( HB_GTI_KBDSHIFTS, >Info );
hb_retl( ( hb_itemGetNI( gtInfo.pResult ) & HB_GTI_KBD_ALT ) != 0 );
if( gtInfo.pResult )
hb_itemRelease( gtInfo.pResult );
}