diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-18 15:41:22 +0100 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-12-03 12:41:59 +0100 |
commit | 6c1fa5cd83b0d46528ee8cecda42f9b1adca0b32 (patch) | |
tree | 65f17daac4db1448b4e1e5fa1ced74205dceb3d2 /mgaapplet_gui.pm | |
parent | d4a868b475f8bc0c30ce7743f97c3dbebc9344ac (diff) | |
download | mgaonline-6c1fa5cd83b0d46528ee8cecda42f9b1adca0b32.tar mgaonline-6c1fa5cd83b0d46528ee8cecda42f9b1adca0b32.tar.gz mgaonline-6c1fa5cd83b0d46528ee8cecda42f9b1adca0b32.tar.bz2 mgaonline-6c1fa5cd83b0d46528ee8cecda42f9b1adca0b32.tar.xz mgaonline-6c1fa5cd83b0d46528ee8cecda42f9b1adca0b32.zip |
use (my|u)gtk3 instead of *tk2
Diffstat (limited to 'mgaapplet_gui.pm')
-rw-r--r-- | mgaapplet_gui.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mgaapplet_gui.pm b/mgaapplet_gui.pm index ebec40a3..605cf3c8 100644 --- a/mgaapplet_gui.pm +++ b/mgaapplet_gui.pm @@ -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 ugtk2 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"; @@ -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 { @@ -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); |