diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-01-12 12:28:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-01-12 12:28:01 +0000 |
| commit | b360535ff274a20ac7f958132859bc6525e662f8 (patch) | |
| tree | 88f5793154facfe847bc3cc4952acd9031e0b396 /perl-install/install_steps_gtk.pm | |
| parent | e29fda8babb4dd6c1f3fe431985d5aba29b3210c (diff) | |
| download | drakx-b360535ff274a20ac7f958132859bc6525e662f8.tar drakx-b360535ff274a20ac7f958132859bc6525e662f8.tar.gz drakx-b360535ff274a20ac7f958132859bc6525e662f8.tar.bz2 drakx-b360535ff274a20ac7f958132859bc6525e662f8.tar.xz drakx-b360535ff274a20ac7f958132859bc6525e662f8.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 3 |
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}, |