summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig/screen.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-05-03 17:34:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-05-03 17:34:59 +0000
commitb0ead5928c5b9edde049f99387de745f7d06ce7a (patch)
tree310c75ed9c4b73253baed93560a6b536ef761000 /perl-install/Xconfig/screen.pm
parent6c7e9bdbfa12bc52da5272de610ff4956e35f715 (diff)
downloaddrakx-b0ead5928c5b9edde049f99387de745f7d06ce7a.tar
drakx-b0ead5928c5b9edde049f99387de745f7d06ce7a.tar.gz
drakx-b0ead5928c5b9edde049f99387de745f7d06ce7a.tar.bz2
drakx-b0ead5928c5b9edde049f99387de745f7d06ce7a.tar.xz
drakx-b0ead5928c5b9edde049f99387de745f7d06ce7a.zip
XFree 3 is gone!
Diffstat (limited to 'perl-install/Xconfig/screen.pm')
-rw-r--r--perl-install/Xconfig/screen.pm25
1 files changed, 6 insertions, 19 deletions
diff --git a/perl-install/Xconfig/screen.pm b/perl-install/Xconfig/screen.pm
index 761c5defd..89e416a4d 100644
--- a/perl-install/Xconfig/screen.pm
+++ b/perl-install/Xconfig/screen.pm
@@ -7,7 +7,7 @@ use common;
sub configure {
- my ($raw_X, $card) = @_;
+ my ($raw_X) = @_;
my @devices = $raw_X->get_devices;
my @monitors = $raw_X->get_monitors;
@@ -17,25 +17,12 @@ sub configure {
@monitors = $raw_X->get_monitors;
}
- if ($card->{server}) {
- $raw_X->{xfree3}->set_screens({ Device => $devices[0]{Identifier}, Monitor => $monitors[0]{Identifier},
- Driver => $Xconfig::card::serversdriver{$card->{server}} || internal_error("bad XFree3 server $card->{server}"),
- });
- } else {
- @{$raw_X->{xfree3}} = ();
- }
-
- if ($card->{Driver}) {
- my @sections = mapn {
- my ($device, $monitor) = @_;
- { Device => $device->{Identifier}, Monitor => $monitor->{Identifier} }
- } \@devices, \@monitors;
-
- $raw_X->{xfree4}->set_screens(@sections);
- } else {
- @{$raw_X->{xfree4}} = ();
- }
+ my @sections = mapn {
+ my ($device, $monitor) = @_;
+ { Device => $device->{Identifier}, Monitor => $monitor->{Identifier} }
+ } \@devices, \@monitors;
+ $raw_X->set_screens(@sections);
1;
}