summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/smbnfs_gtk.pm20
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));
}