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

See ChangeLog entry 2000-02-23 14:00 GMT-5 David G. Holm <dholm@ sd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2000-02-23 19:03:23 +00:00
parent e02b04be3e
commit 0f89d7ef9a
2 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-02-23 14:00 GMT-5 David G. Holm <dholm@ sd-llc.com>
* source/rtl/inkey.c
! KEYBOARD ";" now returns INKEY() == 13, just like Clipper.
20000223-18:36 GMT+1 Victor Szakats <info@szelvesz.hu>
* source/rtl/tbrowse.prg
! Fixed return values of methods to be Clipper compatible.

11
harbour/source/rtl/inkey.c
View File

@@ -1041,7 +1041,8 @@ HARBOUR HB_INKEY( void )
* CLEAR TYPEAHEAD
* $ARGUMENTS$
* <cString> is the optional string to stuff into the Harbour keyboard
* buffer after clearing it first.
* buffer after clearing it first. Note: The character ";" is converted
* to CHR(13) (this is an undocumented CA-Clipper feature).
* $RETURNS$
* There is no return value
* $DESCRIPTION$
@@ -1054,6 +1055,7 @@ HARBOUR HB_INKEY( void )
* CLEAR TYPEAHEAD
* $TESTS$
* KEYBOARD CHR(13); ? INKEY() ==> 13
* KEYBOARD ";" ? INKEY() ==> 13
* KEYBOARD "HELLO"; CLEAR TYPEAHEAD; ? INKEY() ==> 0
* $STATUS$
* R
@@ -1076,6 +1078,7 @@ HARBOUR HB___KEYBOARD( void )
if( size != 0 )
{
/* Stuff the string */
int ch;
BYTE * fPtr = ( BYTE * ) hb_parc( 1 );
if( size >= hb_set.HB_SET_TYPEAHEAD )
@@ -1086,7 +1089,11 @@ HARBOUR HB___KEYBOARD( void )
}
while( size-- )
hb_inkeyPut( *fPtr++ );
{
ch = *fPtr++;
if( ch == 59 ) ch = 13; /* Convert ";" to CR, like Clipper does */
hb_inkeyPut( ch );
}
}
}
}