diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/tkfbox.tcl | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/tkfbox.tcl')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/tkfbox.tcl | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/tkfbox.tcl b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/tkfbox.tcl index f73fdc5c84..0c3cc0c3f6 100644 --- a/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/tkfbox.tcl +++ b/systems/texlive/tlnet/tlpkg/tltcl/lib/tk8.6/tkfbox.tcl @@ -463,7 +463,7 @@ proc ::tk::dialog::file::Create {w class} { wm protocol $w WM_DELETE_WINDOW [list ::tk::dialog::file::CancelCmd $w] $data(upBtn) configure -command [list ::tk::dialog::file::UpDirCmd $w] $data(cancelBtn) configure -command [list ::tk::dialog::file::CancelCmd $w] - bind $w <KeyPress-Escape> [list $data(cancelBtn) invoke] + bind $w <Escape> [list $data(cancelBtn) invoke] bind $w <Alt-Key> [list tk::AltKeyInDialog $w %A] # Set up event handlers specific to File or Directory Dialogs @@ -581,9 +581,9 @@ proc ::tk::dialog::file::Update {w} { # so the user may still click and cause havoc ... # set entCursor [$data(ent) cget -cursor] - set dlgCursor [$w cget -cursor] + set dlgCursor [$w cget -cursor] $data(ent) configure -cursor watch - $w configure -cursor watch + $w configure -cursor watch update idletasks $data(icons) deleteall @@ -633,7 +633,7 @@ proc ::tk::dialog::file::Update {w} { # turn off the busy cursor. # $data(ent) configure -cursor $entCursor - $w configure -cursor $dlgCursor + $w configure -cursor $dlgCursor } # ::tk::dialog::file::SetPathSilently -- @@ -909,15 +909,15 @@ proc ::tk::dialog::file::VerifyFileName {w filename} { } } PATH { - tk_messageBox -icon warning -type ok -parent $w \ - -message [mc "Directory \"%1\$s\" does not exist." $path] + tk_messageBox -icon warning -type ok -parent $w -message \ + [mc "Directory \"%1\$s\" does not exist." $path] $data(ent) selection range 0 end $data(ent) icursor end } CHDIR { tk_messageBox -type ok -parent $w -icon warning -message \ - [mc "Cannot change to the directory\ - \"%1\$s\".\nPermission denied." $path] + [mc "Cannot change to the directory\ + \"%1\$s\".\nPermission denied." $path] $data(ent) selection range 0 end $data(ent) icursor end } @@ -1121,8 +1121,7 @@ proc ::tk::dialog::file::Done {w {selectFilePath ""}} { } then { upvar #0 $data(-typevariable) typeVariable set typeVariable [lindex $data(origfiletypes) \ - [lsearch -exact $data(-filetypes) $data(filterType)] 0] - + [lsearch -exact $data(-filetypes) $data(filterType)] 0] } } bind $data(okBtn) <Destroy> {} |