diff options
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakfont | 12 |
1 files changed, 6 insertions, 6 deletions
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(); } |