diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2020-04-28 08:54:29 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2020-04-28 08:54:29 +0000 |
| commit | fe3bb9c03064dbb9fc142b74846446e2a928ffca (patch) | |
| tree | e4dc5b6ac2c1a1dc18c41cb661a658bd18642bf6 | |
| parent | a6fd3ebb4fd662514711805865af6824b7339e1e (diff) | |
Fix for losing focus on w32
git-svn-id: svn://tug.org/texlive/trunk@54921 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/texmf-dist/scripts/tlshell/tlshell.tcl | 1 | ||||
| -rwxr-xr-x | Master/tlpkg/installer/install-tl-gui.tcl | 2 |
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 {} { |