summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm22
1 files changed, 17 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index ab59b501e..edee069b2 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -322,11 +322,13 @@ sub reallyChooseGroups {
sub choosePackagesTree {
my ($o, $packages) = @_;
+
+ my $available = install_any::getAvailableSpace($o);
+ my $availableCorrected = pkgs::invCorrectSize($available / sqr(1024)) * sqr(1024);
+
my $common; $common = { get_status => sub {
my $size = pkgs::selectedSize($packages);
- _("Total size: %d / %d MB",
- pkgs::correctSize($size / sqr(1024)),
- install_any::getAvailableSpace($o) / sqr(1024));
+ _("Total size: %d / %d MB", pkgs::correctSize($size / sqr(1024)), $available / sqr(1024));
},
node_state => sub {
my $p = pkgs::packageByName($packages,$_[0]) or return;
@@ -393,7 +395,7 @@ sub choosePackagesTree {
my $p = $packages->{names}{$_};
pkgs::packageFlagSelected($p) or $size += pkgs::packageSize($p);
}
- if (pkgs::correctSize($size / sqr(1024)) > install_any::getAvailableSpace($o) / sqr(1024)) {
+ if (pkgs::correctSize($size / sqr(1024)) > $available / sqr(1024)) {
return $o->ask_warn('', _("You can't select this package as there is not enough space left to install it"));
}
@@ -446,7 +448,17 @@ sub choosePackagesTree {
help => _("Load/Save on floppy"),
wait_message => _("Updating package selection"),
code => sub { $o->loadSavePackagesOnFloppy($packages); 1; },
- }, ],
+ },
+ if_(0,
+ { icon => 'feather',
+ help => _("Minimal install"),
+ code => sub {
+
+ install_any::unselectMostPackages($o);
+ pkgs::setSelectedFromCompssList($packages, { SYSTEM => 1 }, 4, $availableCorrected);
+ 1;
+ } }),
+ ],
state => {
auto_deps => 1,
flat => 0,