diff options
Diffstat (limited to 'Rpmdrake')
| -rw-r--r-- | Rpmdrake/gui.pm | 50 |
1 files changed, 28 insertions, 22 deletions
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 144ac22e..e172e7e1 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -183,6 +183,33 @@ sub get_details { ); } +sub get_new_deps { + my ($urpm, $upkg) = @_; + my $deps_textview; + my @a = [ gtkadd( + gtksignal_connect( + gtkshow(my $dependencies = Gtk2::Expander->new(format_field(N("New dependencies:")))), + activate => sub { + slow_func($::main_window->window, sub { + my $state = {}; + my @requested = $urpm->resolve_requested( + open_rpm_db(), $state, + { $upkg->id => 1 }, + ); + $urpm->disable_selected(open_rpm_db(), $state, @requested); + my @nodes_with_deps = map { urpm_name($_) } @requested; + my @deps = sort { $a cmp $b } difference2(\@nodes_with_deps, [ urpm_name($upkg) ]); + @deps = N("No non installed dependancy.") if !@deps; + gtktext_insert($deps_textview, join("\n", @deps)); + }); + } + ), + $deps_textview = gtknew('TextView') + ) ]; + $dependencies->set_use_markup(1); + @a; +} + sub format_pkg_simplifiedinfo { my ($pkgs, $key, $urpm, $descriptions) = @_; my ($name) = split_fullname($key); @@ -232,28 +259,7 @@ sub format_pkg_simplifiedinfo { push @$s, [ "\n\n" ]; if ($upkg->id) { # If not installed - my $deps_textview; - push @$s, [ gtkadd( - gtksignal_connect( - gtkshow(my $dependencies = Gtk2::Expander->new(format_field(N("New dependencies:")))), - activate => sub { - slow_func($::main_window->window, sub { - my $state = {}; - my @requested = $urpm->resolve_requested( - open_rpm_db(), $state, - { $upkg->id => 1 }, - ); - $urpm->disable_selected(open_rpm_db(), $state, @requested); - my @nodes_with_deps = map { urpm_name($_) } @requested; - my @deps = sort { $a cmp $b } difference2(\@nodes_with_deps, [ urpm_name($upkg) ]); - @deps = N("No non installed dependancy.") if !@deps; - gtktext_insert($deps_textview, join("\n", @deps)); - }); - } - ), - $deps_textview = gtknew('TextView') - ) ]; - $dependencies->set_use_markup(1); + push @$s, get_new_deps($urpm, $upkg); } $s; |