summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfigurator.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-05-05 15:01:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-05-05 15:01:50 +0000
commit7d04cbc89f47233b83ddb520dca80b4391055358 (patch)
tree8bb78c782fe7f7b1ceff29b6a6146ada43dcb70b /perl-install/Xconfigurator.pm
parent3c2a48665f7416635861a32dfee9e16ded090d15 (diff)
downloaddrakx-backup-do-not-use-7d04cbc89f47233b83ddb520dca80b4391055358.tar
drakx-backup-do-not-use-7d04cbc89f47233b83ddb520dca80b4391055358.tar.gz
drakx-backup-do-not-use-7d04cbc89f47233b83ddb520dca80b4391055358.tar.bz2
drakx-backup-do-not-use-7d04cbc89f47233b83ddb520dca80b4391055358.tar.xz
drakx-backup-do-not-use-7d04cbc89f47233b83ddb520dca80b4391055358.zip
no_comment
Diffstat (limited to 'perl-install/Xconfigurator.pm')
-rw-r--r--perl-install/Xconfigurator.pm32
1 files changed, 11 insertions, 21 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm
index 22b5a5434..0d46c73db 100644
--- a/perl-install/Xconfigurator.pm
+++ b/perl-install/Xconfigurator.pm
@@ -221,20 +221,13 @@ sub monitorConfiguration(;$$) {
my $monitor = shift || {};
my $useFB = shift || 0;
- if ($useFB) {
- #- use smallest values for monitor configuration since FB is used,
- #- BIOS initialize graphics, current X server will not refuse that.
- $monitor->{hsyncrange} ||= $hsyncranges[1];
- $monitor->{vsyncrange} ||= $vsyncranges[0];
- add2hash($monitor, { type => "Unknown", vendor => "Unknown", model => "Unknown" });
- } else {
- $monitor->{hsyncrange} && $monitor->{vsyncrange} and return $monitor;
+ $monitor->{hsyncrange} && $monitor->{vsyncrange} and return $monitor;
- readMonitorsDB("/usr/X11R6/lib/X11/MonitorsDB");
+ readMonitorsDB("/usr/X11R6/lib/X11/MonitorsDB");
- add2hash($monitor, { type => $in->ask_from_treelist(_("Monitor"), _("Choose a monitor"), '|', ['Unlisted', keys %monitors], _("Generic") . '|' . translate($default_monitor)) }) unless $monitor->{type};
- if ($monitor->{type} eq 'Unlisted') {
- $in->ask_from_entries_ref('',
+ add2hash($monitor, { type => $in->ask_from_treelist(_("Monitor"), _("Choose a monitor"), '|', ['Unlisted', keys %monitors], _("Generic") . '|' . translate($default_monitor)) }) unless $monitor->{type};
+ if ($monitor->{type} eq 'Unlisted') {
+ $in->ask_from_entries_ref('',
_("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.
@@ -242,16 +235,13 @@ 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."),
- [ _("Horizontal refresh rate"), _("Vertical refresh rate") ],
- [ { val => \$monitor->{hsyncrange}, list => \@hsyncranges },
- { val => \$monitor->{vsyncrange}, list => \@vsyncranges }, ]);
- } else {
- add2hash($monitor, $monitors{$monitor->{type}});
- }
- add2hash($monitor, { type => "Unknown", vendor => "Unknown", model => "Unknown" });
+ [ _("Horizontal refresh rate"), _("Vertical refresh rate") ],
+ [ { val => \$monitor->{hsyncrange}, list => \@hsyncranges },
+ { val => \$monitor->{vsyncrange}, list => \@vsyncranges }, ]);
+ } else {
+ add2hash($monitor, $monitors{$monitor->{type}});
}
-
- $monitor;
+ add2hash($monitor, { type => "Unknown", vendor => "Unknown", model => "Unknown" });
}
sub testConfig($) {