summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-27 16:35:26 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-27 16:35:26 +0000
commitf018bbec54a91cf6e8801a6df5af8b275542f011 (patch)
treeb26210cb2ad3c0b9652038a1fe778f8c93534d03 /perl-install
parent059c4e9ce898e59ac9a812c403be88439a139833 (diff)
downloaddrakx-f018bbec54a91cf6e8801a6df5af8b275542f011.tar
drakx-f018bbec54a91cf6e8801a6df5af8b275542f011.tar.gz
drakx-f018bbec54a91cf6e8801a6df5af8b275542f011.tar.bz2
drakx-f018bbec54a91cf6e8801a6df5af8b275542f011.tar.xz
drakx-f018bbec54a91cf6e8801a6df5af8b275542f011.zip
(main) render title in blue
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs/partitioning_wizard.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/fs/partitioning_wizard.pm b/perl-install/fs/partitioning_wizard.pm
index 31ca06784..c28261426 100644
--- a/perl-install/fs/partitioning_wizard.pm
+++ b/perl-install/fs/partitioning_wizard.pm
@@ -270,11 +270,14 @@ sub main {
log::l('HERE: ', join(',', map { $_->[1] } @solutions));
my $sol;
- $o->ask_from_({ messages => N("The DrakX Partitioning wizard found the following solutions:"),
+ $o->ask_from_({
title => N("Partitioning"),
interactive_help_id => 'doPartitionDisks',
- },
- [ { val => \$sol, list => \@solutions, format => sub { $_[0][1] }, type => 'list' } ]);
+ },
+ [
+ { label => N("The DrakX Partitioning wizard found the following solutions:"), title => 1 },
+ { val => \$sol, list => \@solutions, format => sub { $_[0][1] }, type => 'list' },
+ ]);
log::l("partitionWizard calling solution $sol->[1]");
my $ok = eval { $sol->[2]->() };
if (my $err = $@) {