summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index ae07ff4e7..b4185baf8 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -386,7 +386,8 @@ sub create_widget {
$set = sub { $w->set_active($_[0]) };
} elsif ($e->{type} eq 'only_label') {
$w = $e->{title} ?
- gtknew('Title2', label => escape_text_for_TextView_markup_format(${$e->{val}})) :
+ gtknew('Title2', label => escape_text_for_TextView_markup_format(${$e->{val}}),
+ width => mygtk2::get_label_width()) :
gtknew('Label_Left', line_wrap => 1, text_markup => ${$e->{val}});
} elsif ($e->{type} eq 'label') {
$w = gtknew('WrappedLabel', text_markup => ${$e->{val}});