diff options
Diffstat (limited to 'lib/Xconfig/screen.pm')
-rw-r--r-- | lib/Xconfig/screen.pm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/lib/Xconfig/screen.pm b/lib/Xconfig/screen.pm new file mode 100644 index 0000000..e0a3ebd --- /dev/null +++ b/lib/Xconfig/screen.pm @@ -0,0 +1,29 @@ +package Xconfig::screen; # $Id$ + +use diagnostics; +use strict; + +use common; + + +sub configure { + my ($raw_X) = @_; + + my @devices = $raw_X->get_devices; + my @monitors = $raw_X->get_monitors; + + if (@monitors < @devices) { + $raw_X->set_monitors(@monitors, ({}) x (@devices - @monitors)); + @monitors = $raw_X->get_monitors; + } + + my @sections = mapn { + my ($device, $monitor) = @_; + { Device => $device->{Identifier}, Monitor => $monitor->{Identifier} }; + } \@devices, \@monitors; + + $raw_X->set_screens(@sections); + 1; +} + +1; |