summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive')
-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}) {