summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-27 19:31:03 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-27 19:31:03 +0000
commitafd0c04e912d3e9dd79210745c275045a31fa3fa (patch)
treee41955581522b50c0a368d8506f40c53a811946e /perl-install
parentbfbd03b2b117ced6791a70be7cc07ee7cc144a59 (diff)
downloaddrakx-afd0c04e912d3e9dd79210745c275045a31fa3fa.tar
drakx-afd0c04e912d3e9dd79210745c275045a31fa3fa.tar.gz
drakx-afd0c04e912d3e9dd79210745c275045a31fa3fa.tar.bz2
drakx-afd0c04e912d3e9dd79210745c275045a31fa3fa.tar.xz
drakx-afd0c04e912d3e9dd79210745c275045a31fa3fa.zip
(create_widgets_block) put right "content widget" in a size group
(needed for proper vertical aligment when some widgets are right aligned)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive/gtk.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index a33d48138..c306f80a9 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -601,6 +601,7 @@ sub create_widgets_block {
my ($o, $l, $update, $ignore_ref) = @_;
my $label_sizegrp = Gtk2::SizeGroup->new('horizontal');
+ my $realw_sizegrp = Gtk2::SizeGroup->new('horizontal');
@$l = map_index {
if ($::i && ($_->{type} eq 'expander' || $_->{title})) {
@@ -624,6 +625,7 @@ sub create_widgets_block {
if ($e->{label} || !$e->{no_indent}) {
$label_w = gtknew('Label_Left', text_markup => $e->{label} || '',
size_group => $label_sizegrp, alignment => [ 0, 0.5 ]);
+ $realw_sizegrp->add_widget($e->{real_w});
}
if ($e->{do_not_expand}) {