summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-01 11:31:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-01 11:31:05 +0000
commit11647c80f3898d05df4e3deedc2f415c02632bbf (patch)
tree2393aa4769eb5b16ac974ef9697f275a03215733
parent64d4245289fe25422253839947ef76ac165184d7 (diff)
downloaddrakx-11647c80f3898d05df4e3deedc2f415c02632bbf.tar
drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.tar.gz
drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.tar.bz2
drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.tar.xz
drakx-11647c80f3898d05df4e3deedc2f415c02632bbf.zip
don't display a wait_message in newt, but do suspend
-rw-r--r--perl-install/standalone.pm16
1 files changed, 12 insertions, 4 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 7e5948f22..474d6beb7 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -27,12 +27,20 @@ sub interactive::do_pkgs {
sub install {
my ($o, @l) = @_;
- $o->{in}->suspend;
- my $wait = $o->{in}->wait_message('', _("Installing packages..."));
+ my $wait;
+ if ($o->{in}->isa('interactive::newt')) {
+ $o->{in}->suspend;
+ } else {
+ $wait = $o->{in}->wait_message('', _("Installing packages..."));
+ }
standalone::explanations("installed packages @l");
my $ret = system('urpmi', '--allow-medium-change', '--auto', '--best-output', @l) == 0;
- undef $wait;
- $o->{in}->resume;
+
+ if ($o->{in}->isa('interactive::newt')) {
+ $o->{in}->resume;
+ } else {
+ undef $wait;
+ }
$ret;
}