From 2d78714f44c2989d5304b26626f9e0bf4dfb582c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 29 Aug 2008 13:51:31 +0000
Subject: (asteriskize_if_needed) factorize code for next commits

---
 perl-install/interactive/gtk.pm | 2 +-
 perl-install/mygtk2.pm          | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 7b6e19f9a..1898726ca 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -711,7 +711,7 @@ sub create_widgets {
     # add asterisks before titles when there're more than one:
     my @all_titles = all_title_entries($l);
     if (2 <= @all_titles) {
-        ${$_->{val}} = "\x{2022} " . ${$_->{val}} foreach @all_titles;
+        ${$_->{val}} = mygtk2::asteriskize_if_needed(${$_->{val}}) foreach @all_titles;
     }
 
     my $box = create_widgets_block($o, $l, $update, \$ignore);
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 679027618..f49f8a5d0 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -1203,6 +1203,10 @@ sub _allow_scroll_TextView_to_bottom {
     };
 }
 
+sub asteriskize_if_needed {
+    my ($label) = @_;
+    "\x{2022} " . $label;
+}
 
 sub get_main_window_size() {
     my ($width, $height) = $::real_windowwidth ? ($::real_windowwidth, $::real_windowheight) : $::isWizard ? (540, 360) : (600, 400);
-- 
cgit v1.2.1