summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-21 14:49:41 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-21 14:49:41 +0000
commitc5ccb2d05f93ccdaf9f61df92fd603c2dba4993c (patch)
tree1d46de375fe450bc338c4093cb320937067216e8 /perl-install/install/steps_gtk.pm
parent7c377cbe86f3b23cbff853381c30cb410fab2b26 (diff)
downloaddrakx-c5ccb2d05f93ccdaf9f61df92fd603c2dba4993c.tar
drakx-c5ccb2d05f93ccdaf9f61df92fd603c2dba4993c.tar.gz
drakx-c5ccb2d05f93ccdaf9f61df92fd603c2dba4993c.tar.bz2
drakx-c5ccb2d05f93ccdaf9f61df92fd603c2dba4993c.tar.xz
drakx-c5ccb2d05f93ccdaf9f61df92fd603c2dba4993c.zip
(enteringStep) move default per step banner title & icon into step_lists' steps table
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
-rw-r--r--perl-install/install/steps_gtk.pm22
1 files changed, 3 insertions, 19 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index f9c508ba5..4c56d012b 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -149,29 +149,13 @@ 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};
+ if (my @banner_elts = @{$o->{steps}{$step}}{qw(banner_icon banner_title)}) {
+ ugtk2::set_default_step_items(@banner_elts);
+ }
$o->SUPER::enteringStep($step);
install::gtk::update_steps_position($o);
}