summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-12 12:28:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-12 12:28:01 +0000
commitb360535ff274a20ac7f958132859bc6525e662f8 (patch)
tree88f5793154facfe847bc3cc4952acd9031e0b396 /perl-install/install_steps_gtk.pm
parente29fda8babb4dd6c1f3fe431985d5aba29b3210c (diff)
downloaddrakx-backup-do-not-use-b360535ff274a20ac7f958132859bc6525e662f8.tar
drakx-backup-do-not-use-b360535ff274a20ac7f958132859bc6525e662f8.tar.gz
drakx-backup-do-not-use-b360535ff274a20ac7f958132859bc6525e662f8.tar.bz2
drakx-backup-do-not-use-b360535ff274a20ac7f958132859bc6525e662f8.tar.xz
drakx-backup-do-not-use-b360535ff274a20ac7f958132859bc6525e662f8.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 5c3ad0a7e..41e17160f 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -303,8 +303,9 @@ When sure, press Ok."))) {
sub chooseSizeToInstall {
my ($o, $packages, $min_size, $max_size) = @_;
my ($min, $max) = map { pkgs::correctSize($_ / sqr(1024)) } $min_size, $max_size;
+ log::l("choosing size to install between $min and $max (really between $min_size and $max_size)");
my $w = my_gtk->new('');
- my $adj = create_adjustment($max, $min, $max * 0.9);
+ my $adj = create_adjustment($max, $min, $max);
my $spin = gtkset_usize(new Gtk::SpinButton($adj, 0, 0), 100, 0);
gtkadd($w->{window},