From 0dd36000b55ace3bbfffdb0e8aa022618919d795 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 26 Aug 2005 13:58:47 +0000 Subject: (update_steps_position) render passed steps as bold and current step as bold italic as requested by IHM team --- perl-install/install_gtk.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index ce7661f13..62446a68f 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -160,7 +160,11 @@ sub update_steps_position { exists $steps{steps}{$_} or next; if ($o->{steps}{$_}{entered} && !$o->{steps}{$_}{done}) { $steps{steps}{$_}{img}->set_from_pixbuf($steps{on}); - $last_step and $steps{steps}{$last_step}{img}->set_from_pixbuf($steps{off}); + $steps{steps}{$_}{text}->set_markup('' . $steps{steps}{$_}{raw_text} . ''); + if ($last_step) { + $steps{steps}{$last_step}{img}->set_from_pixbuf($steps{done}); + $steps{steps}{$last_step}{text}->set_markup('' . $steps{steps}{$last_step}{raw_text} . ''); + } return; } $last_step = $_; -- cgit v1.2.1