From d26ba49dac28c997f9283a7facb99bff549d65a1 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 26 Mar 2007 11:13:50 +0000 Subject: (perform_removal) display a progress bar while removing packages --- Rpmdrake/pkg.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 1614bac9..5e9ea033 100755 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -804,10 +804,14 @@ sub perform_removal { my $_a = before_leaving { Rpmdrake::gurpm::end() }; my $logger = $urpm->{log}; + my $progress = -1; local $urpm->{log} = sub { my $str = $_[0]; print $str; + $progress++; + return if $progress <= 0; # skip first "creating transaction..." message Rpmdrake::gurpm::label($str); # display "removing package %s" + Rpmdrake::gurpm::progress(min(0.99, scalar($progress/@toremove))); gtkflush(); }; -- cgit v1.2.1