summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/smbnfs_gtk.pm13
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm
index 5e5d114cf..393245a8f 100644
--- a/perl-install/diskdrake/smbnfs_gtk.pm
+++ b/perl-install/diskdrake/smbnfs_gtk.pm
@@ -76,17 +76,16 @@ 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) = @$_;
$f ? gtksignal_connect(Gtk2::Button->new(translate($txt)), clicked => sub { try_($kind, $txt, $f, $entry) })
: Gtk2::Label->new("");
- } @l;
+ } group_by2(@l);
gtkadd($box, gtkpack(Gtk2::HBox->new(0,0), @buttons));
}