From e2c2aa4270fa25632e03f7b24c783c009e5234fb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 16 Sep 2003 17:48:14 +0000 Subject: fix #5403: - make sure to use OptionMenu instead of Combo boxes - move help into a tooltip --- perl-install/harddrake/sound.pm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'perl-install') 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(); -- cgit v1.2.1