summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-12 14:53:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-12 14:53:40 +0000
commitc1bb0f1288805582f122e10082f62beb91562b19 (patch)
tree8687df7ad6588987f26c9b48d203b8f5600a5b98 /perl-install
parent44ad39864c7ff77921cf18a8e22d0e1bee5ae2b9 (diff)
downloaddrakx-backup-do-not-use-c1bb0f1288805582f122e10082f62beb91562b19.tar
drakx-backup-do-not-use-c1bb0f1288805582f122e10082f62beb91562b19.tar.gz
drakx-backup-do-not-use-c1bb0f1288805582f122e10082f62beb91562b19.tar.bz2
drakx-backup-do-not-use-c1bb0f1288805582f122e10082f62beb91562b19.tar.xz
drakx-backup-do-not-use-c1bb0f1288805582f122e10082f62beb91562b19.zip
use {interactive_help}
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/sound.pm33
1 files changed, 16 insertions, 17 deletions
diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index df72f5f6f..6e0083747 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -176,22 +176,12 @@ sub switch {
&get_any_driver_entry($in, $driver, $device),
]
);
- } elsif ($in->ask_from(N("Sound configuration"),
- N("Here you can select an alternative driver (either OSS or ALSA) for your sound card (%s).",
- $device->{description}) .
- N("\n\nYour card currently use the %s\"%s\" driver (default driver for your card is \"%s\")", ($driver =~ /^snd-/ ? "ALSA " : "OSS "), $driver, $device->{driver}),
- [
- {
- 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]} . ')';
- },
- allow_empty_list => 1,
- },
- {
- val => N("Help"), disabled => sub {},
- clicked => sub {
+ } elsif ($in->ask_from_({ title => N("Sound configuration"),
+ messages =>
+ N("Here you can select an alternative driver (either OSS or ALSA) for your sound card (%s).",
+ $device->{description}) .
+ N("\n\nYour card currently use the %s\"%s\" driver (default driver for your card is \"%s\")", ($driver =~ /^snd-/ ? "ALSA " : "OSS "), $driver, $device->{driver}),
+ interactive_help => sub {
$in->ask_warn(N("Switching between ALSA and OSS help"),
N("OSS (Open Sound System) was the first sound API. It's an OS independant sound API (it's available on most unices systems) but it's a very basic and limited API.
What's more, OSS drivers all reinvent the wheel.
@@ -203,7 +193,16 @@ To use alsa, one can either use:
- the old compatibility OSS api
- the new ALSA api that provides many enhanced features but requires using the ALSA library.
"))
- }
+ },
+ },
+ [
+ {
+ 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]} . ')';
+ },
+ allow_empty_list => 1,
},
{
val => N("Trouble shooting"), disabled => sub {},