summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-20 11:46:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-20 11:46:12 +0000
commit7ee04717c24e174a00eee31f4ea6ac7add3dec42 (patch)
tree88de0d0f29683cf6b6c3fd76b11a41690269c65d /perl-install
parentd39669e93e3974a530301d202660846002d8ccb3 (diff)
downloaddrakx-backup-do-not-use-7ee04717c24e174a00eee31f4ea6ac7add3dec42.tar
drakx-backup-do-not-use-7ee04717c24e174a00eee31f4ea6ac7add3dec42.tar.gz
drakx-backup-do-not-use-7ee04717c24e174a00eee31f4ea6ac7add3dec42.tar.bz2
drakx-backup-do-not-use-7ee04717c24e174a00eee31f4ea6ac7add3dec42.tar.xz
drakx-backup-do-not-use-7ee04717c24e174a00eee31f4ea6ac7add3dec42.zip
(wait_message_nextW): fix previous text == new text causing no
expose_event causing dead loop
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 58541304c..be8359f05 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -755,10 +755,10 @@ sub wait_messageW($$$) {
}
sub wait_message_nextW {
my ($o, $messages, $w) = @_;
- my $msg = join "\n", @$messages;
+ my $msg = join("\n", warp_text(join "\n", @$messages));
return if $msg eq $w->{wait_messageW}->get; #- needed otherwise no expose_event :(
$w->{displayed} = 0;
- $w->{wait_messageW}->set(join("\n", warp_text($msg)));
+ $w->{wait_messageW}->set($msg);
$w->flush until $w->{displayed};
}
sub wait_message_endW {