diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/gtk.pm | 6 |
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 } |