From db2497ab75d69452d26fa04d83f46c097974cb19 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 26 Nov 2003 10:10:08 +0000 Subject: - translate error dialog titles - make error messages use upcase as first letter --- drakwizard.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/drakwizard.pl b/drakwizard.pl index 95ea2aab..9c5cc6a2 100755 --- a/drakwizard.pl +++ b/drakwizard.pl @@ -66,7 +66,7 @@ require "MDK/Wizard/$wiz{$ARGV[0]}[0].pm"; my ($wiz, $err) = "MDK::Wizard::$wiz{$ARGV[0]}[0]"->new($wiz{$ARGV[0]}[2]); if ($err) { $::Wizard_finished = 1; - $in->ask_okcancel("error", N($err)); + $in->ask_okcancel(N("Error"), N($err)); $in->exit; } wizard($wiz->{o}); @@ -85,7 +85,7 @@ sub wizard { if (defined $o->{init}) { my ($res, $msg) = &{$o->{init}}; if (!$res) { - $in->ask_okcancel("error", $msg); + $in->ask_okcancel(N("Error"), $msg); exit if ! $::testing } } @@ -134,11 +134,11 @@ sub check_rpm { my ($rpms) = @_; foreach my $rpm (@$rpms) { if (!$in->do_pkgs->is_installed($rpm)) { - if ($in->ask_okcancel("error", N("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", c::from_utf8($rpm)))) { + if ($in->ask_okcancel(N("Error"), N("%s is not installed\nClick \"Next\" to install or \"Cancel\" to quit", c::from_utf8($rpm)))) { $::testing and next; if (!$in->do_pkgs->install($rpm)) { $::Wizard_finished = 1; - $in->ask_okcancel("error", N("installation failed")); + $in->ask_okcancel(N("Error"), N("Installation failed")); $in->exit; } } -- cgit v1.2.1