diff options
Diffstat (limited to 'Rpmdrake')
| -rw-r--r-- | Rpmdrake/gui.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 7d8be590..5f09ea62 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -80,7 +80,7 @@ sub get_summary { } sub build_expander { - my ($key, $label, $type, $get_data) = @_; + my ($pkg, $label, $type, $get_data) = @_; my $textview; gtkadd( gtkshow(my $exp = gtksignal_connect( @@ -90,7 +90,7 @@ sub build_expander { return if $first; $first = 1; slow_func($::main_window->window, sub { - extract_header($pkgs->{$key}, $urpm, $type); + extract_header($pkg, $urpm, $type); gtktext_insert($textview, $get_data->() || [ [ N("(Not available)") ] ]); }); })), @@ -152,7 +152,7 @@ sub format_pkg_simplifiedinfo { )) ]; $exp0->set_use_markup(1); push @$s, [ "\n\n" ]; - push @$s, [ build_expander($key, N("Files:"), 'files', sub { + push @$s, [ build_expander($pkg, N("Files:"), 'files', sub { exists $pkg->{files} ? ugtk2::markup_to_TextView_format('<tt>' . $spacing . join("\n$spacing", @@ -160,7 +160,7 @@ sub format_pkg_simplifiedinfo { ) . '</tt>') #- to highlight information : ()}) ]; push @$s, [ "\n\n" ]; - push @$s, [ build_expander($key, N("Changelog:"), 'changelog', sub { $pkg->{changelog} }) ]; + push @$s, [ build_expander($pkg, N("Changelog:"), 'changelog', sub { $pkg->{changelog} }) ]; $s; } |