From 26275b8e8ba82504b73c15545e9048b3af0cc5ef Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 22 Jan 2004 18:12:55 +0000
Subject: (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

---
 perl-install/interactive/gtk.pm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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);
-- 
cgit v1.2.1