(all_title_entries,create_widgets) add asterisks before titles when there're more than one:

1 files changed, 11 insertions, 0 deletions

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 5c7ad2ee9..f49c9db9e 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -589,6 +589,11 @@ sub all_focusable_entries {
     grep { $_->{focus_w} } @$l;
 }
 
+sub all_title_entries {
+    my ($l) = @_;
+    grep { $_->{title} } @$l;
+}
+
 sub create_widgets_block {
     my ($o, $l, $update, $ignore_ref) = @_;
 
@@ -702,6 +707,12 @@ sub create_widgets {
 	};
     }
 
+    # add asterisks before titles when there're more than one:
+    my @all_titles = all_title_entries($l);
+    if (1 <= @all_titles) {
+        ${$_->{val}} = "· " . ${$_->{val}} foreach @all_titles;
+    }
+
     my $box = create_widgets_block($o, $l, $update, \$ignore);
 
     my $tooltips = Gtk2::Tooltips->new;