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/any.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index a04c47f5e..a19b1c057 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -1027,7 +1027,7 @@ sub display_release_notes {
         return;
     }
 
-    require Gtk2::WebKit;
+    require Gtk3::WebKit;
     require ugtk3;
     ugtk3->import(':all');
     require mygtk3;
@@ -1037,13 +1037,13 @@ sub display_release_notes {
                                
     my $w = ugtk3->new(N("Release Notes"), transient => $::main_window, modal => 1, pop_it => 1);
     gtkadd($w->{rwindow},
-           gtkpack_(Gtk2::VBox->new,
+           gtkpack_(Gtk3::VBox->new,
                     1, create_scrolled_window(ugtk3::gtkset_border_width($view, 5),
                                               [ 'never', 'automatic' ],
                                           ),
                     0, gtkpack(create_hbox('end'),
                                gtknew('Button', text => N("Close"),
-                                      clicked => sub { Gtk2->main_quit })
+                                      clicked => sub { Gtk3->main_quit })
                            ),
                 ),
        );
@@ -1201,7 +1201,7 @@ sub selectLanguage_standalone {
     ]);
     $locale->{utf8} = !$non_utf8;
     lang::set($locale);
-    Gtk2->set_locale if $in->isa('interactive::gtk');
+    Gtk3->set_locale if $in->isa('interactive::gtk');
     lang::lang_changed($locale) if $old_lang ne $locale->{lang};
 }
 
-- 
cgit v1.2.1