summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig/monitor.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-06 13:20:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-06 13:20:21 +0000
commit9091151d546e5d749b47e2efce3ff651784fcc8c (patch)
tree2be2bec5e60f21ffe431eeef74095896ae5efe7f /perl-install/Xconfig/monitor.pm
parent68a1a2a6f2b9fdb1fd0c833cd9b3d8dcb9d8fd5c (diff)
downloaddrakx-9091151d546e5d749b47e2efce3ff651784fcc8c.tar
drakx-9091151d546e5d749b47e2efce3ff651784fcc8c.tar.gz
drakx-9091151d546e5d749b47e2efce3ff651784fcc8c.tar.bz2
drakx-9091151d546e5d749b47e2efce3ff651784fcc8c.tar.xz
drakx-9091151d546e5d749b47e2efce3ff651784fcc8c.zip
replace "_" with "N" and "__" with "N_"
rationale: - currently, we use _("xxx") as a shorthand for gettext("xxx"). It also used to call xgettext with --keyword=_ - alas, function &_ is global and not by package (notice esp. that _ is not exported in common.pm) - this lead to big ugly pb with packages defining their own &_, overriding common.pm's &_ - a fix is to set @::textdomains to add a new domain (the default being "libDrakX") but relying on the global "_" is still dangerous!
Diffstat (limited to 'perl-install/Xconfig/monitor.pm')
-rw-r--r--perl-install/Xconfig/monitor.pm18
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm
index 6efc9b600..dedac149c 100644
--- a/perl-install/Xconfig/monitor.pm
+++ b/perl-install/Xconfig/monitor.pm
@@ -90,13 +90,13 @@ sub choose {
}
};
- $in->ask_from(_("Monitor"), _("Choose a monitor"),
+ $in->ask_from(N("Monitor"), N("Choose a monitor"),
[ { val => \$merged_name, separator => '|',
list => ['Custom', "Plug'n Play", sort keys %h_monitors],
- format => sub { $_[0] eq 'Custom' ? _("Custom") :
- $_[0] eq "Plug'n Play" ? _("Plug'n Play") . " ($monitor->{ModelName})" :
- $_[0] =~ /^Generic\|(.*)/ ? _("Generic") . "|$1" :
- _("Vendor") . "|$_[0]" },
+ format => sub { $_[0] eq 'Custom' ? N("Custom") :
+ $_[0] eq "Plug'n Play" ? N("Plug'n Play") . " ($monitor->{ModelName})" :
+ $_[0] =~ /^Generic\|(.*)/ ? N("Generic") . "|$1" :
+ N("Vendor") . "|$_[0]" },
sort => 0 } ]) or return;
if ($merged_name eq "Plug'n Play") {
@@ -106,20 +106,20 @@ sub choose {
$monitor->{VendorName} = "Plug'n Play";
} else {
delete $monitor->{VendorName};
- $in->ask_warn('', _("Plug'n Play probing failed. Please choose a precise monitor"));
+ $in->ask_warn('', N("Plug'n Play probing failed. Please choose a precise monitor"));
goto ask_monitor;
}
} elsif ($merged_name eq 'Custom') {
$in->ask_from('',
-_("The two critical parameters are the vertical refresh rate, which is the rate
+N("The two critical parameters are the vertical refresh rate, which is the rate
at which the whole screen is refreshed, and most importantly the horizontal
sync rate, which is the rate at which scanlines are displayed.
It is VERY IMPORTANT that you do not specify a monitor type with a sync range
that is beyond the capabilities of your monitor: you may damage your monitor.
If in doubt, choose a conservative setting."),
- [ { val => \$monitor->{HorizSync}, list => \@HorizSync_ranges, label => _("Horizontal refresh rate"), not_edit => 0 },
- { val => \$monitor->{VertRefresh}, list => \@VertRefresh_ranges, label => _("Vertical refresh rate"), not_edit => 0 } ]) or goto &choose;
+ [ { val => \$monitor->{HorizSync}, list => \@HorizSync_ranges, label => N("Horizontal refresh rate"), not_edit => 0 },
+ { val => \$monitor->{VertRefresh}, list => \@VertRefresh_ranges, label => N("Vertical refresh rate"), not_edit => 0 } ]) or goto &choose;
delete @$monitor{'VendorName', 'ModelName', 'EISA_ID'};
} else {
put_in_hash($monitor, $h_monitors{$merged_name});