summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-07 20:23:39 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-07 20:23:39 +0000
commit13b459a9822441710315ac959fd25681b1c1d56e (patch)
tree7a3cd8a26fdbbdd69a3ede9e07e1b1dc016c4be4 /perl-install
parent9492e7b62b939c457ae94956b3246bfbb5c43d63 (diff)
downloaddrakx-13b459a9822441710315ac959fd25681b1c1d56e.tar
drakx-13b459a9822441710315ac959fd25681b1c1d56e.tar.gz
drakx-13b459a9822441710315ac959fd25681b1c1d56e.tar.bz2
drakx-13b459a9822441710315ac959fd25681b1c1d56e.tar.xz
drakx-13b459a9822441710315ac959fd25681b1c1d56e.zip
(configure): in $auto mode, use $default_resolution without asking
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/Xconfig/resolution_and_depth.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/Xconfig/resolution_and_depth.pm b/perl-install/Xconfig/resolution_and_depth.pm
index 295ea4a9a..6972e1518 100644
--- a/perl-install/Xconfig/resolution_and_depth.pm
+++ b/perl-install/Xconfig/resolution_and_depth.pm
@@ -169,11 +169,13 @@ sub choices {
}
sub configure {
- my ($in, $raw_X, $card, $monitor) = @_;
+ my ($in, $raw_X, $card, $monitor, $auto) = @_;
my ($default_resolution, @resolutions) = choices($raw_X, $raw_X->get_resolution, $card, $monitor);
- if ($in->isa('interactive::gtk')) {
+ if ($auto) {
+ #- use $default_resolution
+ } elsif ($in->isa('interactive::gtk')) {
$default_resolution = choose_gtk($card, $default_resolution, @resolutions) or return;
} else {
$default_resolution = choose($in, $default_resolution, @resolutions) or return;