diff options
author | Olivier Blin <oblin@mandriva.org> | 2004-08-26 11:52:41 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2004-08-26 11:52:41 +0000 |
commit | fff0fecf10c98f77bdefcea0254fe2f03f8b1c34 (patch) | |
tree | 7e90e1681503b41571e286b28e6b54010c64f738 /perl-install/install_steps_gtk.pm | |
parent | 2217db2d8f69a6800b63756da7b49e85388ca593 (diff) | |
download | drakx-fff0fecf10c98f77bdefcea0254fe2f03f8b1c34.tar drakx-fff0fecf10c98f77bdefcea0254fe2f03f8b1c34.tar.gz drakx-fff0fecf10c98f77bdefcea0254fe2f03f8b1c34.tar.bz2 drakx-fff0fecf10c98f77bdefcea0254fe2f03f8b1c34.tar.xz drakx-fff0fecf10c98f77bdefcea0254fe2f03f8b1c34.zip |
define and use $o->{mouse}{alternate_install} if detected mouse can't be used during install
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r-- | perl-install/install_steps_gtk.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 6bb030988..6c641ea8c 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -46,7 +46,9 @@ sub new($$) { if ($server eq 'Xnest') { push @options, '-ac', '-geometry', $o->{vga} || ($o->{vga16} ? '640x480' : '800x600'); } elsif ($::globetrotter || !$::move) { - install_gtk::createXconf($f, @{$o->{mouse}}{"XMOUSETYPE", "device"}, $o->{mouse}{wacom}[0], $Driver); + #- use alternate mouse in install if mouse is unsafe or needs some specific module (e.g. synaptics) + my $mouse = is_empty_hash_ref($o->{mouse}{alternate_install}) ? $o->{mouse} : $o->{mouse}{alternate_install}; + install_gtk::createXconf($f, @$mouse{"XMOUSETYPE", "device"}, $o->{mouse}{wacom}[0], $Driver); push @options, if_(!$::globetrotter, '-kb'), '-allowMouseOpenFail', '-xf86config', $f if arch() !~ /^sparc/; push @options, 'tty7', '-dpms', '-s', '240'; |