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

2000-10-19 16:25 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2000-10-19 20:29:16 +00:00
parent 4535ff6e30
commit 0ae9a207f6
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-10-19 16:25 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/gtwin.gtwin.c
! Fixed bug in if test for discarding accent key strokes.
2000-10-19 11:00 UTC+0800 Ron Pinkas <ron@profit-master.com>
* contrib/dot/pp.prg
! Corrected bug with #else

3
harbour/source/rtl/gtwin/gtwin.c
View File

@@ -317,6 +317,7 @@ int hb_gt_ReadKey( HB_inkey_enum eventmask )
WORD wChar = s_irInBuf[ s_cNumIndex ].Event.KeyEvent.wVirtualKeyCode;
WORD wKey = s_irInBuf[ s_cNumIndex ].Event.KeyEvent.wVirtualScanCode;
ch = s_irInBuf[ s_cNumIndex ].Event.KeyEvent.uChar.AsciiChar;
/* fprintf( stdout, "\n\nhb_gt_ReadKey(): dwState is %ld, wChar is %d, wKey is %d, ch is %d", dwState, wChar, wKey, ch ); */
if( ch == 224 )
{
/* Strip extended key lead-in codes */
@@ -330,7 +331,7 @@ int hb_gt_ReadKey( HB_inkey_enum eventmask )
ch += 256;
}
/* && ch == -32 added for international keyboard support ( Alexander Kresin ) */
else if( ch == 0 || ch == -32 || ( dwState & ( ENHANCED_KEY | LEFT_ALT_PRESSED | LEFT_CTRL_PRESSED | RIGHT_ALT_PRESSED | RIGHT_CTRL_PRESSED | SHIFT_PRESSED ) ) )
else if( ( ch == 0 || ch == -32 ) && ( dwState & ( ENHANCED_KEY | LEFT_ALT_PRESSED | LEFT_CTRL_PRESSED | RIGHT_ALT_PRESSED | RIGHT_CTRL_PRESSED | SHIFT_PRESSED ) ) )
{
/* Process non-ASCII key codes */
if( eventmask & INKEY_RAW ) wKey = wChar;