diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-05 16:22:45 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-12-05 16:22:45 +0000 |
commit | 3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3 (patch) | |
tree | feeb343e2e96e21c616d2526355c7522611dbfce /perl-install/standalone | |
parent | 157c3f3aaf1c6ec1fc087ea061507600a01304c5 (diff) | |
download | drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.tar drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.tar.gz drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.tar.bz2 drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.tar.xz drakx-3ffd9a462debca5f9d6fb55d2c2f3291bd84f6e3.zip |
use gtkflush()
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/drakTermServ | 4 | ||||
-rwxr-xr-x | perl-install/standalone/drakautoinst | 2 | ||||
-rwxr-xr-x | perl-install/standalone/drakconnect | 6 |
3 files changed, 6 insertions, 6 deletions
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; |