diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-12-21 09:59:29 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2019-12-21 09:59:29 +0000 |
| commit | 44c6395470d1f85859e844cdef73b8610ebf031b (patch) | |
| tree | ad0265777382ac03ad4aef4871953e90e64e1598 /Master | |
| parent | ed07aa7c362374f95a77edf2ce7651d4345f2a6c (diff) | |
Fix for syntax error in long_message
git-svn-id: svn://tug.org/texlive/trunk@53201 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rwxr-xr-x | Master/texmf-dist/scripts/tlshell/tlshell.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl index 66752b67cd9..275ebbe903b 100755 --- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl +++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl @@ -167,10 +167,10 @@ proc long_message {str type {p "."}} { } if [winfo exists .tlmg.cancel] { bind .tlmg <Escape> {.tlmg.cancel invoke} - wm protocol WM_DELETE_WINDOW {cancel_or_destroy .tlmg.cancel .tlmg} + wm protocol .tlmg WM_DELETE_WINDOW {cancel_or_destroy .tlmg.cancel .tlmg} } elseif {$type eq "ok"} { bind .tlmg <Escape> {.tlmg.ok invoke} - wm protocol WM_DELETE_WINDOW {cancel_or_destroy .tlmg.ok .tlmg} + wm protocol .tlmg WM_DELETE_WINDOW {cancel_or_destroy .tlmg.ok .tlmg} } ppack [ttk::frame .tlmg.tx] -in .tlmg.bg -side top -fill both -expand 1 |