diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:05:12 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:05:12 +0000 |
commit | 40aaa4ec3407e1ab404f4d1b0547205ac561269a (patch) | |
tree | ca0f1101e45347cb24e495326330ba2c231d8612 /Master/tlpkg/tltcl/lib/tk8.6/xmfbox.tcl | |
parent | 594dd57e44eba986f00b9f7f0c3f402512f75383 (diff) |
Tcl/Tk 8.6.13
git-svn-id: svn://tug.org/texlive/trunk@69897 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tltcl/lib/tk8.6/xmfbox.tcl')
-rw-r--r-- | Master/tlpkg/tltcl/lib/tk8.6/xmfbox.tcl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Master/tlpkg/tltcl/lib/tk8.6/xmfbox.tcl b/Master/tlpkg/tltcl/lib/tk8.6/xmfbox.tcl index 14d2be5af65..c26164a3dd1 100644 --- a/Master/tlpkg/tltcl/lib/tk8.6/xmfbox.tcl +++ b/Master/tlpkg/tltcl/lib/tk8.6/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 @@ -549,7 +549,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)] @@ -597,15 +597,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] @@ -907,9 +907,9 @@ proc ::tk::MotifFDialog_CancelCmd {w} { } proc ::tk::ListBoxKeyAccel_Set {w} { - bind Listbox <Any-KeyPress> "" + bind Listbox <Any-Key> "" bind $w <Destroy> [list tk::ListBoxKeyAccel_Unset $w] - bind $w <Any-KeyPress> [list tk::ListBoxKeyAccel_Key $w %A] + bind $w <Any-Key> [list tk::ListBoxKeyAccel_Key $w %A] } proc ::tk::ListBoxKeyAccel_Unset {w} { |