From ea5bc17bc526f94904e37849e1c82c98b9026b6e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 29 Jul 2008 13:06:25 +0000 Subject: (update_steps_position) stop setting bold and italic for current step name ; stop restoring previous step title font since we do not set a specific font for current step title --- perl-install/install/gtk.pm | 7 ------- 1 file changed, 7 deletions(-) (limited to 'perl-install/install/gtk.pm') diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index e4b2f24c5..cdbd9062c 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -147,19 +147,12 @@ sub create_steps_window { sub update_steps_position { my ($o) = @_; return if !$steps{steps}; - my $last_step; foreach (@{$o->{orderedSteps}}) { exists $steps{steps}{$_} or next; if ($o->{steps}{$_}{entered} && !$o->{steps}{$_}{done}) { $steps{steps}{$_}{img}->set_from_pixbuf($steps{on}); - $steps{steps}{$_}{text}->set_markup('' . $steps{steps}{$_}{raw_text} . ''); - if ($last_step) { - $steps{steps}{$last_step}{img}->set_from_pixbuf($steps{done}); - $steps{steps}{$last_step}{text}->set_markup('' . $steps{steps}{$last_step}{raw_text} . ''); - } return; } - $last_step = $_; } mygtk2::flush(); #- for auto_installs which never go through the Gtk2 main loop } -- cgit v1.2.1