summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-20 12:48:48 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-20 12:48:48 +0000
commitc14cbfc9770053f195c74dcb1404bfa10c9da75f (patch)
treedfa3d4024251d99ec5ebd6384f2b0e9b00d7da7c /perl-install/install_steps_gtk.pm
parent06ef0920b41b391d4d3953b03c4fd266872dcd82 (diff)
downloaddrakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar
drakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.gz
drakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.bz2
drakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.xz
drakx-c14cbfc9770053f195c74dcb1404bfa10c9da75f.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 0078ec6a1..0a68e27ec 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -333,8 +333,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)));
+ $val = $spin->get_value_as_int / 100 * $max_size_;
$mb->set(sprintf("(%dMB)", pkgs::correctSize($val / sqr(1024))));
}); &$changed();
$spin->signal_connect(activate => sub { $w->{retval} = 1; Gtk->main_quit });