From b360535ff274a20ac7f958132859bc6525e662f8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 12 Jan 2000 12:28:01 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_gtk.pm')

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},
-- 
cgit v1.2.1