From 4dae6619d14d8c5eef7df13686857ee744da457e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 16 Sep 2008 17:53:42 +0000
Subject: (>display_help,display_release_notes,load_from_uri) switch from
 perl-Gtk2-Html2 to perl-Gtk2-WebKit in order to display release notes & help

---
 perl-install/any.pm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index ac583bf54..593be7e04 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -900,18 +900,13 @@ sub display_release_notes {
                     }, [ {} ]);
         return;
     }
-    require Gtk2::Html2;
+    require Gtk2::WebKit;
     require ugtk2;
     ugtk2->import(':all');
     require mygtk2;
     mygtk2->import('gtknew');
-    my $view     = Gtk2::Html2::View->new;
-    my $document = Gtk2::Html2::Document->new;
-    $view->set_document($document);
-                               
-    $document->clear;
-    $document->open_stream("text/html");
-    $document->write_stream($o->{release_notes});
+    my $view     = Gtk2::WebKit::WebView->new;
+    $view->load_html_string($o->{release_notes}, '/');
                                
     my $w = ugtk2->new(N("Release Notes"), transient => $::main_window, modal => 1, pop_it => 1);
     gtkadd($w->{rwindow},
-- 
cgit v1.2.1