From eef67a1c9d9bf24315c326ddc67fee0cfb2ab525 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 29 Sep 2008 11:06:13 +0000 Subject: - 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) --- perl-install/install/NEWS | 8 ++++++-- 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")); -- cgit v1.2.1