summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-27 17:53:34 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-27 17:53:34 +0000
commit117d1b76c48d6191841ab63efdb1253830543ad1 (patch)
treed88ff65473a625da2f387325b770acd0a6f77303 /perl-install/interactive/gtk.pm
parent4cd4016373768a24035e597d6176f297e11f7cc4 (diff)
downloaddrakx-117d1b76c48d6191841ab63efdb1253830543ad1.tar
drakx-117d1b76c48d6191841ab63efdb1253830543ad1.tar.gz
drakx-117d1b76c48d6191841ab63efdb1253830543ad1.tar.bz2
drakx-117d1b76c48d6191841ab63efdb1253830543ad1.tar.xz
drakx-117d1b76c48d6191841ab63efdb1253830543ad1.zip
(create_widget) workaround infamous 6 years old gnome bug #101968 (bad label wrapping)
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}});