How to ask Tcl to search for a file in the same directory by the tcl file?

Good day!
Met with the problem that tcl cannot find the files in the directory. How to configure so that it was looking for files in the same library by the tcl file?

Here is the code:
proc LoadImages {imgdir} {
 variable I
 foreach file [glob -directory *.png] {
 set img [file tail [file rootname $file]]
 set I($img) [image create photo -file $file -format png]
}
}
April 4th 20 at 13:23
0 answer

Find more questions by tags Tkinter