drakx - Mageia Installer and base platform for many utilities

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/perl-install/standalone/drakhelp

diff options

author	Thierry Vignaud <tvignaud@mandriva.org>	2005-04-25 10:08:37 +0000
committer	Thierry Vignaud <tvignaud@mandriva.org>	2005-04-25 10:08:37 +0000
commit	c01039d2be8e7416a9b5ce83e0051ec33957d1f1 (patch)
tree	36c320cbadaf10ffe28bd974cd92c29b74a0b52d /perl-install/standalone/drakhelp
parent	e4f75f7d1c80d16ef5f82b4e40d8d0f9e960162e (diff)
download	drakx-c01039d2be8e7416a9b5ce83e0051ec33957d1f1.tar drakx-c01039d2be8e7416a9b5ce83e0051ec33957d1f1.tar.gz drakx-c01039d2be8e7416a9b5ce83e0051ec33957d1f1.tar.bz2 drakx-c01039d2be8e7416a9b5ce83e0051ec33957d1f1.tar.xz drakx-c01039d2be8e7416a9b5ce83e0051ec33957d1f1.zip

list myself

Diffstat (limited to 'perl-install/standalone/drakhelp')

0 files changed, 0 insertions, 0 deletions

rakx/tree/perl-install/install/gtk.pm?h=2.65&id=ac285b11833596a5aa250f0083b7852b72374815'>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

}