summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-04 20:41:25 +0000
committerNorbert Preining <preining@logic.at>2008-06-04 20:41:25 +0000
commitf1b1884e85666f7b38cd3f6a768141a3512f3338 (patch)
tree6b28f0ba1e386673d790894d4d7996f45aa6c2e7 /Master
parente848ac67561910bd4b230fb81cee46962427eeca (diff)
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
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl6
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!