diff options
| -rw-r--r-- | perl-install/install/NEWS | 8 | ||||
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 4aeed59bb..19f1c73ae 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,5 +1,9 @@ -- ask_deselect_media__copy_on_disk: replace scrolled window around everything - with a scrolled window around the list of checkboxes +- ask_deselect_media__copy_on_disk: + o do not select all media by default (eg: debug media) + (nb: this dialog occurs when user chooses "Go back to media and packages + selection" on pkg install error) + o replace scrolled window around everything + with a scrolled window around the list of checkboxes - adapt to fonts-ttf-gurmukhi => fonts-ttf-lohit switch - add spacing between radio buttons for readability (#44332) - better positionning of sidepanel's selection bar diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 91967bccd..0b211221b 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -701,7 +701,7 @@ sub ask_deselect_media__copy_on_disk { my ($_o, $hdlists, $o_copy_rpms_on_disk) = @_; my @names = uniq(map { $_->{name} } @$hdlists); - my %selection = map { $_ => 1 } @names; + my %selection = map { $_->{name} => $_->{selected} } @$hdlists; if (@names > 1 || $o_copy_rpms_on_disk) { my $w = ugtk2->new(N("Media Selection")); |