diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/smbnfs_gtk.pm | 20 |
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)); } |