texlive[54921] Master: Fix for losing focus on w32

[commits+siepo at tug.org]

Revision: 54921
          http://tug.org/svn/texlive?view=revision&revision=54921
Author:   siepo
Date:     2020-04-28 10:54:29 +0200 (Tue, 28 Apr 2020)
Log Message:
-----------
Fix for losing focus on w32

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
    trunk/Master/tlpkg/installer/install-tl-gui.tcl

Modified: trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl
===================================================================
--- trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2020-04-28 07:10:49 UTC (rev 54920)
+++ trunk/Master/texmf-dist/scripts/tlshell/tlshell.tcl	2020-04-28 08:54:29 UTC (rev 54921)
@@ -2432,6 +2432,7 @@
   show_repos
   display_packages_info
   display_updated_globals
+  if {$::tcl_platform(platform) eq "windows"} {wm deiconify .}
 }
 
 ##### initialize ######################################################

Modified: trunk/Master/tlpkg/installer/install-tl-gui.tcl
===================================================================
--- trunk/Master/tlpkg/installer/install-tl-gui.tcl	2020-04-28 07:10:49 UTC (rev 54920)
+++ trunk/Master/tlpkg/installer/install-tl-gui.tcl	2020-04-28 08:54:29 UTC (rev 54921)
@@ -1792,6 +1792,7 @@
   update
   wm state . normal
   raise .
+  if {$::tcl_platform(platform) eq "windows"} {wm deiconify .}
   if {[is_nonempty $::vars(TEXDIR)] && ! $::td_warned} {
     td_warn $::vars(TEXDIR)
   }
@@ -1971,6 +1972,7 @@
   # switch to non-blocking i/o
   chan configure $::inst -buffering line -blocking 0
   chan event $::inst readable read_line_cb
+  if {$::tcl_platform(platform) eq "windows"} {wm deiconify .}
 }; # run_installer
 
 proc whataboutclose {} {