summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-05 16:22:45 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-05 16:22:45 +0000
commit3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3 (patch)
treefeeb343e2e96e21c616d2526355c7522611dbfce /perl-install
parent157c3f3aaf1c6ec1fc087ea061507600a01304c5 (diff)
downloaddrakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.tar
drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.tar.gz
drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.tar.bz2
drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.tar.xz
drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.zip
use gtkflush()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm2
-rwxr-xr-xperl-install/standalone/drakTermServ4
-rwxr-xr-xperl-install/standalone/drakautoinst2
-rwxr-xr-xperl-install/standalone/drakconnect6
4 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 560409abb..fd02a259d 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -352,7 +352,7 @@ Click on Configure to launch the setup wizard.", $lilogrub),
$window->show_all();
$no_bootsplash and $thm_frame->hide();
-Gtk->main_iteration while Gtk->events_pending;
+gtkflush();
$::isEmbedded and kill 'USR2', $::CCPID;
$inmain = 1;
Gtk->main;
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 0a359c203..cef0b2a58 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -201,13 +201,13 @@ x:5:respawn:/usr/X11R6/bin/X -ac -query $server_ip\n";
sub cursor_wait {
# turn the cursor to a watch
$window1->{rwindow}->window->set_cursor(new Gtk2::Gdk::Cursor(150));
- Gtk->main_iteration while Gtk->events_pending;
+ gtkflush();
}
sub cursor_norm {
# restore normal cursor
$window1->{rwindow}->window->set_cursor(new Gtk2::Gdk::Cursor(68));
- Gtk->main_iteration while Gtk->events_pending;
+ gtkflush();
}
sub display_error {
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 1d351959d..88320483f 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -208,7 +208,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
# ),
# );
# $notebook->set_tab_pos('left');
-# $::isEmbedded and Gtk2->main_iteration while Gtk2->events_pending;
+# $::isEmbedded and gtkflush();
$::isEmbedded and kill ('USR2', $::CCPID);
$W->main;
# $W->destroy();
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 52e4c74ed..2364434dc 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -185,7 +185,7 @@ my $isconnected = -1;
#-sub connected_local {
#- print "in connected local\n";
#- my $w = $in->wait_message('', N("Testing your connection..."), 1);
-#- Gtk->main_iteration while Gtk->events_pending;
+#- gtkflush();
#- $isconnected = connected();
#-}
my $label7 = new Gtk2::Label(N("Status:"));
@@ -299,7 +299,7 @@ $button_ok->signal_connect (clicked => sub {
$dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
$dialog->vbox->pack_start($label,1,1,20);
$dialog->show_all;
- Gtk->main_iteration while Gtk->events_pending;
+ gtkflush();
apply();
$dialog->destroy;
update();
@@ -318,7 +318,7 @@ $combo1->entry->signal_connect('changed', sub {
$window1->{rwindow}->show_all();
$_->hide foreach ($button1, $button3);
-Gtk->main_iteration while Gtk->events_pending;
+gtkflush();
$::isEmbedded and kill 'USR2', $::CCPID;
my $tag = Gtk->timeout_add(4000, \&update2);
$window1->main;