Как задать Tcl поиск файла в директории с самим файлом tcl?

Question

[Олег Париев]

Добрый день!
Встретился с проблемой что tcl не может найти файлы в директории. Как настроить так, чтобы он искал файлы в одной библиотеке с самим tcl файлом?

Вот код:

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]
        }
}