diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-02 10:31:11 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-02 10:31:11 +0000 |
| commit | e7d68d879571ae2e5a3301da94c18c3f9151cec0 (patch) | |
| tree | a41aa9b5e6fefe681bbf2bf2d7d3ae9682d64e61 /perl-install/install_steps_gtk.pm | |
| parent | 74e89d3c3ee6e4d083edf5a8633793f1ba77ab84 (diff) | |
| download | drakx-backup-do-not-use-e7d68d879571ae2e5a3301da94c18c3f9151cec0.tar drakx-backup-do-not-use-e7d68d879571ae2e5a3301da94c18c3f9151cec0.tar.gz drakx-backup-do-not-use-e7d68d879571ae2e5a3301da94c18c3f9151cec0.tar.bz2 drakx-backup-do-not-use-e7d68d879571ae2e5a3301da94c18c3f9151cec0.tar.xz drakx-backup-do-not-use-e7d68d879571ae2e5a3301da94c18c3f9151cec0.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 8414c897a..53f95c72c 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -266,8 +266,9 @@ sub choosePackages { if ($::beginner) { require pkgs; - pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, install_any::getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang}, $o->{isUpgrade}); + pkgs::setSelectedFromCompssList_($o->{compssListLevels}, $o->{packages}, install_any::getAvailableSpace($o) * 0.7, $o->{installClass}, $o->{lang}, $o->{isUpgrade}); } else { + pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, 90, $o->{installClass}) unless $::expert || $o->{isUpgrade}; install_steps_interactive::choosePackages(@_); chooseSizeToInstall(@_); choosePackagesTree(@_) if $::expert; @@ -278,7 +279,7 @@ sub chooseSizeToInstall { my $availableSpace = int(install_any::getAvailableSpace($o) / sqr(1024)); my $current = pkgs::correctSize((sum map { $_->{size} } grep { $_->{selected} } values %$packages) / sqr(1024)); my $w = my_gtk->new(''); - my $adj = create_adjustment($current * 1.3, $current, $availableSpace); + my $adj = create_adjustment($current * 1.2, $current, $availableSpace); my $spin = gtkset_usize(new Gtk::SpinButton($adj, 0, 0), 100, 0); gtkadd($w->{window}, @@ -297,9 +298,9 @@ sub chooseSizeToInstall { $w->main or return; ($o->{packages_}{ind}, $o->{packages_}{select_level}) = - pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, - pkgs::invCorrectSize($spin->get_value_as_int) * sqr(1024), - $o->{installClass}, $o->{lang}, $o->{isUpgrade}); + pkgs::setSelectedFromCompssList_($o->{compssListLevels}, $o->{packages}, + pkgs::invCorrectSize($spin->get_value_as_int) * sqr(1024), + $o->{installClass}, $o->{lang}, $o->{isUpgrade}); } sub choosePackagesTree { my ($o, $packages, $compss, $compssUsers) = @_; |