summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_steps_gtk.pm4
-rw-r--r--perl-install/install_steps_interactive.pm7
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).