/////////////////////////////////////////////////////////////////////
// SCREENSAVER
/////////////////////////////////////////////////////////////////////

#xcommand DEFINE SCREENSAVER ;
      WINDOW <Scr> ;
      MAIN ;
      [ <noshow: NOSHOW> ] ;
      [ ON INIT <InitProcedure> ] ;
      [ ON RELEASE <ReleaseProcedure> ] ;
      [ ON PAINT <PaintProcedure> [ INTERVAL <nInterval> ] ] ;
      [ BACKCOLOR <backcolor> ] ;
   => ;
      DECLARE WINDOW <Scr> ;;
      _BeginScrSaver( <(Scr)>, <.noshow.>, ;
            <{InitProcedure}>, <{ReleaseProcedure}>, <{PaintProcedure}>, ;
            <nInterval>, [<backcolor>] )

#xcommand INSTALL SCREENSAVER ;
      [ TO FILE <cFileName> ] ;
      [ <lShow: SHOW> ] ;
   => ;
      _ScrSaverInstall := .t. ;;
      [ _ScrSaverFileName := <(cFileName)> ; ] ;
      PUBLIC _ScrSaverShow := <.lShow.>

#xcommand CONFIGURE SCREENSAVER <ConfigProcedure> ;
   => ;
      _ScrSaverConfig := <{ConfigProcedure}>

#xcommand ACTIVATE SCREENSAVER ;
      WINDOW <name, ...> ;
      PARAMETERS <cParameters> ;
   => ;
      _ActivateScrSaver( \{<(name)>\}, <cParameters> )