a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
48 lines
978 B
C
48 lines
978 B
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Author....: Ted Means
|
|
* CIS ID....: 73067,3332
|
|
*
|
|
* This is an original work by Ted Means and is placed in the
|
|
* public domain.
|
|
*
|
|
* Modification history:
|
|
* ---------------------
|
|
*
|
|
* Rev 1.4 16 Oct 1992 00:00:56 GLENN
|
|
* Just making sure we have Ted's latest revisions.
|
|
*
|
|
* Rev 1.3 01 Jul 1992 01:07:02 GLENN
|
|
* putkey.asm now bypasses the BIOS completely and uses Clipper's
|
|
* internal event handler to stuff the keystroke. Modifications by
|
|
* Ted Means.
|
|
*
|
|
* Rev 1.2 15 Aug 1991 23:07:10 GLENN
|
|
* Forest Belt proofread/edited/cleaned up doc
|
|
*
|
|
* Rev 1.1 14 Jun 1991 19:54:56 GLENN
|
|
* Minor edit to file header
|
|
*
|
|
* Rev 1.0 01 Apr 1991 01:03:48 GLENN
|
|
* Nanforum Toolkit
|
|
*/
|
|
|
|
#include "hbapi.h"
|
|
#include "hbapigt.h"
|
|
|
|
HB_FUNC( FT_PUTKEY )
|
|
{
|
|
HB_BOOL lSuccess = HB_FALSE;
|
|
|
|
if( HB_ISNUM( 1 ) )
|
|
{
|
|
hb_inkeyPut( hb_parni( 1 ) );
|
|
lSuccess = HB_TRUE;
|
|
}
|
|
|
|
hb_retl( lSuccess );
|
|
}
|