diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-07-11 22:28:43 -0400 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-07-12 02:01:29 +0200 |
| commit | 947ab9bb0fb06611b5bd54465f98545ff175afb2 (patch) | |
| tree | 8b150c456465548851c748de7fab9db78fe0f046 /perl-install | |
| parent | 352a9f279e532ef881c3291b88003905e956dd99 (diff) | |
| download | drakx-947ab9bb0fb06611b5bd54465f98545ff175afb2.tar drakx-947ab9bb0fb06611b5bd54465f98545ff175afb2.tar.gz drakx-947ab9bb0fb06611b5bd54465f98545ff175afb2.tar.bz2 drakx-947ab9bb0fb06611b5bd54465f98545ff175afb2.tar.xz drakx-947ab9bb0fb06611b5bd54465f98545ff175afb2.zip | |
just put all action buttons in the same box
it looks way better as don't have much actions for quite some time
Diffstat (limited to 'perl-install')
| -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) = @_; |