summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-07-30 17:35:16 +0000
committerThierry Vignaud <tv@mandriva.org>2008-07-30 17:35:16 +0000
commitac285b11833596a5aa250f0083b7852b72374815 (patch)
tree8cf1016bc44f2a20b4293adf1ff54b004c54550b /perl-install/install
parent8738c0f8520abccd86c29a9ddb8647d265ef7322 (diff)
downloaddrakx-ac285b11833596a5aa250f0083b7852b72374815.tar
drakx-ac285b11833596a5aa250f0083b7852b72374815.tar.gz
drakx-ac285b11833596a5aa250f0083b7852b72374815.tar.bz2
drakx-ac285b11833596a5aa250f0083b7852b72374815.tar.xz
drakx-ac285b11833596a5aa250f0083b7852b72374815.zip
(update_steps_position) update icon of previous step once entering a new step
(partially reverting r243684 from 2008-07-29)
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/gtk.pm6
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
}