diff options
| -rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index a8f4894f3..89f3d6172 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -234,16 +234,13 @@ sub per_kind_action_box { $kind->{type} =~ /hd|lvm/ or return; - foreach my $s (diskdrake::interactive::hd_possible_actions_base($in)) { + my @actions = (diskdrake::interactive::hd_possible_actions_base($in), + diskdrake::interactive::hd_possible_actions_extra($in)); + foreach my $s (@actions) { gtkadd($box, gtksignal_connect(Gtk3::Button->new(translate($s)), clicked => sub { try($s, kind2hd($kind)) })); } - foreach my $s (diskdrake::interactive::hd_possible_actions_extra($in)) { - gtkadd($box2, - gtksignal_connect(Gtk3::Button->new(translate($s)), - clicked => sub { try($s, kind2hd($kind)) })); - } } sub per_entry_action_box { my ($box, $kind, $entry) = @_; |