From f7aee60183a5f0243a09c3ae210ec2ae7e3283e9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 13 Jan 2004 09:20:09 +0000 Subject: revert titi breaking the code, keeping the only valid change --- perl-install/diskdrake/smbnfs_gtk.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'perl-install') 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)); } -- cgit v1.2.1