summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-27 19:51:28 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-27 19:51:28 +0000
commit682e70f7ef5f6101640620028bd564f333b81814 (patch)
tree99415e1dc5a13d36b4271be1f2c3d907ee6978c0 /perl-install/interactive
parentd1be9699a81006755dd0ef76b6b8f8874d4de766 (diff)
downloaddrakx-682e70f7ef5f6101640620028bd564f333b81814.tar
drakx-682e70f7ef5f6101640620028bd564f333b81814.tar.gz
drakx-682e70f7ef5f6101640620028bd564f333b81814.tar.bz2
drakx-682e70f7ef5f6101640620028bd564f333b81814.tar.xz
drakx-682e70f7ef5f6101640620028bd564f333b81814.zip
(all_title_entries,create_widgets) add asterisks before titles when there're more than one:
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm11
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;