From 947ab9bb0fb06611b5bd54465f98545ff175afb2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 11 Jul 2016 22:28:43 -0400
Subject: just put all action buttons in the same box

it looks way better as don't have much actions for quite some time
---
 perl-install/diskdrake/hd_gtk.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'perl-install/diskdrake/hd_gtk.pm')

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) = @_;
-- 
cgit v1.2.1