Встретился с проблемой что tcl не может найти файлы в директории. Как настроить так, чтобы он искал файлы в одной папке с самим tcl файлом?(надо найти все файлы png) Вот код, который был изначально указан:
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]
}
}
LoadImages [file join [file dirname [info script]] breeze]
Проблема в том, что задан поиск png файлов в папке breeze, которая находится вместе с tcl файлом. Но он почему-то не видит файлы.