From 7050de664fe771d47045091f9177dc41b518a8cf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 22 Feb 2016 18:08:28 +0100
Subject: use real class name (s!WebKit_View!WebKit_WebView!)

---
 perl-install/any.pm                  | 2 +-
 perl-install/mygtk3.pm               | 2 +-
 perl-install/standalone/display_help | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index f4550c24d..4107edded 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1026,7 +1026,7 @@ sub display_release_notes {
     ugtk3->import(':all');
     require mygtk3;
     mygtk3->import('gtknew');
-    my $view = gtknew('WebKit_View', no_popup_menu => 1);
+    my $view = gtknew('WebKit_WebView', no_popup_menu => 1);
     $view->load_html_string($release_notes, '/');
                                
     my $w = ugtk3->new(N("Release Notes"), transient => $::main_window, modal => 1, pop_it => 1);
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index fb01ddfed..da057b856 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -603,7 +603,7 @@ sub _gtk__TextView {
     $w;
 }
 
-sub _gtk__WebKit_View {
+sub _gtk__WebKit_WebView {
     my ($w, $opts, $_class, $_action) = @_;
     if (!$w) {
         require Gtk3::WebKit;
diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help
index d91c593e5..4e5866a10 100755
--- a/perl-install/standalone/display_help
+++ b/perl-install/standalone/display_help
@@ -25,7 +25,7 @@ use mygtk3 qw(gtknew);
 use ugtk3 qw(:wrappers :create);
 use Gtk3::WebKit;
 
-my $view = gtknew('WebKit_View', no_popup_menu => 1);
+my $view = gtknew('WebKit_WebView', no_popup_menu => 1);
 
 my $websettings = $view->get_settings;
 $websettings->set_property('allow-scripts-to-close-windows', 1);
-- 
cgit v1.2.1