From 56be9b32a55b53a5d9fcd10b54eef33081881309 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 26 Aug 2005 22:10:54 +0000
Subject: add a cople missing titles

---
 perl-install/install_steps_gtk.pm         | 4 ++--
 perl-install/install_steps_interactive.pm | 7 ++++---
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index fc43cee55..2d8a2d190 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -208,7 +208,7 @@ sub selectMouse {
 sub reallyChooseGroups {
     my ($o, $size_to_display, $individual, $_compssUsers) = @_;
 
-    my $w = ugtk2->new('');
+    my $w = ugtk2->new(N("Package Group Selection"));
     my $w_size = gtknew('Label', text => &$size_to_display);
 
     my $entry = sub {
@@ -596,7 +596,7 @@ N("There was an error installing packages:"), $1, N("Go on anyway?") ], 1) and r
 sub summary_prompt {
     my ($o, $l, $check_complete) = @_;
 
-    my $w = ugtk2->new('');
+    my $w = ugtk2->new(N("Summary"));
 
     my $set_entry_labels;
     my @table;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2e1f9f762..575c467ab 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -801,7 +801,7 @@ sub installUpdates {
     $o->hasNetwork or return;
 
     if (is_empty_hash_ref($u)) {
-	$o->ask_yesorno_({ messages => formatAlaTeX(
+	$o->ask_yesorno_({ title => N("Updates"), messages => formatAlaTeX(
 N("You now have the opportunity to download updated packages. These packages
 have been updated after the distribution was released. They may
 contain security or bug fixes.
@@ -1304,7 +1304,7 @@ sub generateAutoInstFloppy {
 sub exitInstall {
     my ($o, $alldone) = @_;
 
-    return $o->{step} = '' if !$alldone && !$o->ask_yesorno('', 
+    return $o->{step} = '' if !$alldone && !$o->ask_yesorno(N("Warning"), 
 N("Some steps are not completed.
 
 Do you really want to quit now?"), 0);
@@ -1315,6 +1315,7 @@ Do you really want to quit now?"), 0);
 
     $o->ask_from_no_check(
 	{
+	 title => N("Congratulations"),
 	 messages => formatAlaTeX(install_messages::install_completed()),
 	 interactive_help_id => 'exitInstall',
 	 ok => $::local_install ? N("Quit") : N("Reboot"),
@@ -1322,7 +1323,7 @@ Do you really want to quit now?"), 0);
 	[
 	 if_(arch() !~ /^ppc/,
 	     { val => \ (my $_t1 = N("Generate auto install floppy")), clicked => sub {
-		   my $t = $o->ask_from_list_('', 
+		   my $t = $o->ask_from_list_(N("Generate auto install floppy"), 
 N("The auto install can be fully automated if wanted,
 in that case it will take over the hard drive!!
 (this is meant for installing on another box).
-- 
cgit v1.2.1