From 4473fb769b8aa88daede1eaaa4c65e74cbd17401 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 19 Nov 2013 21:37:27 +0100
Subject: use Gtk3 namespace instead of Gtk2

---
 Rpmdrake/gui.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'Rpmdrake/gui.pm')

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 8a471901..9181a3da 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -113,7 +113,7 @@ sub build_expander {
     my $textview;
     gtkadd(
         gtkshow(my $exp = gtksignal_connect(
-            Gtk2::Expander->new(format_field($label)),
+            Gtk3::Expander->new(format_field($label)),
             activate => sub {
                 state $first;
                 return if $first;
@@ -132,7 +132,7 @@ sub build_expander {
 
 sub get_advisory_link {
     my ($update_descr) = @_;
-    my $link = gtkshow(Gtk2::LinkButton->new($update_descr->{URL}, N("Security advisory")));
+    my $link = gtkshow(Gtk3::LinkButton->new($update_descr->{URL}, N("Security advisory")));
     $link->set_uri_hook(\&run_help_callback);
     [ $link ];
 }
@@ -226,7 +226,7 @@ sub get_new_deps {
     my $deps_textview;
     my @a = [ gtkadd(
         gtksignal_connect(
-            gtkshow(my $dependencies = Gtk2::Expander->new(format_field(N("New dependencies:")))), 
+            gtkshow(my $dependencies = Gtk3::Expander->new(format_field(N("New dependencies:")))), 
             activate => sub { 
                 slow_func($::main_window->window, sub {
                               my $state = {};
@@ -263,7 +263,7 @@ sub get_url_link {
 
     my @a =
       (@{ ugtk3::markup_to_TextView_format(format_field("\n$spacing" . N("URL: "))) },
-        [ my $link = gtkshow(Gtk2::LinkButton->new($url, $url)) ]);
+        [ my $link = gtkshow(Gtk3::LinkButton->new($url, $url)) ]);
     $link->set_uri_hook(\&run_help_callback);
     @a;
 }
@@ -295,7 +295,7 @@ sub format_pkg_simplifiedinfo {
     push @$s, [ "\n" ];
     my $installed_version = eval { find_installed_version($upkg) };
 
-    push @$s, [ gtkadd(gtkshow(my $details_exp = Gtk2::Expander->new(format_field(N("Details:")))),
+    push @$s, [ gtkadd(gtkshow(my $details_exp = Gtk3::Expander->new(format_field(N("Details:")))),
                        gtknew('TextView', text => get_details($pkg, $upkg, $installed_version, $raw_medium))) ];
     $details_exp->set_use_markup(1);
     push @$s, [ "\n\n" ];
@@ -736,7 +736,7 @@ sub deps_msg {
                                      interactive_msg(N("More information on package..."), get_info($pkg), scroll => 1);
                                  }) ] } @deps ],
                 [ gtknew('Button', text => N("Ok"), 
-                         clicked => sub { Gtk2->main_quit }) ]
+                         clicked => sub { Gtk3->main_quit }) ]
             );
             goto deps_msg_again;
         } else {
@@ -898,7 +898,7 @@ sub real_quit() {
     if (is_there_selected_packages()) {
         interactive_msg(N("Some packages are selected."), N("Some packages are selected.") . "\n" . N("Do you really want to quit?"), yesno => 1) or return;
     }
-    Gtk2->main_quit;
+    Gtk3->main_quit;
 }
 
 sub do_action__real {
-- 
cgit v1.2.1