From 40aaa4ec3407e1ab404f4d1b0547205ac561269a Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 15 Feb 2024 21:05:12 +0000 Subject: Tcl/Tk 8.6.13 git-svn-id: svn://tug.org/texlive/trunk@69897 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tltcl/lib/tk8.6/xmfbox.tcl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'Master/tlpkg/tltcl/lib/tk8.6/xmfbox.tcl') 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 "" + bind Listbox "" bind $w [list tk::ListBoxKeyAccel_Unset $w] - bind $w [list tk::ListBoxKeyAccel_Key $w %A] + bind $w [list tk::ListBoxKeyAccel_Key $w %A] } proc ::tk::ListBoxKeyAccel_Unset {w} { -- cgit v1.2.3