(update_steps_position) update icon of previous step once entering a new step

(partially reverting r243684 from 2008-07-29)

1 files changed, 6 insertions, 0 deletions

diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index 49a1ddb17..d343eb0af 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -150,12 +150,18 @@ 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});
+            if ($last_step) {
+                $steps{steps}{$last_step}{img}->set_from_pixbuf($steps{done});
+                $steps{steps}{$last_step}{text}->set_markup('<b>' . $steps{steps}{$last_step}{raw_text} . '</b>');
+            }
 	    return;
 	}
+        $last_step = $_;
     }
     mygtk2::flush(); #- for auto_installs which never go through the Gtk2 main loop
 }