diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-08-27 19:31:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-08-27 19:31:03 +0000 |
| commit | afd0c04e912d3e9dd79210745c275045a31fa3fa (patch) | |
| tree | e41955581522b50c0a368d8506f40c53a811946e /perl-install/interactive/gtk.pm | |
| parent | bfbd03b2b117ced6791a70be7cc07ee7cc144a59 (diff) | |
| download | drakx-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/interactive/gtk.pm')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 2 |
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}) { |