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

2000-06-04 17:52 UTC+0100 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-06-04 15:48:43 +00:00
parent 5bbb1a224c
commit 233fc41349
2 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-06-04 17:52 UTC+0100 Victor Szakats <info@szelvesz.hu>
* tests/setkeys.prg
! Changed to reflect setkey function changes.
2000-06-04 13:55 UTC+0100 Antonio Linares <alinares@fivetech.com>
* include/hbclass.ch
* Some minor fixes

7
harbour/tests/setkeys.prg
View File

@@ -81,7 +81,7 @@
bF8Action := hb_SetKeyGet( K_F8, @bF8Active )
SetKey( K_F8, NIL )
SetKey( { 49, 50, 52, 53 }, {|x| qout( chr( x ) ) } )
hb_SetKeyArray( { 49, 50, 52, 53 }, {|x| qout( chr( x ) ) } )
do while ( n := inkey( 0 ) ) != K_ESC
if hb_SetKeyCheck( n )
qqout( " hit hot" )
@@ -91,5 +91,8 @@
endif
end
SetKey( { 49, 50, 52, 53 }, NIL )
hb_SetKeyArray( { 49, 50, 52, 53 }, NIL )
SetKey( K_F8, bF8Action, bF8Active )
return