From 3f3957ca9c3309439691f68ea31ac1aa219194cd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 2 Feb 2004 18:51:46 +0000
Subject: do not pass extra empty invisible label (really cosmetic)

---
 perl-install/interactive/gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 4e09e5c18..9840354d2 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -609,7 +609,7 @@ sub ask_fromW {
                   ($_->{real_w}->isa("Gtk2::ScrolledWindow") || $_->{real_w}->get_data('must_grow') ? 1 : 0), 
                    $_->{real_w}->isa("Gtk2::CheckButton") && !$_->{icon_w} && !$_->{e}{label} ?
                      $_->{real_w} : gtkpack_(Gtk2::HBox->new,
-                                             0, $_->{icon_w},
+                                             if_($_->{icon_w}, 0, $_->{icon_w}),
                                              0, gtkadd_widget($label_sizegrp, $_->{e}{label}),
                                              1, gtkadd_widget($realw_sizegrp, $_->{real_w}),
                                             );
-- 
cgit v1.2.1