summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-24 07:37:48 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-24 07:37:48 +0000
commit4dd9866ad98490d1423b19a475c36cde402f3785 (patch)
tree492a535c567b1660ce2206fcfda192d453b8b99f /perl-install/printer
parent04a32a7f6b48a977c768d62a1c28f00958e0c9df (diff)
downloaddrakx-backup-do-not-use-4dd9866ad98490d1423b19a475c36cde402f3785.tar
drakx-backup-do-not-use-4dd9866ad98490d1423b19a475c36cde402f3785.tar.gz
drakx-backup-do-not-use-4dd9866ad98490d1423b19a475c36cde402f3785.tar.bz2
drakx-backup-do-not-use-4dd9866ad98490d1423b19a475c36cde402f3785.tar.xz
drakx-backup-do-not-use-4dd9866ad98490d1423b19a475c36cde402f3785.zip
first attempt at making printerdrake to behave smoother when embedded in the
mcc
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/printerdrake.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index b0fb6b58b..77607404e 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -520,7 +520,6 @@ sub first_time_dialog {
my ($printer, $in, $upNetwork) = @_;
return 1 if printer::default::get_spooler() || $::isInstall;
- # Wait message
my $w = $in->wait_message(N("Printerdrake"), N("Checking your system..."));
# Auto-detect local printers
@@ -3291,13 +3290,13 @@ sub install_spooler {
# "lpr" conflicts with "LPRng", remove either "LPRng" or remove "lpr"
my $packages = $spoolers{$spooler}{packages2rm};
if ($packages && files_exist($packages->[1])) {
- $w->set(N("Printerdrake"), N("Removing %s ..."), $spoolers{$packages->[0]}{short_name});
+ $w = $in->wait_message(N("Printerdrake"), N("Removing %s ..."), $spoolers{$packages->[0]}{short_name});
$in->do_pkgs->remove_nodeps($packages->[0]);
}
$packages = $spoolers{$spooler}{packages2add};
if ($packages && !files_exist(@{$packages->[1]})) {
- $w->set(N("Printerdrake"), N("Installing %s ..."), $spoolers{$spooler}{short_name});
+ $w = $in->wait_message(N("Printerdrake"), N("Installing %s ..."), $spoolers{$spooler}{short_name});
$in->do_pkgs->install(@{$packages->[0]});
}