46ae9d2f68
* include/hbset.h
* include/set.ch
* source/pp/pptable.c
+ Added _SET_IDLEREPEAT = 101
* source/rtl/set.c
+ Added suport for SET( _SET_IDLEREPEAT ) - Default is .T.
* source/rtl/idle.c
- Removed HB_IDLE_RESET()
* Changed handling of Idle Process to default to REPEAT.
* tests/onidle.prg
- Removed call to HB_IDLE_RESET()
+ tests/testidle.prg
+ New test of Idle Blocks in default (REPEAT) mode and optional NON REPEAT mode.
29 lines
521 B
Plaintext
29 lines
521 B
Plaintext
// #include "set.ch" - Preset in pptable.c
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL bIdle := {|| QOut( "Idle Block" ) }
|
|
|
|
CLS
|
|
|
|
? _SET_IDLEREPEAT
|
|
|
|
? "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( bIdle )
|
|
Inkey( 2 )
|
|
|
|
SET( _SET_IDLEREPEAT, .F. )
|
|
|
|
CLS
|
|
? "Idle Block should display ONCE! while waitning for key or 10 seconds elapsed!"
|
|
?
|
|
Inkey( 2 )
|
|
|
|
RETURN
|