summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-14 22:27:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-14 22:27:12 +0000
commit69605b4de65d1e67517232757f1da825b01f0b0f (patch)
treede29fc5147740c460a95850926c506f2b07cfc73 /perl-install/interactive/gtk.pm
parente9ae2115aca04f66c83d85b519c72de777676c44 (diff)
downloaddrakx-69605b4de65d1e67517232757f1da825b01f0b0f.tar
drakx-69605b4de65d1e67517232757f1da825b01f0b0f.tar.gz
drakx-69605b4de65d1e67517232757f1da825b01f0b0f.tar.bz2
drakx-69605b4de65d1e67517232757f1da825b01f0b0f.tar.xz
drakx-69605b4de65d1e67517232757f1da825b01f0b0f.zip
- fix displaying wait_message
- restore previous display of the wait_message during install (is that better ?)
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm12
1 files changed, 9 insertions, 3 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 69b43752d..39397d01b 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -730,9 +730,15 @@ sub wait_messageW {
pop_it => !$::isInstall,
modal => 1,
if__($::main_window, transient_for => $::main_window),
- child => gtknew('VBox', padding => 4, border_width => 10, children_loose => \@l));
+ child =>
+ gtknew('VBox', padding => 4, border_width => 10, children => [
+ 0, $l[0],
+ map { (1, $_) } @l[1..$#l],
+ ])
+ );
+ $Window->signal_connect(expose_event => sub { $Window->{displayed} = 1; 0 });
$Window->{wait_messageW} = $l[-1];
- mygtk2::sync($Window) if !$Window->{displayed};
+ mygtk2::sync($Window) while !$Window->{displayed};
$Window;
}
sub wait_message_nextW {
@@ -741,7 +747,7 @@ sub wait_message_nextW {
return if $msg eq $Window->{wait_messageW}->get_text; #- needed otherwise no expose_event :(
$Window->{displayed} = 0;
$Window->{wait_messageW}->set($msg);
- mygtk2::sync($Window) if !$Window->{displayed};
+ mygtk2::sync($Window) while !$Window->{displayed};
}
sub wait_message_endW {
my ($_o, $Window) = @_;