From f018bbec54a91cf6e8801a6df5af8b275542f011 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 27 Aug 2008 16:35:26 +0000
Subject: (main) render title in blue

---
 perl-install/fs/partitioning_wizard.pm | 9 ++++++---
 1 file 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 = $@) {
-- 
cgit v1.2.1