From 27c399a88f3f75ecd78b4464a86a94a835885784 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 3 Jan 2002 18:19:43 +0000
Subject: fix english messages

---
 perl-install/any.pm                       | 2 +-
 perl-install/install_steps_gtk.pm         | 2 +-
 perl-install/install_steps_interactive.pm | 4 ++--
 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') {
-- 
cgit v1.2.1