summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksec
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/draksec')
-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;
}