Click above to get retro games delivered to your door ever month!

// FiveWin - Idle intervals management control - Background processing!

// Warning: Only perform VERY small and fast actions during Idle periods
// or you will freeze the whole Windows system

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oBar

   DEFINE WINDOW oWnd TITLE "Background processing in FiveWin!"

   DEFINE BUTTONBAR oBar 3D SIZE 33, 33 OF oWnd

   // You may also use it as a command
   // SET IDLEACTION TO Tone( 900, 0.1 )

   DEFINE BUTTON OF oBar ;
      ACTION SetIdleAction( { || Tone( 1000, 0.01 ) } ) ;
      MESSAGE "Enable an background process"

   DEFINE BUTTON OF oBar ;
      ACTION SetIdleAction() ;
      MESSAGE "Disable background process"

   SET MESSAGE OF oWnd TO "Idle periods managent sample" CENTERED

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//