/[soft]/drakx-kbd-mouse-x11/trunk/lib/Xconfig/screen.pm
ViewVC logotype

Contents of /drakx-kbd-mouse-x11/trunk/lib/Xconfig/screen.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 391 - (show annotations) (download)
Thu Feb 3 13:54:58 2011 UTC (13 years, 1 month ago) by dmorgan
File size: 592 byte(s)
Import cleaned drakx-kbd-mouse-x11
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;

  ViewVC Help
Powered by ViewVC 1.1.30