(per_entry_action_box)

- sanitieze buttons packing (do not eat extra space)
- get rid of groupby2

1 files changed, 11 insertions, 9 deletions

diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index 8c414f9d5..5e5d114cf 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -76,16 +76,18 @@ sub per_entry_action_box {
 	 if_($entry->{mntpoint} && !$entry->{isMounted}, N_("Mount"))) if $entry;
 
     my @l = (
-	     if_($entry, N_("Mount point") => \&raw_hd_mount_point),
-	     if_($entry && $entry->{mntpoint}, N_("Options") => \&raw_hd_options),
-	     N_("Cancel") => sub {},
-	     N_("Done") => \&done,
-	    );
+             if_([ $entry, N_("Mount point") => \&raw_hd_mount_point ]),
+             if_([ $entry && $entry->{mntpoint}, N_("Options") => \&raw_hd_options ]),
+             [ N_("Cancel") => sub {} ],
+             [ "" ],
+             [ N_("Done") => \&done ],
+            );
     push @buttons, map {
-	my ($txt, $f) = @$_;
-	gtksignal_connect(Gtk2::Button->new(translate($txt)), clicked => sub { try_($kind, $txt, $f, $entry) });
-    } group_by2(@l);
-
+        my ($txt, $f) = @$_;
+        $f ? gtksignal_connect(Gtk2::Button->new(translate($txt)), clicked => sub { try_($kind, $txt, $f, $entry) })
+          : Gtk2::Label->new("");
+    } @l;
+    
     gtkadd($box, gtkpack(Gtk2::HBox->new(0,0), @buttons));
 }