diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-17 15:54:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-17 15:54:30 (GMT) |
| commit | 249b7853b5d451f99eaebabfc0288176269bf6ba (patch) | |
| tree | 8f8a87c5748b2877b838a44d70ea70857162cec0 /library/xmfbox.tcl | |
| parent | 4e04d8c4e5426b6166e7100e72ab3e01b5e71af1 (diff) | |
| parent | 95e98deaabd9c51b05dc59b6129973ed6bbbf983 (diff) | |
| download | tk-249b7853b5d451f99eaebabfc0288176269bf6ba.zip tk-249b7853b5d451f99eaebabfc0288176269bf6ba.tar.gz tk-249b7853b5d451f99eaebabfc0288176269bf6ba.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'library/xmfbox.tcl')
| -rw-r--r-- | library/xmfbox.tcl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/library/xmfbox.tcl b/library/xmfbox.tcl index 71f3f1a..6522cf3 100644 --- a/library/xmfbox.tcl +++ b/library/xmfbox.tcl @@ -83,9 +83,9 @@ proc ::tk::MotifFDialog_Create {dataName type argList} { MotifFDialog_Config $dataName $type $argList if {$data(-parent) eq "."} { - set w .$dataName + set w .$dataName } else { - set w $data(-parent).$dataName + set w $data(-parent).$dataName } # (re)create the dialog box if necessary @@ -548,7 +548,7 @@ proc ::tk::MotifFDialog_Update {w} { $data(fEnt) delete 0 end $data(fEnt) insert 0 \ - [::tk::dialog::file::JoinFile $data(selectPath) $data(filter)] + [::tk::dialog::file::JoinFile $data(selectPath) $data(filter)] $data(sEnt) delete 0 end $data(sEnt) insert 0 [::tk::dialog::file::JoinFile $data(selectPath) \ $data(selectFile)] @@ -596,15 +596,15 @@ proc ::tk::MotifFDialog_LoadFiles {w} { if {[file isdir ./$f]} { lappend dlist $f } else { - foreach pat $data(filter) { - if {[string match $pat $f]} { + foreach pat $data(filter) { + if {[string match $pat $f]} { if {[string match .* $f]} { incr top } lappend flist $f - break + break } - } + } } } eval [list $data(dList) insert end] [lsort -dictionary $dlist] |