diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-19 23:25:14 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-19 23:25:14 +0000 |
| commit | a098b07c6f1e330df9e098cbea8237e1f9b4abd4 (patch) | |
| tree | b72b78d53f7c01d9d414a3c4b78854f011e57fbc /perl-install/install_steps_gtk.pm | |
| parent | 0010fd82a3433748445e283a28d3967f5ef47213 (diff) | |
| download | drakx-backup-do-not-use-a098b07c6f1e330df9e098cbea8237e1f9b4abd4.tar drakx-backup-do-not-use-a098b07c6f1e330df9e098cbea8237e1f9b4abd4.tar.gz drakx-backup-do-not-use-a098b07c6f1e330df9e098cbea8237e1f9b4abd4.tar.bz2 drakx-backup-do-not-use-a098b07c6f1e330df9e098cbea8237e1f9b4abd4.tar.xz drakx-backup-do-not-use-a098b07c6f1e330df9e098cbea8237e1f9b4abd4.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index f5842856c..1b25eb969 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -301,7 +301,7 @@ sub chooseSizeToInstall { my $percentage = int 100 * $max_size / $max_size_; #- don't ask anything if the difference between min and max is too small - return $max_size if $min_size && $max_size / $min_size < 1.01; + return $max_size if $min_size && $max_size / $min_size < 1.05; log::l("choosing size to install between $min_size and $max_size"); my $w = my_gtk->new(''); @@ -326,7 +326,7 @@ A low percentage will install only the most important packages; a percentage of %d%% will install as many packages as possible.", $percentage, $percentage)) . ($individual ? "\n\n" . _("You will be able to choose them more specifically in the next step.") : ''), create_packtable({}, - [ _("Percentage of packages to install") . ' ', $spin, "%", my $mb = new Gtk::Label('xxxx MB') ], + [ _("Percentage of packages to install") . ' ', $spin, "%", my $mb = new Gtk::Label ], [ undef, new Gtk::HScrollbar($adj) ], ), create_okcancel($w) @@ -334,6 +334,7 @@ a percentage of %d%% will install as many packages as possible.", $percentage, $ ); $spin->signal_connect(changed => my $changed = sub { $val = $spin->get_value_as_int / 100 * $max_size; + log::l("val $val ", pkgs::correctSize($val / sqr(1024))); $mb->set(sprintf("(%dMB)", pkgs::correctSize($val / sqr(1024)))); }); &$changed(); $spin->signal_connect(activate => sub { $w->{retval} = 1; Gtk->main_quit }); |