summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/tlshell
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2019-12-21 09:59:29 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2019-12-21 09:59:29 +0000
commit44c6395470d1f85859e844cdef73b8610ebf031b (patch)
treead0265777382ac03ad4aef4871953e90e64e1598 /Master/texmf-dist/scripts/tlshell
parented07aa7c362374f95a77edf2ce7651d4345f2a6c (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/texmf-dist/scripts/tlshell')
-rwxr-xr-xMaster/texmf-dist/scripts/tlshell/tlshell.tcl4
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