diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-09-05 21:21:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-09-05 21:21:25 +0000 |
| commit | a56b6bf9d29aab40564f3a1c0ac0d9fe7d910e2e (patch) | |
| tree | e4dd5b62fc607318fbbeb8a425a639f4df930fb2 /perl-install | |
| parent | 0fc442be27fbff38ff3c52b219830c2a9084c9cd (diff) | |
| download | drakx-backup-do-not-use-a56b6bf9d29aab40564f3a1c0ac0d9fe7d910e2e.tar drakx-backup-do-not-use-a56b6bf9d29aab40564f3a1c0ac0d9fe7d910e2e.tar.gz drakx-backup-do-not-use-a56b6bf9d29aab40564f3a1c0ac0d9fe7d910e2e.tar.bz2 drakx-backup-do-not-use-a56b6bf9d29aab40564f3a1c0ac0d9fe7d910e2e.tar.xz drakx-backup-do-not-use-a56b6bf9d29aab40564f3a1c0ac0d9fe7d910e2e.zip | |
add an option for prefering Xinerama in auto_installs
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfig/card.pm | 11 | ||||
| -rw-r--r-- | perl-install/Xconfig/main.pm | 1 |
2 files changed, 7 insertions, 5 deletions
diff --git a/perl-install/Xconfig/card.pm b/perl-install/Xconfig/card.pm index 2c1a472f6..ded139220 100644 --- a/perl-install/Xconfig/card.pm +++ b/perl-install/Xconfig/card.pm @@ -225,7 +225,7 @@ sub card_config__not_listed { sub multi_head_choose { my ($in, @cards) = @_; - my @choices = multi_head_choices(@cards); + my @choices = multi_head_choices('', @cards); my $tc = $in->ask_from_listf(_("Multi-head configuration"), _("Your system support multiple head configuration. @@ -249,7 +249,7 @@ sub configure_auto_install { } my @cards = probe(); - my ($choice) = multi_head_choices(@cards) or log::l('no graphic card probed, try providing one using $o->{card}{Driver} or $o->{card}{server} or $o->{card}{card_name}'), return; + my ($choice) = multi_head_choices($old_X->{Xinerama}, @cards) or log::l('no graphic card probed, try providing one using $o->{card}{Driver} or $o->{card}{server} or $o->{card}{card_name}'), return; my $card = $choice->{code}(); my ($glx_choice) = xfree_and_glx_choices($card); @@ -355,7 +355,7 @@ sub xfree_and_glx_choose { } sub multi_head_choices { - my (@cards) = @_; + my ($want_Xinerama, @cards) = @_; my @choices; my $has_multi_head = @cards > 1 || $cards[0]{MULTI_HEAD} > 1; @@ -378,8 +378,9 @@ sub multi_head_choices { $card->{Xinerama} = $_[0]; $card; }; - push @choices, { text => _("Configure all heads independently"), code => sub { $configure_multi_head->('') } }; - push @choices, { text => _("Use Xinerama extension"), code => sub { $configure_multi_head->(1) } }; + my $independent = { text => _("Configure all heads independently"), code => sub { $configure_multi_head->('') } }; + my $xinerama = { text => _("Use Xinerama extension"), code => sub { $configure_multi_head->(1) } }; + push @choices, $want_Xinerama ? ($xinerama, $independent) : ($independent, $xinerama); } foreach my $c (@cards) { diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm index 661f1d5f5..f4729b6c8 100644 --- a/perl-install/Xconfig/main.pm +++ b/perl-install/Xconfig/main.pm @@ -169,6 +169,7 @@ sub export_to_install_X { $::o->{X}{bios_vga_mode} = $X->{resolution}{bios}; $::o->{X}{monitor} = $X->{monitor} if $X->{monitor}{manually_chosen} && $X->{monitor}{vendor} ne "Plug'n Play"; $::o->{X}{card} = $X->{monitor} if $X->{card}{manually_chosen}; + $::o->{X}{Xinerama} = 1 if $X->{card}{Xinerama}; } |