diff options
Diffstat (limited to 'mgaapplet_gui.pm')
-rw-r--r-- | mgaapplet_gui.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/mgaapplet_gui.pm b/mgaapplet_gui.pm index ebec40a3..e5d87b24 100644 --- a/mgaapplet_gui.pm +++ b/mgaapplet_gui.pm @@ -6,7 +6,7 @@ package mgaapplet_gui; # Copyright (C) 2003-2010 Mandriva # # # # Daouda Lo # -# Thierry Vignaud <tvignaud at mandriva dot com> # +# Thierry Vignaud <thierry.vignaud at gmail dot com> # # # # This program is free software; you can redistribute it and/or modify # # it under the terms of the GNU General Public License Version 2 as # @@ -46,14 +46,14 @@ our @EXPORT_OK = qw( run_no_rights_dialog ); -use mygtk2 qw(gtknew); #- do not import gtkadd which conflicts with ugtk2 version -use ugtk2 qw(:all); +use mygtk3 qw(gtknew); #- do not import gtkadd which conflicts with ugtk3 version +use ugtk3 qw(:all); use mgaonline qw(); # you don't want to polute the namespace use interactive; use interactive::gtk; use lib qw(/usr/lib/libDrakX/drakfirsttime); -ugtk2::add_icon_path("/usr/share/mgaonline/pixmaps/"); +ugtk3::add_icon_path("/usr/share/mgaonline/pixmaps/"); our $localdir = "$ENV{HOME}/.MgaOnline"; our $localfile = "$localdir/mgaonline"; @@ -62,7 +62,7 @@ our $localfile = "$localdir/mgaonline"; mkdir_p($localdir) if !-d $localdir; -e "$ENV{HOME}/.mgaonline" and system("mv", "$ENV{HOME}/.mgaonline", $localfile); -interactive::gtk::add_padding(Gtk2::Label->new); +interactive::gtk::add_padding(Gtk3::Label->new); our %local_config; read_local_config(); @@ -77,7 +77,7 @@ our @common = ( sub new_portable_dialog { my ($title) = @_; - ugtk2->new($title, width => $width + 20); + ugtk3->new($title, width => $width + 20); } sub fill_n_run_portable_dialog { @@ -113,7 +113,7 @@ sub fill_n_run_portable_dialog { sub new_link_button { my ($url, $text) = @_; - my $link = Gtk2::LinkButton->new($url, $text); + my $link = Gtk3::LinkButton->new($url, $text); $link->set_uri_hook(sub { my (undef, $url) = @_; run_program::raw({ detach => 1, setuid => get_parent_uid() }, 'www-browser', $url); @@ -160,7 +160,7 @@ sub run_ask_credentials_dialog { $password_text = $password_w->get_text; $email_text = $email_w->get_text; $ok_clicked = 1; - Gtk2->main_quit; + Gtk3->main_quit; }; my @widgets = ( @@ -197,7 +197,7 @@ sub run_ask_credentials_dialog { ) ) ]), - ugtk2::create_okcancel($w, N("Next"), N("Cancel")), + ugtk3::create_okcancel($w, N("Next"), N("Cancel")), ); fill_n_run_portable_dialog($w, \@widgets); |