diff options
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 19 |
1 files changed, 19 insertions, 0 deletions
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); } |