From c61591df6c068e4fd9fce7f662eab70896993076 Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Mon, 22 Oct 2012 21:37:02 +0000
Subject: Show a 'please wait' dialog while processing usrmove.

Thanks Blino for the tip
---
 perl-install/install/NEWS                 | 1 +
 perl-install/install/steps_interactive.pm | 6 ++++++
 2 files changed, 7 insertions(+)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 5d3d8d106..933719071 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
 - prefer real binaries over the lightweight perl wrappers
 - convert filesystem for usrmove during upgrades
+- show a 'please wait' dialog while processing usrmove
 
 Version 14.48 - 22 October 2012
 
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 61abd4f10..65962ad33 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -653,6 +653,12 @@ sub reallyChooseGroups {
     1;    
 }
 
+sub beforeInstallPackages {
+    my ($o) = @_;
+    my $_w = $o->{isUpgrade} && $o->wait_message('', N("Preparing upgrade..."));
+    $o->SUPER::beforeInstallPackages;
+}
+
 #------------------------------------------------------------------------------
 sub installPackages {
     my ($o) = @_;
-- 
cgit v1.2.1