diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-24 01:04:52 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-06-24 01:05:25 +0200 |
| commit | 9a318af5a3df48ac7e8610ca46ffcd33b48b870d (patch) | |
| tree | dd17ffb606cca94f2285ab416a2286bd0fff5e8f /perl-install | |
| parent | 4cbb1d3510b8ab940007bb6114c7823db7453577 (diff) | |
| download | drakx-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/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 4 |
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{@_} = (); |