texlive[53201] Master/texmf-dist/scripts/tlshell/tlshell.tcl: Fix for

[commits+siepo at tug.org]

Revision: 53201
          http://tug.org/svn/texlive?view=revision&revision=53201
Author:   siepo
Date:     2019-12-21 10:59:29 +0100 (Sat, 21 Dec 2019)
Log Message:
-----------
Fix for syntax error in long_message

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2019-12-21 00:54:20 UTC (rev 53200)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2019-12-21 09:59:29 UTC (rev 53201)
@@ -167,10 +167,10 @@
   }
   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