From 682e70f7ef5f6101640620028bd564f333b81814 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 27 Aug 2008 19:51:28 +0000 Subject: (all_title_entries,create_widgets) add asterisks before titles when there're more than one: --- perl-install/interactive/gtk.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'perl-install/interactive') 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; -- cgit v1.2.1