summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont12
-rwxr-xr-xperl-install/standalone/drakxtv8
2 files changed, 10 insertions, 10 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 986f8df7d..38a365261 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -17,7 +17,7 @@
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
#
# drakfont Future Overview
-# - Fonts import :
+# - Fonts import:
# pfb ( Adobe Type 1 binary )
# pfa ( Adobe Type 1 ASCII )
# ttf ( True-Type )
@@ -341,7 +341,7 @@ sub search_dir_font_uninstall {
if ( $i =~ /$j/ ) { push @font_list, "$i"; }
}
}
- print "Fonts to uninstal : " . $_ . "\n" foreach (@font_list);
+ print "Fonts to uninstal: " . $_ . "\n" foreach (@font_list);
}
sub search_dir_font_uninstall_gi {
@@ -350,7 +350,7 @@ sub search_dir_font_uninstall_gi {
}
sub print_list {
- print "Font(s) to Install :\n\n";
+ print "Font(s) to Install:\n\n";
print "$_\n" foreach (@font_list);
}
@@ -573,7 +573,7 @@ sub backend_mod {
print "\nInstall Specifics Fonts...........\n";
search_installed_fonts();
search_dir_font;
- print "Font to install : " . $_ . "\n" foreach (@font_list);
+ print "Font to install: " . $_ . "\n" foreach (@font_list);
put_font_dir();
print "\nThe End...........................\n";
}
@@ -820,7 +820,7 @@ sub help {
1,
gtktext_insert(
gtkset_editable( $text, 1 ), "drakfont Future Overview
- - Fonts import :
+ - Fonts import:
pfb ( Adobe Type 1 binary )
pfa ( Adobe Type 1 ASCII )
ttf ( True-Type )
@@ -906,7 +906,7 @@ sub appli_choice {
new Gtk::HBox( 0, 10 ),
new Gtk::HBox( 0, 10 ),
_(
-"Choose the applications that will support the fonts :"
+"Choose the applications that will support the fonts:"
),
new Gtk::HBox( 0, 10 ),
),
diff --git a/perl-install/standalone/drakxtv b/perl-install/standalone/drakxtv
index be29f8966..4d96f01ad 100755
--- a/perl-install/standalone/drakxtv
+++ b/perl-install/standalone/drakxtv
@@ -61,7 +61,7 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
my ($ftable_id, $norm);
# my %freqtables = map {$i=$_;$i =~ s/ (.*)/-\1/;_($_) => $i} (...)
-# this table must be checked on each xawtv release :
+# this table must be checked on each xawtv release:
my %freqtables =
("us-bcast" => _("USA (broadcast)"), "us-cable" => _("USA (cable)"), "us-cable-hrc" => _("USA (cable-hrc)"), "canada-cable" => _("Canada (cable)"),
"japan-bcast" => _("Japan (broadcast)"), "japan-cable" => _("Japan (cable)"), "china-bcast" => _("China (broadcast)"),
@@ -106,8 +106,8 @@ You can install it by typing \"urpmi xawtv\" as root, in a console.")));
if ($in->ask_from("TVdrake", _("Please,\ntype in your tv norm and country"),
[
- { label => _("TV norm :"), val => \$norm, list => ["NTSC", "NTSC-JP","PAL", "PAL-M", "PAL-N", "PAL-NC", "SECAM"], type => 'combo' },
- { label => _("Area :"), val => \$ftable_id, list => [keys %freqtables], format => sub { $freqtables{$_[0]} }, sort => 1},
+ { label => _("TV norm:"), val => \$norm, list => ["NTSC", "NTSC-JP","PAL", "PAL-M", "PAL-N", "PAL-NC", "SECAM"], type => 'combo' },
+ { label => _("Area:"), val => \$ftable_id, list => [keys %freqtables], format => sub { $freqtables{$_[0]} }, sort => 1},
]
))
{ my $wait = $in->wait_message(_('Please wait'),
@@ -161,7 +161,7 @@ http://www.linux-mandrake.com/en/hardware.php3")));
}
-# TODO :
+# TODO:
# - offer to sort channels after
# - use Video-Capture-V4l-0.221 ?
# - configure kwintv and zapping ? => they've already wizards :-(