diff options
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 6 |
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! |