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

1 files changed, 7 insertions, 4 deletions

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();
   }