summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-06-24 01:04:52 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-06-24 01:05:25 +0200
commit9a318af5a3df48ac7e8610ca46ffcd33b48b870d (patch)
treedd17ffb606cca94f2285ab416a2286bd0fff5e8f /perl-install
parent4cbb1d3510b8ab940007bb6114c7823db7453577 (diff)
downloaddrakx-9a318af5a3df48ac7e8610ca46ffcd33b48b870d.tar
drakx-9a318af5a3df48ac7e8610ca46ffcd33b48b870d.tar.gz
drakx-9a318af5a3df48ac7e8610ca46ffcd33b48b870d.tar.bz2
drakx-9a318af5a3df48ac7e8610ca46ffcd33b48b870d.tar.xz
drakx-9a318af5a3df48ac7e8610ca46ffcd33b48b870d.zip
add a wait dialog (mga#11041)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/steps_interactive.pm4
2 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index f6a26c1ef..d043432d5 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -5,6 +5,8 @@
o log if were running under UEFI
- partionning:
o fix preserving UUID when formating jfs/nilfs/xfs
+- package selection:
+ o display a wait dialog when choosing custom choice (mga#11041)
- summary:
o sort service categories, putting "Other" at end (mga#6286)
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 0e82b444c..bc9fae579 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -487,6 +487,8 @@ sub _chooseDesktop {
sub chooseGroups {
my ($o, $packages, $compssUsers, $individual) = @_;
+ my $w = $o->wait_message('', N("Looking for available packages..."));
+
#- for all groups available, determine package which belongs to each one.
#- this will enable getting the size of each groups more quickly due to
#- limitation of current implementation.
@@ -503,6 +505,8 @@ sub chooseGroups {
my %stable_flags = grep_each { $::b } %{$o->{rpmsrate_flags_chosen}};
delete $stable_flags{"CAT_$_"} foreach map { @{$_->{flags}} } @{$o->{compssUsers}};
+ undef $w;
+
my $compute_size = sub {
my %pkgs;
my %flags = %stable_flags; @flags{@_} = ();