diff options
| -rw-r--r-- | Rpmdrake/gui.pm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index f06ffb13..491ed1d2 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -60,7 +60,7 @@ our %pkg_columns = ( sub format_pkg_simplifiedinfo { my ($pkgs, $key, $urpm, $descriptions) = @_; - my ($name, $_version) = split_fullname($key); + my ($name, $version) = split_fullname($key); my $medium = pkg2medium($pkgs->{$key}{pkg}, $urpm)->{name}; my $update_descr = $pkgs->{$key}{pkg}->flag_upgrade && $descriptions->{$name}{pre} && $descriptions->{$name}{medium} eq $medium; my $s = ugtk2::markup_to_TextView_format(join("\n", format_header($name . ' - ' . translate($pkgs->{$key}{summary})) . @@ -83,6 +83,22 @@ sub format_pkg_simplifiedinfo { (escape_text_for_TextView_markup_format($pkgs->{$key}{description} || $descriptions->{$name}{description}) || '<i>' . N("No description") . '</i>') )) }; push @$s, [ "\n" ]; + push @$s, [ gtkadd(gtkshow(my $exp0 = Gtk2::Expander->new(format_field(N("Details:")))), + gtknew('TextView', text => ugtk2::markup_to_TextView_format( + join("\n", + format_field(N("Version: ")) . $version, + ($pkgs->{$key}{pkg}->flag_installed ? + format_field(N("Currently installed version: ")) . find_installed_version($pkgs->{$key}{pkg}) + : () + ), + format_field(N("Architecture: ")) . $pkgs->{$key}{pkg}->arch, + format_field(N("Size: ")) . N("%s KB", int($pkgs->{$key}{pkg}->size/1024)), + format_field(N("Medium: ")) . pkg2medium($pkgs->{$key}{pkg}, $urpm)->{name}, + ), + ), + )) ]; + $exp0->set_use_markup(1); + push @$s, [ "\n\n" ]; push @$s, [ gtkadd(gtkshow(my $exp = Gtk2::Expander->new(format_field(N("Files:")))), gtknew('TextView', text => exists $pkgs->{$key}{files} ? |