From 233fc413495d7fa612d62fb66d68601f8ea3f435 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 4 Jun 2000 15:48:43 +0000 Subject: [PATCH] 2000-06-04 17:52 UTC+0100 Victor Szakats --- harbour/ChangeLog | 5 +++++ harbour/tests/setkeys.prg | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f38c3f6987..690b4ce420 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2000-06-04 17:52 UTC+0100 Victor Szakats + + * tests/setkeys.prg + ! Changed to reflect setkey function changes. + 2000-06-04 13:55 UTC+0100 Antonio Linares * include/hbclass.ch * Some minor fixes diff --git a/harbour/tests/setkeys.prg b/harbour/tests/setkeys.prg index 5c16eedf2b..de5e25a3f7 100644 --- a/harbour/tests/setkeys.prg +++ b/harbour/tests/setkeys.prg @@ -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 +