diff options
Diffstat (limited to 'Rpmdrake/edit_urpm_sources.pm')
| -rw-r--r-- | Rpmdrake/edit_urpm_sources.pm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/Rpmdrake/edit_urpm_sources.pm b/Rpmdrake/edit_urpm_sources.pm index 960ac7f4..bcfe5bd5 100644 --- a/Rpmdrake/edit_urpm_sources.pm +++ b/Rpmdrake/edit_urpm_sources.pm @@ -39,8 +39,8 @@ use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(run); -use mygtk2 qw(gtknew gtkset); -use ugtk2 qw(:all); +use mygtk3 qw(gtknew gtkset); +use ugtk3 qw(:all); my $urpm; my ($mainw, $list_tv, $something_changed); @@ -165,7 +165,7 @@ sub easy_add_callback() { } sub add_callback() { - my $w = ugtk2->new(N("Add a medium"), grab => 1, center => 1, transient => $::main_window); + my $w = ugtk3->new(N("Add a medium"), grab => 1, center => 1, transient => $::main_window); my $prev_main_window = $::main_window; local $::main_window = $w->{real_window}; my %radios_infos = ( @@ -334,7 +334,7 @@ really want to replace it?"), yesno => 1) or return 0; } sub options_callback() { - my $w = ugtk2->new(N("Global options for package installation"), grab => 1, center => 1, transient => $::main_window); + my $w = ugtk3->new(N("Global options for package installation"), grab => 1, center => 1, transient => $::main_window); local $::main_window = $w->{real_window}; my %verif = (0 => N("never"), 1 => N("always")); my $verify_rpm = $urpm->{global_config}{'verify-rpm'}; @@ -470,7 +470,7 @@ sub edit_callback() { my $config = urpm::cfg::load_config_raw($urpm->{config}, 1); my ($verbatim_medium) = grep { $medium->{name} eq $_->{name} } @$config; my $old_main_window = $::main_window; - my $w = ugtk2->new(N("Edit a medium"), grab => 1, center => 1, transient => $::main_window); + my $w = ugtk3->new(N("Edit a medium"), grab => 1, center => 1, transient => $::main_window); local $::main_window = $w->{real_window}; my ($url_entry, $downloader_entry, $url, $downloader); gtkadd( @@ -550,7 +550,7 @@ sub update_callback() { sub proxy_callback { my ($medium) = @_; my $medium_name = $medium ? $medium->{name} : ''; - my $w = ugtk2->new(N("Configure proxies"), grab => 1, center => 1, transient => $::main_window); + my $w = ugtk3->new(N("Configure proxies"), grab => 1, center => 1, transient => $::main_window); local $::main_window = $w->{real_window}; my ($proxy, $proxy_user) = readproxy($medium_name); my ($user, $pass) = $proxy_user =~ /^([^:]*):(.*)$/; @@ -648,7 +648,7 @@ sub remove_parallel { sub add_callback_ { my ($title, $label, $mainw, $widget, $get_value, $check) = @_; - my $w = ugtk2->new($title, grab => 1, transient => $mainw->{real_window}); + my $w = ugtk3->new($title, grab => 1, transient => $mainw->{real_window}); local $::main_window = $w->{real_window}; gtkadd( $w->{window}, @@ -670,7 +670,7 @@ sub add_callback_ { sub edit_parallel { my ($num, $conf) = @_; my $edited = $num == -1 ? {} : $conf->[$num]; - my $w = ugtk2->new($num == -1 ? N("Add a parallel group") : N("Edit a parallel group"), grab => 1, center => 1, transient => $::main_window); + my $w = ugtk3->new($num == -1 ? N("Add a parallel group") : N("Edit a parallel group"), grab => 1, center => 1, transient => $::main_window); local $::main_window = $w->{real_window}; my $name_entry; @@ -777,7 +777,7 @@ sub edit_parallel { } sub parallel_callback() { - my $w = ugtk2->new(N("Configure parallel urpmi (distributed execution of urpmi)"), grab => 1, center => 1, transient => $mainw->{real_window}); + my $w = ugtk3->new(N("Configure parallel urpmi (distributed execution of urpmi)"), grab => 1, center => 1, transient => $mainw->{real_window}); local $::main_window = $w->{real_window}; my $list_ls = Gtk2::ListStore->new("Glib::String", "Glib::String", "Glib::String", "Glib::String"); my $list = Gtk2::TreeView->new_with_model($list_ls); @@ -836,7 +836,7 @@ sub parallel_callback() { } sub keys_callback() { - my $w = ugtk2->new(N("Manage keys for digital signatures of packages"), grab => 1, center => 1, transient => $mainw->{real_window}); + my $w = ugtk3->new(N("Manage keys for digital signatures of packages"), grab => 1, center => 1, transient => $mainw->{real_window}); local $::main_window = $w->{real_window}; $w->{real_window}->set_size_request(600, 300); @@ -951,7 +951,7 @@ sub keys_callback() { sub mainwindow() { undef $something_changed; - $mainw = ugtk2->new(N("Configure media"), center => 1, transient => $::main_window, modal => 1); + $mainw = ugtk3->new(N("Configure media"), center => 1, transient => $::main_window, modal => 1); local $::main_window = $mainw->{real_window}; my $reread_media; @@ -1128,7 +1128,7 @@ sub mainwindow() { gtkpack_( gtknew('VBox', spacing => 5), 0, $menu, - ($0 =~ /rpm-edit-media|edit-urpm-sources/ ? (0, Gtk2::Banner->new($ugtk2::wm_icon, N("Configure media"))) : ()), + ($0 =~ /rpm-edit-media|edit-urpm-sources/ ? (0, Gtk2::Banner->new($ugtk3::wm_icon, N("Configure media"))) : ()), 1, gtkpack_( gtknew('HBox', spacing => 10), 1, gtknew('ScrolledWindow', child => $list_tv), @@ -1180,7 +1180,7 @@ sub mainwindow() { sub run() { # ignore rpmdrake's option regarding ignoring debug media: local $ignore_debug_media = [ 0 ]; - local $ugtk2::wm_icon = get_icon('rpmdrake-mdk', 'title-media'); + local $ugtk3::wm_icon = get_icon('rpmdrake-mdk', 'title-media'); my $lock; { $urpm = fast_open_urpmi_db(); |