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