From 1819241f7b56ec5264ffed2328130739732e6f57 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 1 Jul 2003 17:03:22 +0000
Subject: (create_dialog) add use_markup in order to hint the usage of pango
 attributes

---
 perl-install/ugtk2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 03fd0f1c6..e98985f08 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -365,7 +365,8 @@ sub create_dialog {
     $dialog->set_border_width(10);
     $dialog->set_position('center-on-parent');  # center-on-parent doesn't work
     $dialog->set_size_request(-1, 400);
-    $dialog->vbox->pack_start(create_scrolled_window(my $text = Gtk2::Label->new($label), [ 'never', 'automatic' ]), 1, 1, 0);
+    my $text = $o_options->{use_markup} ? gtkset_markup(Gtk2::Label->new(), $label) : Gtk2::Label->new($label);
+    $dialog->vbox->pack_start(create_scrolled_window($text, [ 'never', 'automatic' ]), 1, 1, 0);
     $text->set_line_wrap(1);
 
     my $button = Gtk2::Button->new(N("OK"));
-- 
cgit v1.2.1