From 035cb5489a0115eca20ca0891ea0dde602449c79 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 12 Jan 2004 14:30:50 +0000 Subject: (per_entry_action_box) - sanitieze buttons packing (do not eat extra space) - get rid of groupby2 --- perl-install/diskdrake/smbnfs_gtk.pm | 20 +++++++++++--------- 1 file 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)); } -- cgit v1.2.1