summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-05 23:13:43 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-05 23:13:43 +0000
commitacbcf359e5e63583f01c06ecbc4346664c443aa0 (patch)
treec572b519c806b4dbd69e22f2d3133f24f06dfec0 /perl-install/install_steps_gtk.pm
parent6e75349144478ac58cb29697e31d2339d2d0a971 (diff)
downloaddrakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar
drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.gz
drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.bz2
drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.tar.xz
drakx-backup-do-not-use-acbcf359e5e63583f01c06ecbc4346664c443aa0.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm9
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 51ea451b6..7afb02d4b 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -16,11 +16,8 @@ use Gtk;
use Gtk::XmHTML;
use devices;
use fsedit;
-use keyboard;
-use network;
use modules;
use install_steps;
-use run_program;
use install_steps_interactive;
use interactive_gtk;
use install_any;
@@ -264,9 +261,9 @@ sub doPartitionDisks($$) {
sub choosePackages {
my ($o, $packages, $compss, $compssUsers, $first_time) = @_;
- if ($::beginner) {
+ 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->{isUpgrade});
} else {
pkgs::setSelectedFromCompssList($o->{compssListLevels}, $o->{packages}, 90, $o->{installClass}) unless $::expert || $o->{isUpgrade};
install_steps_interactive::choosePackages(@_);
@@ -300,7 +297,7 @@ sub chooseSizeToInstall {
($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});
+ $o->{installClass}, $o->{isUpgrade});
}
sub choosePackagesTree {
my ($o, $packages, $compss, $compssUsers) = @_;