summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-10 14:39:34 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-10 14:39:34 +0000
commite15740d2211de96b1c5ffde81aaadc9fe9f65815 (patch)
tree5e0b7354a9967e06752f6489a5987ef95275836b /perl-install/standalone
parent755dead4b1e005cb24f262fa99efa321c4633c36 (diff)
downloaddrakx-backup-do-not-use-e15740d2211de96b1c5ffde81aaadc9fe9f65815.tar
drakx-backup-do-not-use-e15740d2211de96b1c5ffde81aaadc9fe9f65815.tar.gz
drakx-backup-do-not-use-e15740d2211de96b1c5ffde81aaadc9fe9f65815.tar.bz2
drakx-backup-do-not-use-e15740d2211de96b1c5ffde81aaadc9fe9f65815.tar.xz
drakx-backup-do-not-use-e15740d2211de96b1c5ffde81aaadc9fe9f65815.zip
- clean wait messages creation
- fix wait messages displaying (label was not displayed) in both standalone and embedded modes
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/draksec11
1 files changed, 3 insertions, 8 deletions
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 474cb0677..b84279c3a 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -41,15 +41,10 @@ my $w;
# factorize this with rpmdrake and harddrake2
sub wait_msg {
my $mainw = ugtk2->new('wait', (modal => 1, if_(!$::isEmbedded, transient => $w->{rwindow})));
- my $label = new Gtk2::Label($_[0]);
- $mainw->{window}->add($label);
- $mainw->{window}->show_all;
- $mainw->{window}->realize;
- $label->signal_connect(expose_event => sub { $mainw->{displayed} = 1 });
- $mainw->sync until $mainw->{displayed};
- $mainw->show;
+ $mainw->{window}->add(new Gtk2::Label($_[0]));
+ $mainw->{rwindow}->show_all;
gtkset_mousecursor_wait($mainw->{rwindow}->window);
- $mainw->flush;
+ gtkflush();
$mainw;
}