summaryrefslogtreecommitdiffstats
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
parent59fec0908e16d047ed48c93793cd47fbda0d43e8 (diff)
downloaddrakx-backup-do-not-use-26275b8e8ba82504b73c15545e9048b3af0cc5ef.tar
drakx-backup-do-not-use-26275b8e8ba82504b73c15545e9048b3af0cc5ef.tar.gz
drakx-backup-do-not-use-26275b8e8ba82504b73c15545e9048b3af0cc5ef.tar.bz2
drakx-backup-do-not-use-26275b8e8ba82504b73c15545e9048b3af0cc5ef.tar.xz
drakx-backup-do-not-use-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
-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);