From 677f63e327af8a318f8094f0aa017138f69bf889 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 23 Aug 2002 11:50:17 +0000 Subject: - fix setting "Screen " for multi-head cards - don't propose XFree3 when using multi-head --- perl-install/Xconfig/card.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm index da34d11bd..52860b931 100644 --- a/perl-install/Xconfig/card.pm +++ b/perl-install/Xconfig/card.pm @@ -367,7 +367,7 @@ sub multi_head_choices { #- special case for multi head card using only one BusID. @cards = map { - map_index { { screen => $::i, %$_ } } ($_) x ($_->{MULTI_HEAD} || 1); + map_index { { Screen => $::i, %$_ } } ($_) x ($_->{MULTI_HEAD} || 1); } @cards; delete $_->{server} foreach @cards; #- XFree 3 doesn't handle multi head (?) @@ -393,12 +393,11 @@ sub xfree_and_glx_choices { #- XFree version available, better to parse available package and get version from it. my ($xf4_ver, $xf3_ver) = ('4.2.0', '3.3.6'); - my @choices = do { - #- basic installation, use of XFree 4.2 or XFree 3.3. - my $xf3 = { text => _("XFree %s", $xf3_ver), code => sub { $card->{prefer_xf3} = 1 } }; - my $xf4 = { text => _("XFree %s", $xf4_ver), code => sub { $card->{prefer_xf3} = 0 } }; - $card->{prefer_xf3} ? ($xf3, $xf4) : ($xf4, $xf3); - }; + my $xf3 = { text => _("XFree %s", $xf3_ver), code => sub { $card->{prefer_xf3} = 1 } }; + my $xf4 = { text => _("XFree %s", $xf4_ver), code => sub { $card->{prefer_xf3} = 0 } }; + + #- no XFree3 with multi-head + my @choices = $card->{cards} ? $xf4 : $card->{prefer_xf3} ? ($xf3, $xf4) : ($xf4, $xf3); #- no GLX with Xinerama return @choices if $card->{Xinerama}; -- cgit v1.2.1