diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-05-07 10:15:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-05-07 10:15:17 +0000 |
| commit | a72f7bb1d7790993ef294f770e80517a8761abfc (patch) | |
| tree | dc38c66018ac81ad85bbf3c7e563889db45e66d7 /perl-install/Xconfig/various.pm | |
| parent | 67fa57fea049bcb27429f921a84cbffdd83faee1 (diff) | |
| download | drakx-backup-do-not-use-a72f7bb1d7790993ef294f770e80517a8761abfc.tar drakx-backup-do-not-use-a72f7bb1d7790993ef294f770e80517a8761abfc.tar.gz drakx-backup-do-not-use-a72f7bb1d7790993ef294f770e80517a8761abfc.tar.bz2 drakx-backup-do-not-use-a72f7bb1d7790993ef294f770e80517a8761abfc.tar.xz drakx-backup-do-not-use-a72f7bb1d7790993ef294f770e80517a8761abfc.zip | |
you can now configure monitors on heads > 1
Diffstat (limited to 'perl-install/Xconfig/various.pm')
| -rw-r--r-- | perl-install/Xconfig/various.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/Xconfig/various.pm b/perl-install/Xconfig/various.pm index 5d7832c06..d3d49ee08 100644 --- a/perl-install/Xconfig/various.pm +++ b/perl-install/Xconfig/various.pm @@ -22,16 +22,18 @@ sub info { my $title = $card->{use_DRI_GLX} ? N("XFree %s with 3D hardware acceleration", $xf_ver) : N("XFree %s", $xf_ver); my $keyboard = eval { $raw_X->get_keyboard } || {}; - my $monitor = eval { $raw_X->get_monitor } || {}; + my @monitors = eval { $raw_X->get_monitors }; my $device = eval { $raw_X->get_device } || {}; my $mouse = eval { first($raw_X->get_mice) } || {}; $info .= N("Keyboard layout: %s\n", $keyboard->{XkbLayout}); $info .= N("Mouse type: %s\n", $mouse->{Protocol}); $info .= N("Mouse device: %s\n", $mouse->{Device}) if $::expert; - $info .= N("Monitor: %s\n", $monitor->{ModelName}); - $info .= N("Monitor HorizSync: %s\n", $monitor->{HorizSync}) if $::expert; - $info .= N("Monitor VertRefresh: %s\n", $monitor->{VertRefresh}) if $::expert; + foreach my $monitor (@monitors) { + $info .= N("Monitor: %s\n", $monitor->{ModelName}); + $info .= N("Monitor HorizSync: %s\n", $monitor->{HorizSync}) if $::expert; + $info .= N("Monitor VertRefresh: %s\n", $monitor->{VertRefresh}) if $::expert; + } $info .= N("Graphics card: %s\n", $device->{VendorName} . ' ' . $device->{BoardName}); $info .= N("Graphics memory: %s kB\n", $device->{VideoRam}) if $device->{VideoRam}; if (my $resolution = eval { $raw_X->get_resolution }) { |