From b9e700aea8f8dfae031d9ff923f00393b052fd3d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 1 Aug 2012 17:16:30 +0200
Subject: use Gtk3 namespace instead of Gtk2

---
 perl-install/standalone/display_help | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install/standalone/display_help')

diff --git a/perl-install/standalone/display_help b/perl-install/standalone/display_help
index bc219eb8a..bd857d092 100755
--- a/perl-install/standalone/display_help
+++ b/perl-install/standalone/display_help
@@ -24,7 +24,7 @@ use common;
 use any;
 use mygtk3 qw(gtknew);
 use ugtk3 qw(:wrappers :create);
-use Gtk2::WebKit;
+use Gtk3::WebKit;
 
 my $view = gtknew('WebKit_View', no_popup_menu => 1);
 
@@ -54,17 +54,17 @@ if (!$is_firstime) {
 my $w = ugtk3->new(N("Help"), width => $default_width, height => $default_height);
 
 gtkadd($w->{rwindow},
-       gtkpack_(Gtk2::VBox->new,
+       gtkpack_(Gtk3::VBox->new,
                 if_(!$is_firstime,
                     0, gtknew('Title2', label => N("Help")),
-                    0, Gtk2::HSeparator->new,
+                    0, Gtk3::HSeparator->new,
                 ),
                 1, create_scrolled_window(gtkset_border_width($view, 5), [ 'never', 'automatic' ]),
                 #1, gtknew('ScrolledWindow', child => $view, border_width => 5, h_policy => 'never');
-                0, Gtk2::HSeparator->new,
+                0, Gtk3::HSeparator->new,
                 if_(!$is_firstime,
                     0, gtkpack(create_hbox('end'),
-                               gtknew('Button', text => N("Close"), clicked => sub { Gtk2->main_quit })
+                               gtknew('Button', text => N("Close"), clicked => sub { Gtk3->main_quit })
                            ),
                 ),
             ),
-- 
cgit v1.2.1