diff options
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 85e503d4b..e575de132 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -632,7 +632,7 @@ sub create_widgets_block { my $label_w; if ($e->{label} || !$e->{no_indent}) { $label_w = gtknew('Label_Left', text_markup => $e->{label} || '', - size_group => $label_sizegrp, alignment => [ 0, 0.5 ]); + if_($e->{alignment} ne 'right', size_group => $label_sizegrp), alignment => [ 0, 0.5 ]); $realw_sizegrp->add_widget($e->{real_w}); } |