From e2c2aa4270fa25632e03f7b24c783c009e5234fb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
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