diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-27 00:39:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-27 00:39:45 +0000 |
| commit | e1d7fa386efb725ecd526ea24bebcf56cf4b1296 (patch) | |
| tree | 0064ad4c601350766f8e5856c6344285e3f3779a /perl-install/Xconfigurator.pm | |
| parent | 9bf316fa134a1c39ef18d0f007bf7aac21d4a487 (diff) | |
| download | drakx-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.tar drakx-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.tar.gz drakx-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.tar.bz2 drakx-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.tar.xz drakx-e1d7fa386efb725ecd526ea24bebcf56cf4b1296.zip | |
no_comment
Diffstat (limited to 'perl-install/Xconfigurator.pm')
| -rw-r--r-- | perl-install/Xconfigurator.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index e24b8ebba..d5eedcca1 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -120,7 +120,7 @@ sub readMonitorsDB { $monitors{"$l{vendor}|$l{type}"} = \%l; } while (my ($k, $v) = each %standard_monitors) { - $monitors{"Generic|" . translate($k)} = + $monitors{'Generic|' . translate($k)} = { hsyncrange => $v->[1], vsyncrange => $v->[2] }; } } @@ -349,7 +349,7 @@ sub monitorConfiguration(;$$) { 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}; + 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 @@ -654,7 +654,7 @@ sub resolutionsConfiguration { my $wres = first(split 'x', $res); #- take the first available resolution <= the wanted resolution - $wres ||= max map { first(grep { $_->[0] <= $wres } @$_)->[0] } values %{$card->{depth}}; + $wres = max map { first(grep { $_->[0] <= $wres } @$_)->[0] } values %{$card->{depth}}; my $depth = eval { $o->{default_depth} || autoDefaultDepth($card, $wres) }; $auto or ($depth, $wres) = chooseResolutions($card, $depth, $wres) or return; |