diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 17:16:09 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:33 +0100 |
| commit | 504f6c89db28716c7038153fb7838565b4ba0583 (patch) | |
| tree | ca6e1c843dfb368d34f5c6b89f962d61415525ee /perl-install/standalone/drakautoinst | |
| parent | 3252bfe856428c0a38ba7edb0f0ad6245537df6e (diff) | |
| download | drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.gz drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.bz2 drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.xz drakx-504f6c89db28716c7038153fb7838565b4ba0583.zip | |
use (my|u)gtk3 instead of *tk2
Diffstat (limited to 'perl-install/standalone/drakautoinst')
| -rwxr-xr-x | perl-install/standalone/drakautoinst | 6 |
1 files changed, 3 insertions, 3 deletions
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; |