diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-02-26 12:41:39 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-02-26 12:41:39 +0000 |
| commit | 9ff654febd23b8d888b3d2caccb16e0fd5db73ac (patch) | |
| tree | 50921e5c128954ac776b863e43d2765f624f708b /perl-install | |
| parent | cd02ac7981f2fd565699b956089cb306aa8fdfeb (diff) | |
| download | drakx-9ff654febd23b8d888b3d2caccb16e0fd5db73ac.tar drakx-9ff654febd23b8d888b3d2caccb16e0fd5db73ac.tar.gz drakx-9ff654febd23b8d888b3d2caccb16e0fd5db73ac.tar.bz2 drakx-9ff654febd23b8d888b3d2caccb16e0fd5db73ac.tar.xz drakx-9ff654febd23b8d888b3d2caccb16e0fd5db73ac.zip | |
fix translation of test program.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfigurator.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index 1c2a3f770..6a263caa5 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -698,6 +698,8 @@ sub testFinalConfig { } $::noShadow = 1; + my $message = _("Leaving in %d seconds", 99); #- fake translation of test program. + my $question = _("Is this the correct setting?"); local *F; open F, "|perl 2>/dev/null" or die ''; print F "use lib qw(", join(' ', @INC), ");\n"; @@ -714,7 +716,9 @@ sub testFinalConfig { my $text = Gtk::Label->new; my $time = 8; Gtk->timeout_add(1000, sub { - $text->set(_("Leaving in %d seconds", $time)); + my $message = "} . $message . q{"; + $message = s/99/$time/; + $text->set($message); $time-- or Gtk->main_quit; 1; }); @@ -725,7 +729,7 @@ sub testFinalConfig { system(($::testing ? "} . $prefix . q{" : "chroot } . $prefix . q{/ ") . "$qiv -y $background"); my $in = interactive_gtk->new; - $in->exit($in->ask_yesorno('', [ _("Is this the correct setting?"), $text ], 0) ? 0 : 222); + $in->exit($in->ask_yesorno('', [ "} . $question . q{"), $text ], 0) ? 0 : 222); }; my $rc = close F; my $err = $?; |