summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-08-26 22:10:54 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-08-26 22:10:54 +0000
commit56be9b32a55b53a5d9fcd10b54eef33081881309 (patch)
tree8e1a82dfe9fa9a4315ee2ceec6b8af38e3fe4139 /perl-install
parent14cc92c3e02226f135d6ec6330c245fe7746ec17 (diff)
downloaddrakx-56be9b32a55b53a5d9fcd10b54eef33081881309.tar
drakx-56be9b32a55b53a5d9fcd10b54eef33081881309.tar.gz
drakx-56be9b32a55b53a5d9fcd10b54eef33081881309.tar.bz2
drakx-56be9b32a55b53a5d9fcd10b54eef33081881309.tar.xz
drakx-56be9b32a55b53a5d9fcd10b54eef33081881309.zip
add a cople missing titles
Diffstat (limited to 'perl-install')
-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).