summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2020-04-28 08:54:29 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2020-04-28 08:54:29 +0000
commitfe3bb9c03064dbb9fc142b74846446e2a928ffca (patch)
treee4dc5b6ac2c1a1dc18c41cb661a658bd18642bf6
parenta6fd3ebb4fd662514711805865af6824b7339e1e (diff)
Fix for losing focus on w32
git-svn-id: svn://tug.org/texlive/trunk@54921 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/tlshell/tlshell.tcl1
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl2
2 files changed, 3 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/tlshell/tlshell.tcl b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
index 3b2b53b1c9e..363f0ff6e60 100755
--- a/Master/texmf-dist/scripts/tlshell/tlshell.tcl
+++ b/Master/texmf-dist/scripts/tlshell/tlshell.tcl
@@ -2432,6 +2432,7 @@ proc rebuild_interface {} {
show_repos
display_packages_info
display_updated_globals
+ if {$::tcl_platform(platform) eq "windows"} {wm deiconify .}
}
##### initialize ######################################################
diff --git a/Master/tlpkg/installer/install-tl-gui.tcl b/Master/tlpkg/installer/install-tl-gui.tcl
index 0e94d6ab1c5..3f5a567c2bf 100755
--- a/Master/tlpkg/installer/install-tl-gui.tcl
+++ b/Master/tlpkg/installer/install-tl-gui.tcl
@@ -1792,6 +1792,7 @@ proc run_menu {} {
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 @@ proc run_installer {} {
# 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 {} {