AdditionCompleted (Example)

Create a window. Enter the WLanguage code associated with the "Initializing" event in this window.
Create a Button control ("BTN_Add"). Write the WLanguage code corresponding to the "Click" event in this control.
Create a Button control ("BTN_Stop"). Write the WLanguage code corresponding to the "Click" event in this control.
Create and type the thread procedure.

To run the test of this example:

Display the window: the thread starts, nothing happens. This operating mode is normal because the thread waits if the stack is empty.
Click on BTN_Add: only the traces of the files are displayed. The end trace is not displayed.
Click again on BTN_Add: only the traces of the files are displayed. The end trace is still not displayed.
Click on BTN_Stop: the end trace is displayed (the thread stops).
Click on BTN_Add: nothing happens. This operating mode is normal because the thread is stopped.

// --"Initializing" event of the window
// In the initialization code of the window, start the thread only
ThreadExecute("test", threadNormal, FileProcesses)

// -- "Click" event on the Button control BTN_Add
// Addition code (used to restart the test)
sFileList is string = fListFile("c:\temp\*.*", frNotRecursive)
stAFile is STFile
gFilesnames.AdditionCompleted = False
FOR EACH STRING sAFile OF sFileList SEPARATED BY CR
stAFile.sPath = sAFile
stAFile.sFileName = fExtractPath(sAFile, fFileName + fExtension)
Push(gFilesnames, stAFile)
END

// -- "Click" event on the Button control BTN_Stop
// Stop code (to control the stop in the example)
gFilesnames.AdditionCompleted = True

// Procedure of the thread (with a trace at the end)
PROCEDURE FileProcesses()
stTemp is STFile
tt is boolean

tt = Pop(gFilesnames, stTemp, WaitIfEmpty)
WHILE tt
Trace(stTemp.sFileName)
tt = Pop(gFilesnames, stTemp, WaitIfEmpty)
END
Trace("end")