From 1a58abd155d2fb3cc2958f595fa7a3be4aeeec66 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 24 Sep 2002 15:14:53 +0000 Subject: split harddrake part that configure a module into modules::interactive --- perl-install/harddrake/ui.pm | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) (limited to 'perl-install/harddrake/ui.pm') diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm index c12a9a5ea..0a1d25446 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm @@ -188,22 +188,8 @@ sub new { if (exists $data->{driver} && $data->{driver} !~ /(unknown|.*\|.*)/ && $data->{driver} !~ /^Card:/) { $module_cfg_button->show; $IDs{module} = $module_cfg_button->signal_connect(clicked => sub { - require modules; - modules::mergein_conf('/etc/modules.conf'); - my %conf = modules::get_parameters($data->{driver}); - require modparm; - my @l; - foreach (modparm::parameters($data->{driver})) { - my ($name, $format, $description) = @$_; - push @l, { label => $name, help => "$description\n[$format]", val => \$conf{$name} }; - } - if ($in->ask_from("Module configuration", _("You can configure each parameter of the module here."), \@l)) { - my $options = join(' ', map { if_($conf{$_}, "$_=$conf{$_}") } keys %conf); - if ($options) { - modules::set_options($_->{driver}, $options); - modules::write_conf; - } - } + require modules::interactive; + modules::interactive::config_window($in, $data); gtkset_mousecursor_normal(); }); } -- cgit v1.2.1