From 504f6c89db28716c7038153fb7838565b4ba0583 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 1 Aug 2012 17:16:09 +0200
Subject: use (my|u)gtk3 instead of *tk2

---
 perl-install/standalone/drakdvb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index ce735cafa..9ed351b71 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -22,14 +22,14 @@ use lib qw(/usr/lib/libDrakX);
 use MDK::Common;
 use common;
 use standalone;
-use mygtk2;
+use mygtk3;
 use interactive;
-use ugtk2 qw(:create :helpers :wrappers);
+use ugtk3 qw(:create :helpers :wrappers);
 use Gtk2::SimpleList;
 
 my $title = N("DVB");
-$ugtk2::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png";
-my $w = ugtk2->new($title);
+$ugtk3::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png";
+my $w = ugtk3->new($title);
 $w->{window}->signal_connect('destroy' => \&exitapp);
 mygtk3::register_main_window($w->{real_window});
 my $in = 'interactive'->vnew;
@@ -77,7 +77,7 @@ sub detect_channels() {
         $buttons{detect}->set_sensitive(1);
         $channel_list->set_sensitive(1);
     };
-    $wait = ugtk2->new(N("Please wait"), grab => 1);
+    $wait = ugtk3->new(N("Please wait"), grab => 1);
     $wait->{window}->signal_connect('destroy' => \&exitapp);
     if ($pid = fork()) {
         gtkadd($wait->{window},
@@ -142,7 +142,7 @@ sub launch_tv() {
 
 gtkadd($w->{window},
        gtknew('VBox', spacing => 5, children => [
-                  $::isEmbedded ? () : (0, Gtk2::Banner->new($ugtk2::wm_icon, $title)),
+                  $::isEmbedded ? () : (0, Gtk2::Banner->new($ugtk3::wm_icon, $title)),
                   1, gtknew('ScrolledWindow', width => 300, height => 400, child => $channel_list),
                   0, gtknew('HButtonBox', layout => 'end', children_loose => [
                                 $buttons{detect} = gtknew('Button', text => N("Detect Channels"), clicked => \&detect_channels),
-- 
cgit v1.2.1