From 44c6395470d1f85859e844cdef73b8610ebf031b Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sat, 21 Dec 2019 09:59:29 +0000 Subject: Fix for syntax error in long_message git-svn-id: svn://tug.org/texlive/trunk@53201 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/tlshell/tlshell.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/scripts') 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 {.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 {.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 -- cgit v1.2.3