From 11647c80f3898d05df4e3deedc2f415c02632bbf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 1 Aug 2002 11:31:05 +0000
Subject: don't display a wait_message in newt, but do suspend

---
 perl-install/standalone.pm | 16 ++++++++++++----
 1 file 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;
 }
 
-- 
cgit v1.2.1