TCL: Recursively search subdirectories to source all .tcl files

Question

I have a main TCL proc that sources tons of other tcl procs in other folders and subsequent subdirectories. For example, in the main proc it has:

source $basepa         


        

Answer 1

The answer by Joseph Bui works well except that it skips files in the initial folder.

Change:

set directories [list]

To:

set directories [list $directory]

to fix