tlmgrgui: warn on win32 using Win32::MsgBox when Tk cannot be loaded

git-svn-id: svn://tug.org/texlive/trunk@8568 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 4 insertions, 2 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
index 684ef3e87bc..b9b56c4e430 100755
--- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
+++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl
@@ -36,8 +36,10 @@ if ($@) {
   }
   if ($tkmissing) {
     if ($^O=~/^MSWin(32|64)$/i) {
-      printf STDERR "Cannot load Tk, that should not happen as we ship it!
-How did you start tlmgrgui??\n(Error message: $@)\n";
+      # that should not happen, we are shipping Tk!!
+      require Win32;
+      my $msg = "Cannot load Tk, that should not happen as we ship it!\nHow did you start tlmgrgui??\n(Error message: $@)\n";
+      Win32::MsgBox($msg, 1|Win32::MB_ICONSTOP(), "Warning");
     } else {
       printf STDERR "
 Cannot load Tk, thus the GUI cannot be started!