From f1b1884e85666f7b38cd3f6a768141a3512f3338 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Wed, 4 Jun 2008 20:41:25 +0000 Subject: 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 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Master') 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! -- cgit v1.2.3