summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-01-03 18:19:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-01-03 18:19:43 +0000
commit27c399a88f3f75ecd78b4464a86a94a835885784 (patch)
treef39cc60a1a12d6eb0598d629324e9f73853caf4f /perl-install
parent6b7e1e5ba3348b4f6c2bcae6fe659d742991b63b (diff)
downloaddrakx-backup-do-not-use-27c399a88f3f75ecd78b4464a86a94a835885784.tar
drakx-backup-do-not-use-27c399a88f3f75ecd78b4464a86a94a835885784.tar.gz
drakx-backup-do-not-use-27c399a88f3f75ecd78b4464a86a94a835885784.tar.bz2
drakx-backup-do-not-use-27c399a88f3f75ecd78b4464a86a94a835885784.tar.xz
drakx-backup-do-not-use-27c399a88f3f75ecd78b4464a86a94a835885784.zip
fix english messages
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm2
-rw-r--r--perl-install/install_steps_gtk.pm2
-rw-r--r--perl-install/install_steps_interactive.pm4
3 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 389c57511..708cf2507 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -790,7 +790,7 @@ Do you want to use this feature?"),
sub selectLanguage {
my ($in, $lang, $langs) = @_;
$in->ask_from_(
- { messages => _("Please, choose a language to use."),
+ { messages => _("Please choose a language to use."),
title => 'language choice',
advanced_messages => _("You can choose other languages that will be available after install"),
callbacks => {
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 63b35c469..5350faf2f 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -159,7 +159,7 @@ sub selectInstallClass1 {
my $w = my_gtk->new(_("Install Class"));
my $focused;
gtkadd($w->{window},
- gtkpack($w->create_box_with_title(_("Please, choose one of the following classes of installation:")),
+ gtkpack($w->create_box_with_title(_("Please choose one of the following classes of installation:")),
(my @radios = gtkradio($def, @$l)),
gtkadd(create_hbox(),
map { my $v = $_;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2e4503851..2ad4cc798 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -196,7 +196,7 @@ sub selectKeyboard {
my $ext_keyboard = $o->{keyboard};
$o->ask_from_(
{ title => _("Keyboard"),
- messages => _("Please, choose your keyboard layout."),
+ messages => _("Please choose your keyboard layout."),
advanced_messages => _("Here is the full list of keyboards available"),
advanced_label => _("More"),
callbacks => { changed => sub { $other = $_[0]==1 } },
@@ -251,7 +251,7 @@ sub selectMouse {
my $prev = $o->{mouse}{type} . '|' . $o->{mouse}{name};
$o->{mouse} = mouse::fullname2mouse(
- $o->ask_from_treelist_('', _("Please, choose the type of your mouse."),
+ $o->ask_from_treelist_('', _("Please choose the type of your mouse."),
'|', [ mouse::fullnames ], $prev) || return) if $force;
if ($force && $o->{mouse}{type} eq 'serial') {