diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakfont | 12 | ||||
| -rwxr-xr-x | perl-install/standalone/drakxtv | 8 |
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 :-( |