summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-09-10 08:09:03 +0000
committerFrancois Pons <fpons@mandriva.com>2002-09-10 08:09:03 +0000
commit12241767397ce2698a54e1b502658ef38e74fa2c (patch)
treed21862990de0f5c93b2a24e7a36af6848563ca9a /perl-install/mouse.pm
parent169d786ea3d026b8df539113145c34d3b53f5c42 (diff)
downloaddrakx-12241767397ce2698a54e1b502658ef38e74fa2c.tar
drakx-12241767397ce2698a54e1b502658ef38e74fa2c.tar.gz
drakx-12241767397ce2698a54e1b502658ef38e74fa2c.tar.bz2
drakx-12241767397ce2698a54e1b502658ef38e74fa2c.tar.xz
drakx-12241767397ce2698a54e1b502658ef38e74fa2c.zip
fixed pixel typo (strange, I was sure it was titi but not ?).
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 5174e7667..49ac6ec19 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -485,7 +485,7 @@ sub test_mouse {
my $bad_mouse = member($mouse->{XMOUSETYPE}, 'IMPS/2', 'ExplorerPS/2');
$draw_text->(_("Please test the mouse"), $height - 120);
$draw_text->(_("To activate the mouse,"), $height - 105) if $bad_mouse;
- $draw_text->(_("MOVE YOUR WHEEL!"), $height - 90) if $bad_mouse
+ $draw_text->(_("MOVE YOUR WHEEL!"), $height - 90) if $bad_mouse;
$darea->window->draw_rectangle($darea->style->bg_gc('normal'), 1, 0, $height-65, $width, $height);
}
};
f46fe64174a6839'>perl-install/Xconfig/xfree4.pm
@@ -84,13 +84,16 @@ sub set_wacoms {
sub depths { 8, 15, 16, 24 }
sub set_resolution {
- my ($raw_X, $resolution, $Screen) = @_;
-
- $resolution = +{ %$resolution };
- #- XFree4 doesn't like depth 32, silently replacing it with 24
- $resolution->{Depth} = 24 if $resolution->{Depth} eq '32';
+ my ($raw_X, $resolution, $o_Screen_) = @_;
+
+ foreach my $Screen ($o_Screen_ ? $o_Screen_ : $raw_X->get_screens) {
+ $Screen ||= $raw_X->get_default_screen or internal_error('no screen');
- $raw_X->SUPER::set_resolution($resolution, $Screen);
+ $Screen->{DefaultColorDepth} = { val => $resolution->{Depth} eq '32' ? 24 : $resolution->{Depth} };
+ $Screen->{Display} = [ map {
+ { l => { Depth => { val => $_ }, Virtual => { val => join(' ', @$resolution{'X', 'Y'}) } } };
+ } $raw_X->depths ];
+ }
}
sub get_device_section_fields {