summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-09-16 17:48:14 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-09-16 17:48:14 +0000
commite2c2aa4270fa25632e03f7b24c783c009e5234fb (patch)
tree45a40538535caaeaef86f74f3da520b840c48e47 /perl-install
parent158b7107ff1a888bf91aff7e4f4b25cd395302cb (diff)
downloaddrakx-backup-do-not-use-e2c2aa4270fa25632e03f7b24c783c009e5234fb.tar
drakx-backup-do-not-use-e2c2aa4270fa25632e03f7b24c783c009e5234fb.tar.gz
drakx-backup-do-not-use-e2c2aa4270fa25632e03f7b24c783c009e5234fb.tar.bz2
drakx-backup-do-not-use-e2c2aa4270fa25632e03f7b24c783c009e5234fb.tar.xz
drakx-backup-do-not-use-e2c2aa4270fa25632e03f7b24c783c009e5234fb.zip
fix #5403:
- make sure to use OptionMenu instead of Combo boxes - move help into a tooltip
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/sound.pm9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index acef35303..f924d4832 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -171,6 +171,8 @@ sub switch {
if ($alternative) {
my $new_driver = $driver;
push @$alternative, $driver;
+ my %des = modules::category2modules_and_description('multimedia/sound');
+
if ($new_driver eq 'unknown') {
$in->ask_from(N("No alternative driver"),
N("There's no known OSS/ALSA alternative driver for your sound card (%s) which currently uses \"%s\"",
@@ -200,10 +202,7 @@ To use alsa, one can either use:
[
{
label => N("Driver:"), val => \$new_driver, list => $alternative, default => $new_driver, sort =>1,
- format => sub {
- my %des = modules::category2modules_and_description('multimedia/sound');
- "$_[0] (" . $des{$_[0]} . ')';
- },
+ help => join("\n\n", map { "\"$_\": " . $des{$_} } @$alternative),
allow_empty_list => 1,
},
{
@@ -296,7 +295,7 @@ sub configure_sound_slots() {
each_index {
my $default_driver = modules::get_alias("sound-slot-$::i");
if (!member($default_driver, @{get_alternative($_->{driver})}, $_->{driver})) {
- $altered ||= $default_driver ;
+ $altered ||= $default_driver;
modules::add_alias("sound-slot-$::i", $_->{driver});
}
} detect_devices::getSoundDevices();