/*
 * $Id: testidle.prg 9020 2008-07-28 18:43:42Z vszakats $
 */

// #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
