summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-13 09:20:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-13 09:20:09 +0000
commitf7aee60183a5f0243a09c3ae210ec2ae7e3283e9 (patch)
tree5014770df3dc2f778f945070e62a5c8b453e53f1 /perl-install
parent37b924ba0f3bf4e8cc68c4127c3f8296b3955457 (diff)
downloaddrakx-f7aee60183a5f0243a09c3ae210ec2ae7e3283e9.tar
drakx-f7aee60183a5f0243a09c3ae210ec2ae7e3283e9.tar.gz
drakx-f7aee60183a5f0243a09c3ae210ec2ae7e3283e9.tar.bz2
drakx-f7aee60183a5f0243a09c3ae210ec2ae7e3283e9.tar.xz
drakx-f7aee60183a5f0243a09c3ae210ec2ae7e3283e9.zip
revert titi breaking the code, keeping the only valid change
Diffstat (limited to 'perl-install')
-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));
}