Wrong sample in parallelfox.chm. parallel::StopWorkers

[ToniKoehler]

Example:

On Shutdown Do MyShutdown

Procedure MyShutdown
Local Parallel as Parallel
Parallel = NewObject("Parallel", "ParallelFox.vcx")

Parallel.StopWorkers()

* Perform more shutdown tasks
...

* Wait until worker shutdown is complete 
Wait "Shutting Down Workers..." Window Nowait
Parallel.Wait()

* Exit app
Clear Events

EndProc

Solution

On Shutdown Do MyShutdown

Procedure MyShutdown
Local Parallel as Parallel
Parallel = NewObject("Parallel", "ParallelFox.vcx")

Parallel.Wait()
Parallel.StopWorkers()

* Perform more shutdown tasks
...

* Wait until worker shutdown is complete 
Wait "Shutting Down Workers..." Window Nowait
*  Parallel.Wait()  && Parallel.StopWorkers will set _SCREEN.ParPoolMgr = NULL. So error occurs.
* Exit app
Clear Events

EndProc