diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-13 09:20:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-13 09:20:09 +0000 |
| commit | f7aee60183a5f0243a09c3ae210ec2ae7e3283e9 (patch) | |
| tree | 5014770df3dc2f778f945070e62a5c8b453e53f1 /perl-install | |
| parent | 37b924ba0f3bf4e8cc68c4127c3f8296b3955457 (diff) | |
| download | drakx-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.pm | 13 |
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)); } |