diff options
Diffstat (limited to 'perl-install/install')
| -rw-r--r-- | perl-install/install/gtk.pm | 7 |
1 files changed, 0 insertions, 7 deletions
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('<b><i>' . $steps{steps}{$_}{raw_text} . '</i></b>'); - 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 } |