tk8.6.12/library/tkfbox.tcl

157     trace add variable data(selectPath) write \
160 	    -textvariable ::tk::dialog::file::${dataName}(selectPath)
226     foreach trace [trace info variable data(selectPath)] {
227 	trace remove variable data(selectPath) {*}$trace
247     foreach trace [trace info variable data(selectPath)] {
248 	trace remove variable data(selectPath) {*}$trace
277     if {![info exists data(selectPath)]} {
279 	set data(selectPath) [pwd]
303 	    set data(selectPath) [pwd]
306 	    set data(selectPath) [pwd]
350     if {![info exists data(selectPath)]} {
351 	set data(selectPath) ""
355 	    -textvariable [format %s(selectPath) ::tk::dialog::file::$dataName]
358 	    [format %s(selectPath) ::tk::dialog::file::$dataName]
567 	cd $data(selectPath)
575 		$data(selectPath)]
608     foreach subdir [file split $data(selectPath)] {
614     set var [format %s(selectPath) ::tk::dialog::file::$dataName]
647     trace remove variable data(selectPath) write $cb
648     set data(selectPath) $path
649     trace add variable data(selectPath) write $cb
662 	    $data(ent) insert end $data(selectPath)
869     set list [ResolveFile $data(selectPath) $filename $data(-defaultextension)]
878 		set data(selectPath) $path
891 	    set data(selectPath) $path
948     if {$data(selectPath) ne "/"} {
949 	set data(selectPath) [file dirname $data(selectPath)]
979 	set file [JoinFile $data(selectPath) $filename]
1024 	    set fullfile [JoinFile $data(selectPath) $file]
1033 	set file [JoinFile $data(selectPath) $text]
1062     set file [JoinFile $data(selectPath) [lindex $filenames 0]]
1072 	    set data(selectPath) $file
1100 		lappend selectFilePath [JoinFile $data(selectPath) $f]
1103 	    set selectFilePath [JoinFile $data(selectPath) $data(selectFile)]
1107 	set Priv(selectPath) $data(selectPath)
1197 	GlobFiltered $data(selectPath) {f b c l p s}
1200     foreach d [GlobFiltered $data(selectPath) d] {lappend dirs2 $d/}