From 8631c51b00feadc9be8ebac138e5306557aaf1ba Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 24 Jul 2008 17:32:54 +0000 Subject: (enteringStep,get_default_step_items,set_default_step_items,summary_prompt) no more need to define a default banner icon now we do not display them anymore --- perl-install/install/steps_gtk.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/install') diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 34f9dd625..a7807e036 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -149,8 +149,8 @@ sub enteringStep { my ($o, $step) = @_; printf "Entering step `%s'\n", common::remove_translate_context($o->{steps}{$step}{text}); - if (my @banner_elts = ($o->{steps}{$step}{banner_icon}, translate($o->{steps}{$step}{banner_title}))) { - set_default_step_items(@banner_elts); + if (my $banner_title = $o->{steps}{$step}{banner_title}) { + set_default_step_items($banner_title); } $o->SUPER::enteringStep($step); install::gtk::update_steps_position($o); @@ -609,9 +609,9 @@ sub summary_prompt { gtknew('Button', text => N("Configure"), clicked => sub { $w->{rwindow}->hide; my ($old_icon, $old_title) = get_default_step_items(); - set_default_step_items($e->{banner_icon} || $old_icon, $e->{banner_title} || $old_title); + set_default_step_items($e->{banner_title} || $old_title); $e->{clicked}(); - set_default_step_items($old_icon, $old_title); + set_default_step_items($old_title); $w->{rwindow}->show; $set_entry_labels->(); }) ]; -- cgit v1.2.1