summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-02-25 09:43:46 +0000
committerThierry Vignaud <tv@mandriva.org>2009-02-25 09:43:46 +0000
commitb54fb710f233d76f7fc3c05a5279b747fd2912aa (patch)
treed1f2985edaad6f6519a740f226e10f9fa2a19476 /perl-install
parent6c1837a6cb4385ae75c67028e84ad8dcac2c2ad9 (diff)
downloaddrakx-b54fb710f233d76f7fc3c05a5279b747fd2912aa.tar
drakx-b54fb710f233d76f7fc3c05a5279b747fd2912aa.tar.gz
drakx-b54fb710f233d76f7fc3c05a5279b747fd2912aa.tar.bz2
drakx-b54fb710f233d76f7fc3c05a5279b747fd2912aa.tar.xz
drakx-b54fb710f233d76f7fc3c05a5279b747fd2912aa.zip
hide module configuration button if needed (#16678)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rwxr-xr-xperl-install/standalone/harddrake211
2 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index e2b787e3c..6d1622562 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,5 @@
- harddrake:
+ o hide module configuration button if needed (#16678)
o remove empty module parameter instead of writing them (#40581)
- harddrake service:
o prevent wrongly notifying we switched from proprietary to free
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 1325d767d..6d4d2f738 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -14,6 +14,7 @@ BEGIN { unshift @::textdomains, 'drakconf' }
use mygtk2 qw(gtknew); #- do not import gtkadd which conflicts with ugtk2 version
use ugtk2 qw(:create :helpers :wrappers);
use interactive;
+use modules::parameters;
use harddrake::data; #- needs to stay after use-ugtk2 as long as this module defines globals containing some N()
use fsedit;
use pkgs;
@@ -302,6 +303,7 @@ sub fill_default_text {
$text->get_buffer->set_text(N("Click on a device in the left tree in order to display its information here."));
}
+my %has_parameter;
$tree->get_selection->signal_connect('changed' => sub {
my ($select) = @_;
my ($model, $iter) = $select->get_selected;
@@ -352,6 +354,15 @@ $tree->get_selection->signal_connect('changed' => sub {
$current_configurator = $configurators[$idx];
show_hide($current_configurator && -x first(split /\s+/, $current_configurator), $config_button); # strip arguments for -x test
+
+ # hide module configuration button if needed:
+ my $driver = $current_device->{driver};
+ if (!defined $has_parameter{$driver}) {
+ local $SIG{CHLD} = undef;
+ $has_parameter{$driver} ||= to_bool(scalar modules::parameters::parameters($driver));
+ }
+ show_hide($has_parameter{$driver}, $module_cfg_button);
+
return 1;
}
}