diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-26 07:07:27 +0100 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-12-05 14:20:25 +0100 |
commit | c059ed1a4c9a21410ef6db2b9b9fc0d46a1300aa (patch) | |
tree | 70c293590cc506c648992fa9dddfc238847f4ab2 /gurpmi | |
parent | c8725fe88157ed9be4bd58c6ace28f5c68f91d9f (diff) | |
download | urpmi-c059ed1a4c9a21410ef6db2b9b9fc0d46a1300aa.tar urpmi-c059ed1a4c9a21410ef6db2b9b9fc0d46a1300aa.tar.gz urpmi-c059ed1a4c9a21410ef6db2b9b9fc0d46a1300aa.tar.bz2 urpmi-c059ed1a4c9a21410ef6db2b9b9fc0d46a1300aa.tar.xz urpmi-c059ed1a4c9a21410ef6db2b9b9fc0d46a1300aa.zip |
use Gtk3 namespace instead of Gtk2
Diffstat (limited to 'gurpmi')
-rwxr-xr-x | gurpmi | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -10,7 +10,7 @@ BEGIN { #- set up a safe path and environment delete @ENV{qw(ENV BASH_ENV IFS CDPATH)}; } -use Gtk2; +use Gtk3; use gurpmi; use urpm::util 'basename'; @@ -29,17 +29,17 @@ my @all_rpms = gurpmi::parse_command_line(); #- Now, the graphical stuff. -Gtk2->init; +Gtk3->init; #- Create main window -$mainw = Gtk2::Window->new('toplevel'); +$mainw = Gtk3::Window->new('toplevel'); $mainw->set_border_width(3); $mainw->set_title(N("RPM installation")); $mainw->signal_connect(destroy => \&cancel_n_quit); $mainw->set_position('center'); $mainw->set_modal(0); -$mainbox = Gtk2::VBox->new(0, 5); +$mainbox = Gtk3::VBox->new(0, 5); $mainw->add($mainbox); sub all_descriptions { @@ -50,11 +50,11 @@ sub all_descriptions { foreach (@all_rpms) { unless (-e $_) { $mainbox->pack_start(new_label(N("Error: unable to find file %s, will cancel operation", $_)), 1, 1, 0); - my $abort_button = Gtk2::Button->new(but(N("_Ok"))); + my $abort_button = Gtk3::Button->new(but(N("_Ok"))); $abort_button->signal_connect(clicked => sub { cancel_n_quit(); exit 1 }); add_button_box($mainbox, $abort_button); $mainw->show_all; - Gtk2->main; + Gtk3->main; } /\.src\.rpm$/ ? push(@$srpms, $_) : push(@$rpms, $_); } @@ -102,9 +102,9 @@ Proceed?", all_descriptions(@all_rpms)) } { #- buttons - my $inst_button = Gtk2::Button->new(but(N("_Install"))); - my $save_button = @all_rpms == 1 ? Gtk2::Button->new(but(N("_Save"))) : undef; - my $ccel_button = Gtk2::Button->new(but(N("_Cancel"))); + my $inst_button = Gtk3::Button->new(but(N("_Install"))); + my $save_button = @all_rpms == 1 ? Gtk3::Button->new(but(N("_Save"))) : undef; + my $ccel_button = Gtk3::Button->new(but(N("_Cancel"))); $inst_button->signal_connect(clicked => sub { #- performs installation. @@ -112,7 +112,7 @@ Proceed?", all_descriptions(@all_rpms)) proceed(); }); $save_button and $save_button->signal_connect(clicked => sub { - my $file_dialog = Gtk2::FileSelection->new(N("Choose location to save file")); + my $file_dialog = Gtk3::FileSelection->new(N("Choose location to save file")); $file_dialog->set_modal(1); $file_dialog->set_position('center'); my $filename = @$srpms > 0 ? $srpms->[0] : $rpms->[0]; @@ -131,4 +131,4 @@ Proceed?", all_descriptions(@all_rpms)) } $mainw->show_all; -Gtk2->main; +Gtk3->main; |