summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-tl-gui.tcl
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 /Master/tlpkg/installer/install-tl-gui.tcl
parenta6fd3ebb4fd662514711805865af6824b7339e1e (diff)
Fix for losing focus on w32
git-svn-id: svn://tug.org/texlive/trunk@54921 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-tl-gui.tcl')
-rwxr-xr-xMaster/tlpkg/installer/install-tl-gui.tcl2
1 files changed, 2 insertions, 0 deletions
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 {} {