diff options
| -rw-r--r-- | Rpmdrake/gui.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index c7badbfa..63ae91af 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -69,6 +69,12 @@ sub compute_main_window_size { $typical_width < 150 and $typical_width = 150; } +sub get_summary { + my ($key) = @_; + my $summary = translate(to_utf8($pkgs->{$key}{summary})); + utf8::valid($summary) ? $summary : (); +} + sub format_pkg_simplifiedinfo { my ($pkgs, $key, $urpm, $descriptions) = @_; @@ -76,8 +82,8 @@ sub format_pkg_simplifiedinfo { my $raw_medium = pkg2medium($pkgs->{$key}{pkg}, $urpm); my $medium = $raw_medium ? $raw_medium->{name} : undef; my $update_descr = $pkgs->{$key}{pkg}->flag_upgrade && $descriptions->{$name}{pre} && $descriptions->{$name}{medium} eq $medium; - my $summary = translate(to_utf8($pkgs->{$key}{summary})); - my $s = ugtk2::markup_to_TextView_format(join("\n", format_header(join(' - ', $name, (utf8::valid($summary) ? $summary : ()))) . + my $summary = get_summary($key); + my $s = ugtk2::markup_to_TextView_format(join("\n", format_header(join(' - ', $name, $summary)) . # workaround gtk+ bug where GtkTextView wronly limit embedded widget size to bigger line's width (#25533): "\x{200b} \x{feff}" . ' ' x 120, if_($update_descr, # is it an update? |