From ed865f792817c1e9835192ad78713646a9e49946 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 3 Sep 2007 16:25:31 +0000 Subject: (fast_toggle) enable to select a package listed in urpmi's skip.list (backport, #31548) --- Rpmdrake/gui.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index b8640e37..d923b188 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -340,10 +340,16 @@ sub ask_browse_tree_given_widgets_for_rpmdrake { my $fast_toggle = sub { my ($iter) = @_; gtkset_mousecursor_wait($w->{w}{rwindow}->window); + my $_cleaner = before_leaving { gtkset_mousecursor_normal($w->{w}{rwindow}->window) }; + my $name = $w->{detail_list_model}->get($iter, $pkg_columns{text}); + my $urpm_obj = $pkgs->{$name}{pkg}; + if ($urpm_obj->flag_skip) { + interactive_msg(N("Warning"), N("The \"%s\" package is in urpmi skip list.\nDo you want to select it anyway?", $name), yesno => 1) or return ''; + $urpm_obj->set_flag_skip(0); + } toggle_nodes($w->{tree}->window, $w->{detail_list_model}, \&set_leaf_state, $w->{detail_list_model}->get($iter, $pkg_columns{state}), $w->{detail_list_model}->get($iter, $pkg_columns{text})); &$update_size; - gtkset_mousecursor_normal($w->{w}{rwindow}->window); }; $w->{detail_list}->get_selection->signal_connect(changed => sub { my ($model, $iter) = $_[0]->get_selected; -- cgit v1.2.1