summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-04 14:46:32 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-03-04 14:46:32 +0000
commit09c62d0b198d68afd4f16da79982bfa7d91f8706 (patch)
tree18220dce802a3d4999f99aee1132b3c6433799ec /perl-install
parent58faec6a1db7b827d5c66b4a2d240c0bac33abf6 (diff)
downloaddrakx-09c62d0b198d68afd4f16da79982bfa7d91f8706.tar
drakx-09c62d0b198d68afd4f16da79982bfa7d91f8706.tar.gz
drakx-09c62d0b198d68afd4f16da79982bfa7d91f8706.tar.bz2
drakx-09c62d0b198d68afd4f16da79982bfa7d91f8706.tar.xz
drakx-09c62d0b198d68afd4f16da79982bfa7d91f8706.zip
Disallow to delect the first media listed in the "hdlists" file.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 13177303e..5df11bed2 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -678,7 +678,12 @@ sub deselectFoundMedia {
Gtk2::VBox->new(0, 5),
Gtk2::WrappedLabel->new(N("The following installation media have been found.
If you want to skip some of them, you can unselect them now.")),
- (map { ++$i; gtknew('CheckButton', text => $_->[3], active_ref => \$selection[$i]) } @hdlist2),
+ (map {
+ ++$i;
+ my $b = gtknew('CheckButton', text => $_->[3], active_ref => \$selection[$i]);
+ $b->set_sensitive(0) unless $i;
+ $b;
+ } @hdlist2),
gtknew('HSeparator'),
Gtk2::WrappedLabel->new(N("You have the option to copy the contents of the CDs onto the hard drive before installation.
It will then continue from the hard drive and the packages will remain available once the system is fully installed.")),