English proofreading

7 files changed, 27 insertions, 27 deletions

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 54353f265..80d47e4c1 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -1351,7 +1351,7 @@ sub build_backup_files {
     if ($send_mail) { 
 		if (send_mail($results)) { 
 	    	$interactive and send_mail_pb();
-	    	$interactive or print N(" Error during mail sending. \n");
+	    	$interactive or print N(" Error while sending mail. \n");
 		} 
     }
 	
@@ -4675,7 +4675,7 @@ sub adv_help {
 	This option allows you select all users that you want 
 	to backup.
 	To preserve disk space, it is recommended that you 
-	do not include web browser's cache.
+	do not include the web browser's cache.
 
  - Backup Other files: 
 
@@ -4688,7 +4688,7 @@ sub adv_help {
 	The incremental backup is the most powerful 
 	option for backup. This option allows you 
 	to backup all your data the first time, and 
-	only the changed afterward.
+	only the changed data afterward.
 	Then you will be able, during the restore
 	step, to restore your data from a specified
 	date.
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 504bf7add..b79d8ee57 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -537,7 +537,7 @@ sub configure_net {
     my (undef, $_prefix, $netcnx, $netc, $_intf) = @_;
     if (!$netcnx->{type}) {
 	my $dialog = new_dialog();
-	$dialog->vbox->pack_start(new Gtk2::Label(N("You don't have any internet connection.
+	$dialog->vbox->pack_start(new Gtk2::Label(N("You don't have an Internet connection.
 Create one first by clicking on 'Configure'")),1,1,0);
 	my $bbox_dialog = new Gtk2::HButtonBox;
 	$dialog->action_area->add($bbox_dialog);
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index 0ac4c4160..082edf842 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -346,7 +346,7 @@ sub build_it {
   while (<STATUS>) {
       $output->insert($fixed_font, undef, undef, $_);
   }
-  close STATUS or create_dialog(N("Unable to close properly mkbootdisk: \n %s \n %s", $!, $?), 0);
+  close STATUS or create_dialog(N("Unable to properly close mkbootdisk: \n %s \n %s", $!, $?), 0);
   
   return (0);
 }
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 807d44831..e34d758cb 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -47,13 +47,13 @@
 #         Commands buttons:
 #           - import from windows partition.
 #                 import from all fat32 partitions and look for winnt/windows/font
-#                 and import all (delete doublon) but don't import if already exist.
+#                 and import all (delete doubles) but don't import if they already exist.
 #           - import from directory
-#                 look for if it exist before for each font and not delete the original.
+#                 look to see if each font exists and do not delete the original.
 #                 (replace all, no, none)
 #                 expert options:
-#                         ask the directory, and look for if it exist before
-#                         if it exist ask: (replace all, no, none)
+#                         specify the directory, and look to see if it exists before
+#                         if it exists ask: (replace all, no, none)
 #           - uninstall with list per font type
 #         Expert additional switch
 #           - option support:   ghostscript, Staroffice, etc...
@@ -326,7 +326,7 @@ sub search_dir_font_uninstall {
 
 sub search_dir_font_uninstall_gi {
     @font_list = @uninstall;
-    $interactive and progress($pbar, 1, N("Search fonts in installed list"));
+    $interactive and progress($pbar, 1, N("Search for fonts in installed list"));
 }
 
 sub print_list {
@@ -450,7 +450,7 @@ sub put_font_dir {
 
         $interactive and progress($pbar2, 1, N("done"));
         $interactive
-          and progress($pbar3, 0.25, N("Suppress temporary Files"));
+          and progress($pbar3, 0.25, N("Suppress Temporary Files"));
         rm_rf("$drakfont_dir/tmp/");
         print "\n\nretarting xfs......\n";
         $interactive and progress($pbar3, 0.5, N("Restart XFS"));
@@ -530,7 +530,7 @@ sub remove_fonts {
 }
 
 sub license_msg {
-    print N("Before installing any fonts, be sure that you have the right to use and install them on your system.\n\n-You can install the fonts using the normal way. In rare cases, bogus fonts may hang up your X Server.") . "\n";
+    print N("Before installing any fonts, be sure that you have the right to use and install them on your system.\n\n-You can install the fonts the normal way. In rare cases, bogus fonts may hang up your X Server.") . "\n";
 }
 
      $list_all_font_path
@@ -614,7 +614,7 @@ sub interactive_mode {
     $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
     unless ($::isEmbedded) {
         $window1->{rwindow}->set_position('center');
-        $window1->{rwindow}->set_title(N("Fonts Importation"));
+        $window1->{rwindow}->set_title(N("Import Fonts"));
     }
     $window1->{rwindow}->set_border_width(5);
 
@@ -817,13 +817,13 @@ Visual Interface:
         Commands buttons:
           - import from windows partition.
                 import from all fat32 partitions and look for winnt/windows/font
-                and import all (delete doublon) but don't import if already exist.
+                and import all (delete doubles) but don't import if they already exist.
           - import from directory
-                look for if it exist before for each font and not delete the original.
+                look to see if each font exists and do not delete the original.
                 (replace all, no, none)
                 expert options:
-                        ask the directory, and look for if it exist before
-                        if it exist ask: (replace all, no, none)
+                        specify the directory, and look to see if it exists before
+                        if it exists ask: (replace all, no, none)
           - uninstall with list per font type
         Expert additional switch
           - option support:   ghostscript, Staroffice, etc...
@@ -895,7 +895,7 @@ sub appli_choice {
                     1,
                     gtktext_insert(
                         gtkset_editable($text, 0),
-                        [ [ N("Before installing any fonts, be sure that you have the right to use and install them on your system.\n\n-You can install the fonts using the normal way. In rare cases, bogus fonts may hang up your X Server.") ] ]
+                        [ [ N("Before installing any fonts, be sure that you have the right to use and install them on your system.\n\n-You can install the fonts the normal way. In rare cases, bogus fonts may hang up your X Server.") ] ]
                     ),
                     0,
                     new Gtk2::VBox(0, 10),
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index a8236197d..cde6cfe2b 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -123,7 +123,7 @@ if ($shorewall && $shorewall->{masquerade}) {
 
     if (!$shorewall->{disabled}) {
 	my $r = $in->ask_from_list_(N("Internet Connection Sharing currently enabled"),
-N("The setup of Internet connection sharing has already been done.
+N("The setup of Internet Connection Sharing has already been done.
 It's currently enabled.
 
 What would you like to do?"),
@@ -139,7 +139,7 @@ What would you like to do?"),
 	    sys("/etc/init.d/shorewall restart >/dev/null");
 	    log::l("[drakgw] Disabled");
 	    $::Wizard_finished = 1;
-	    $in->ask_okcancel('', N("Internet connection sharing is now disabled."));
+	    $in->ask_okcancel('', N("Internet Connection Sharing is now disabled."));
 	    quit_global($in, 0);
 	}
 	if ($r eq "dismiss") {
@@ -163,7 +163,7 @@ What would you like to do?"),
 	    }
             log::l("[drakgw] Enabled");
 	    $::Wizard_finished = 1;
-	    $in->ask_okcancel('', N("Internet connection sharing is now enabled."));
+	    $in->ask_okcancel('', N("Internet Connection Sharing is now enabled."));
 	    quit_global($in, 0);
 	}
 	if ($r eq "dismiss") {
@@ -284,7 +284,7 @@ Driver: %s", $device, $conf->{NETWORK}, $conf->{IPADDR}, $conf->{BOOTPROTO}, $al
 
 The default DNS entry is the Caching Nameserver configured on the firewall. You can replace that with your ISP DNS IP, for example.
 		      
-Else, I can reconfigure your interface and (re)configure a DHCP server for you.
+Otherwise, I can reconfigure your interface and (re)configure a DHCP server for you.
 
 ", $device),
       [ { label => N("Local Network adress"), val => \$lan_address, type => 'entry' },
@@ -528,7 +528,7 @@ sub pur_gtk_mode {
     $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
     unless ($::isEmbedded) {
         $window1->{rwindow}->set_position('center');
-        $window1->{rwindow}->set_title(N("Internet connection sharing configuration"));
+        $window1->{rwindow}->set_title(N("Internet Connection Sharing configuration"));
     }
     $window1->{rwindow}->border_width(10);
     my $vbox1 = new Gtk2::VBox(0,0);
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 8d33efd33..83cc4630d 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -67,7 +67,7 @@ my $F					= new Gtk2::Frame;
 $combo_perm->set_popdown_strings(sort(keys %perm));
 
 $tips->set_tip($B_add, N("Add a new rule at the end"));
-$tips->set_tip($B_edit, N("Edit curent rule"));
+$tips->set_tip($B_edit, N("Edit current rule"));
 $tips->set_tip($B_up, N("Up selected rule one level"));
 $tips->set_tip($B_down, N("Down selected rule one level"));
 $tips->set_tip($B_del, N("Delete selected rule"));
@@ -205,7 +205,7 @@ sub save_perm {
 	close F;
 	$modified = 0;
 }
-#- on list selection we get all data concerning the curent selection
+#- on list selection we get all data concerning the current selection
 sub row_setting_data {
 	my (undef, $row, $column, undef ) = @_;
 	%CURENT = ('clicked' => {'row' => $row,
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 18d31b750..c1d7cd46c 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -87,8 +87,8 @@ my %first = ('frame' => new Gtk2::Frame(N("first step creation")),
 my %boot_conf_frame = ('frame' => new Gtk2::Frame(N("Configure bootsplash picture")),
                        'widget' => {
                            'label' => {
-                               'tx' => N("x coordinate of text box\nin number of character"),
-                               'ty' => N("y coordinate of text box\nin number of character"),
+                               'tx' => N("x coordinate of text box\nin number of characters"),
+                               'ty' => N("y coordinate of text box\nin number of characters"),
                                'tw' => N("text width"),
                                'th' => N("text box height"),
                                'px' => N("the progress bar x coordinate\nof its upper left corner"),