aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xrpmdrake18
1 files changed, 17 insertions, 1 deletions
diff --git a/rpmdrake b/rpmdrake
index bac304ce..26d1e9cf 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -597,7 +597,7 @@ sub format_field {
sub format_pkg_simplifiedinfo {
my ($pkgs, $key, $urpm, $descriptions) = @_;
my ($name, $version) = split_fullname($key);
- ugtk2::markup_to_TextView_format(join("\n", format_header($name . ' - ' . $pkgs->{$key}{summary}),
+ my $s = ugtk2::markup_to_TextView_format(join("\n", format_header($name . ' - ' . $pkgs->{$key}{summary}),
if_(
$MODE eq 'update',
format_field(N("Importance: ")) . escape_text_for_TextView_markup_format($descriptions->{$name}{importance}),
@@ -606,6 +606,22 @@ sub format_pkg_simplifiedinfo {
'', # extra empty line
(escape_text_for_TextView_markup_format($pkgs->{$key}{description} || $descriptions->{$name}{description}) || '<i>' . N("No description") . '</i>'),
));
+ push @$s, [ "\n\n" ];
+ push @$s, [ gtkadd(gtkshow(my $exp = Gtk2::Expander->new(format_field(N("Files:\n")))),
+ exists $pkgs->{$key}{files}
+ ? gtktext_insert(Gtk2::TextView->new,
+ ugtk2::markup_to_TextView_format('<tt>' . join("\n", map { "\x{200e}$_" } @{$pkgs->{$key}{files}}) . '</tt>') #- to highlight information
+ )
+ : N("(Not available)"),
+ ) ];
+ $exp->set_use_markup(1);
+ push @$s, [ "\n\n" ];
+ push @$s, [ gtkadd(gtkshow(my $exp2 = Gtk2::Expander->new(format_field(N("Changelog:\n")))),
+ gtktext_insert(Gtk2::TextView->new, $pkgs->{$key}{changelog} ? $pkgs->{$key}{changelog} : N("(Not available)"))
+ ) ];
+ $exp2->set_use_markup(1);
+ $s;
+
}
sub format_pkg_info {