From 13b459a9822441710315ac959fd25681b1c1d56e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 7 Jan 2003 20:23:39 +0000 Subject: (configure): in $auto mode, use $default_resolution without asking --- perl-install/Xconfig/resolution_and_depth.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/Xconfig') 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; -- cgit v1.2.1