2c5ad9f51d
* include/hbapi.h
* source/rtl/idle.c
+ Added hb_idleReset()
* source/rtl/inkey.c
* Replaced direct idle flags reset with call to hb_idleReset()
* tests/testidle.prg
+ Added 2nd block test.
+ tests/testget.prg
+ Added test for plain gets, array gets, macro gets, and object data gets.
* hb_slex.bc
* include/hbver.h
* source/common/hbver.c
* source/compiler/genc.c
* source/compiler/genjava.c
* source/compiler/genobj32.c
* source/compiler/hbusage.c
+ Added HB_VER_LEX macro and added to Build Info.
* config/dos/djgpp.cf
* config/linux/gcc.cf
* config/w32/bcc32.cf
* config/w32/gcc.cf
+ Added -DSIMPLEX to C[LIB]FLAGS of SimpLex build
33 lines
663 B
Plaintext
33 lines
663 B
Plaintext
// #include "set.ch" - Preset in pptable.c
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
CLS
|
|
|
|
? "DEFAULT IDLEREPEAT =", SET( _SET_IDLEREPEAT )
|
|
?
|
|
? "Idle Block should be displayed multiple times until key or 10 seconds elapsed!"
|
|
? "Press any key to begin..."
|
|
?
|
|
Inkey(0)
|
|
|
|
HB_IDLEADD( {|| QOut( "Idle Block" ) } )
|
|
Inkey( 2 )
|
|
|
|
SET( _SET_IDLEREPEAT, .F. )
|
|
|
|
HB_IDLEADD( {|| QOut( "Idle Block2" ) } )
|
|
|
|
CLS
|
|
? "Idle Block & Block-2 should display ONCE! while waitning for key or 10 seconds elapsed!"
|
|
?
|
|
Inkey( 2 )
|
|
|
|
?
|
|
? "Again - Idle Block & Block-2 should display ONCE! while waitning for key or 10 seconds elapsed!"
|
|
?
|
|
Inkey( 2 )
|
|
?
|
|
|
|
RETURN
|