From ecda8e2422b223d015dddff46cae64ef08d0ee28 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 14 Aug 2007 09:10:08 +0000
Subject: (enteringStep) set default banner's icon & title per install step in
 order to have better default banner's title & icon

---
 perl-install/install/NEWS         |  1 +
 perl-install/install/steps_gtk.pm | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index af8b64ae7..f4152d2a7 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- use better default title & icon for banners
 - diskdrake:
   o add support for 'relatime' mount option
   o default laptops to 'relatime' mount option rather than 'noatime'
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index cc1b9e459..f9c508ba5 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -149,10 +149,29 @@ sub new($$) {
     $o;
 }
 
+# (icon, title)
+my %default_step_items = (
+    acceptLicense   => [ 'banner-license', N("License agreement") ],
+    selectLanguage  => [ 'banner-languages', N("Localization") ],
+    selectKeyboard  => [ 'banner-languages', N("Localization") ],
+    doPartitionDisksBefore => [ 'banner-part', N("Partitioning") ],
+    doPartitionDisks => [ 'banner-part', N("Partitioning") ],
+    selectInstallClass => [ 'banner-sys', N("_: Keep these entry short\nInstallation class") ],
+    chooseGroups    => [ 'banner-sys', N("Package Group Selection") ],
+    installPackages => [ 'banner-sys', N("Installing") ],
+    summary         => [ 'banner-summary', N("Summary") ],
+    auth            => [ 'banner-pw', N("Authentication") ],
+    setupBootloaderBefore => [ 'banner-bootL', N("_: Keep these entry short\nBootloader") ],
+    setupBootloader => [ 'banner-bootL', N("_: Keep these entry short\nBootloader") ],
+    installUpdates  => [ 'banner-update', N("Updates") ],
+    exitInstall     => [ 'banner-exit', N("Exit") ],
+);
+
 sub enteringStep {
     my ($o, $step) = @_;
 
     printf "Entering step `%s'\n", common::remove_translate_context($o->{steps}{$step}{text});
+    ugtk2::set_default_step_items(@{$default_step_items{$step}}) if $default_step_items{$step};
     $o->SUPER::enteringStep($step);
     install::gtk::update_steps_position($o);
 }
-- 
cgit v1.2.1