From 35a10c47ac5e482775d362d228624ba060c11010 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 5 Dec 2002 15:56:30 +0000
Subject: fix gtk+-2 port

---
 perl-install/standalone/drakfont | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 6c9bf78bc..9449bc97d 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -695,7 +695,7 @@ sub interactive_mode {
                                 new Gtk2::Button(N("Close")),
                                 clicked => sub {
                                     $::isEmbedded and kill 'USR1', $::CCPID;
-                                    Gtk->main_quit();
+                                    Gtk2->main_quit();
                                 }
                             ),
                         ),
@@ -713,7 +713,7 @@ sub interactive_mode {
                 # 						       ${$central_widget}->destroy(); help() }),
                 # 						   gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub {
                 # 									 $::isEmbedded and kill 'USR1', $::CCPID;
-                # 									 Gtk->main_quit() }),
+                # 									 Gtk2->main_quit() }),
                 # 						   ),
                 # 					 )
             ),
@@ -1018,7 +1018,7 @@ sub advanced_install {
 sub list_to_remove {
     my @number_to_remove;
     my @files_path = grep(!/fonts/, all($current_path));
-    Gtk->main_iteration while Gtk->events_pending;
+    gtkflush();
     push @number_to_remove,
       $path_list->child_position($_) foreach $path_list->selection;
     @uninstall = ();
@@ -1156,7 +1156,7 @@ sub import_status {
     );
     $central_widget = \$table;
     $font_box->show_all();
-    Gtk->main_iteration while Gtk->events_pending;
+    gtkflush();
     backend_mod();
 }
 
@@ -1186,7 +1186,7 @@ sub import_status_uninstall {
     );
     $central_widget = \$table;
     $font_box->show_all();
-    Gtk->main_iteration while Gtk->events_pending;
+    gtkflush();
     backend_mod();
 }
 
@@ -1197,6 +1197,6 @@ sub progress {
     if ($new_val > 1) { $new_val = 1 }
     $progressbar->update($new_val);
     $progressbar->{label}->set($label_text);
-    Gtk->main_iteration while Gtk->events_pending;
+    gtkflush();
 }
 
-- 
cgit v1.2.1