(ask_fromW) enable properly setted checkbuttons (aka those who

correctly use text instead of label) to take all the place they need,
thus preventing spurious horizontal scrolling bar to show up

1 files changed, 12 insertions, 1 deletions

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 4f245c4f8..73376389d 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -582,9 +582,20 @@ sub ask_fromW {
 				$w->child->set_label($advanced ? $common->{advanced_label_close} : $common->{advanced_label});
 			    } ];
 
+    my $label_sizegrp = Gtk2::SizeGroup->new('horizontal');
+    my $realw_sizegrp = Gtk2::SizeGroup->new('horizontal');
     my $create_widgets = sub {
 	my (@widgets) = @_;
-	create_packtable({}, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})] } @widgets);
+	gtkpack__(Gtk2::VBox->new,
+               map { 
+                   $_->{real_w} =~ /Gtk2::CheckButton/ && !$_->{icon_w} && !$_->{e}{label} ?
+                     $_->{real_w} : gtkpack_(Gtk2::HBox->new,
+                                             0, $_->{icon_w},
+                                             0, gtkadd_widget($label_sizegrp, $_->{e}{label}),
+                                             1, gtkadd_widget($realw_sizegrp, $_->{real_w}),
+                                            );
+               } @widgets
+              );
     };
 
     my $always_pack = $create_widgets->(@widgets_always);