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/drakautoinst | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index e1d27a72a..63b8c4974 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -104,8 +104,8 @@ my $o_old = $o; # BUG (maybe install's $::o ?)
 my %struct_gui;
 
 if (!$::isEmbedded && $in->isa('interactive::gtk')) {
-    require ugtk2;
-    ugtk2->import(qw(:helpers :wrappers :create));
+    require ugtk3;
+    ugtk3->import(qw(:helpers :wrappers :create));
 
     my %tree;
     $struct_gui{$_} = 'General' foreach qw(lang isUpgrade autoExitInstall timezone default_packages);
@@ -138,7 +138,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
 
     exists $struct_gui{$_} and push @{$tree{$struct_gui{$_}}}, [ $_ , $pixmap{$_}, h2widget($o->{$_}, "\$o->\{$_}") ] foreach keys %$o;
 
-    my $W = ugtk2->new('$o edition');
+    my $W = ugtk3->new('$o edition');
     my @box_to_hide;
     my $nb_pages=0;
     my $notebook = Gtk2::Notebook->new;
-- 
cgit v1.2.1