From afd0c04e912d3e9dd79210745c275045a31fa3fa Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 27 Aug 2008 19:31:03 +0000 Subject: (create_widgets_block) put right "content widget" in a size group (needed for proper vertical aligment when some widgets are right aligned) --- perl-install/interactive/gtk.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl-install/interactive') 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}) { -- cgit v1.2.1