From ac285b11833596a5aa250f0083b7852b72374815 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 30 Jul 2008 17:35:16 +0000
Subject: (update_steps_position) update icon of previous step once entering a
 new step (partially reverting r243684 from 2008-07-29)

---
 perl-install/install/gtk.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/install/gtk.pm')

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
 }
-- 
cgit v1.2.1