1 |
package Xconfig::screen; # $Id: screen.pm 210131 2004-11-18 13:25:45Z prigaux $ |
2 |
|
3 |
use diagnostics; |
4 |
use strict; |
5 |
|
6 |
use common; |
7 |
|
8 |
|
9 |
sub configure { |
10 |
my ($raw_X) = @_; |
11 |
|
12 |
my @devices = $raw_X->get_devices; |
13 |
my @monitors = $raw_X->get_monitors; |
14 |
|
15 |
if (@monitors < @devices) { |
16 |
$raw_X->set_monitors(@monitors, ({}) x (@devices - @monitors)); |
17 |
@monitors = $raw_X->get_monitors; |
18 |
} |
19 |
|
20 |
my @sections = mapn { |
21 |
my ($device, $monitor) = @_; |
22 |
{ Device => $device->{Identifier}, Monitor => $monitor->{Identifier} }; |
23 |
} \@devices, \@monitors; |
24 |
|
25 |
$raw_X->set_screens(@sections); |
26 |
1; |
27 |
} |
28 |
|
29 |
1; |