summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-22 18:12:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-22 18:12:55 +0000
commit26275b8e8ba82504b73c15545e9048b3af0cc5ef (patch)
tree1af5c3d82127e7cbb154569ebd13b0c251ae0d2f /perl-install/interactive/gtk.pm
parent59fec0908e16d047ed48c93793cd47fbda0d43e8 (diff)
downloaddrakx-26275b8e8ba82504b73c15545e9048b3af0cc5ef.tar
drakx-26275b8e8ba82504b73c15545e9048b3af0cc5ef.tar.gz
drakx-26275b8e8ba82504b73c15545e9048b3af0cc5ef.tar.bz2
drakx-26275b8e8ba82504b73c15545e9048b3af0cc5ef.tar.xz
drakx-26275b8e8ba82504b73c15545e9048b3af0cc5ef.zip
(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
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm13
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);