From 7f64de2a3b0b1df20e9d2b1b62c18cebb353b17f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 28 Jul 2008 20:45:27 +0000 Subject: tlmgrgui: use a dialogbox instead of dialog since that uses a different font and messes with lines. And also allow colons in the translated texts! git-svn-id: svn://tug.org/texlive/trunk@9848 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'Master/texmf') diff --git a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl index c437e34c68f..959d7ad8cd5 100755 --- a/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl +++ b/Master/texmf/scripts/texlive/tlmgrgui/tlmgrgui-real.pl @@ -194,7 +194,7 @@ if (defined($LANG) && (-r "$Master/texmf/scripts/texlive/tlmgrgui/lang/$LANG")) chomp; next if m/^\s*#/; next if m/^\s*$/; - my ($a,$b) = split(/:/,$_); + my ($a,$b) = split(/:/,$_,2); $b =~ s/^\s*([^\s])/$1/; $b =~ s/\s*$//; next if ($b =~ m/^\s*$/); @@ -528,9 +528,12 @@ sub update_selected_packages { if (win32() && $updater_needed) { my $t = ___"runupdater"; $t =~ s/TEXROOT/$Master/; - $mw->Dialog(-title => "updater needed", - -text => $t, - -buttons => [ ___"ok" ])->Show; + my $sw = $mw->DialogBox(-title => "updater needed", -buttons => [ ___"ok" ]); + $sw->add("Label", -text => $t)->pack; + $sw->Show; + #$mw->Dialog(-title => "updater needed", + # -text => $t, + # -buttons => [ ___"ok" ])->Show; } reinit_local_tlpdb(); } -- cgit v1.2.3