summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-09 08:39:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-09 08:39:11 +0000
commit196b211d3e14d051bad51e09e031b4568708504a (patch)
tree4ee409c08751d25ee55a36785ccb0ae2e876ec8e /perl-install/interactive.pm
parent2cb43ff2d2d8ff6e2baea880c72969b1bd9311f6 (diff)
downloaddrakx-196b211d3e14d051bad51e09e031b4568708504a.tar
drakx-196b211d3e14d051bad51e09e031b4568708504a.tar.gz
drakx-196b211d3e14d051bad51e09e031b4568708504a.tar.bz2
drakx-196b211d3e14d051bad51e09e031b4568708504a.tar.xz
drakx-196b211d3e14d051bad51e09e031b4568708504a.zip
allow the wait_message progress bar to be used more than once
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 3cf092052..4a6d09169 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -498,6 +498,9 @@ sub wait_message_with_progress_bar {
$progress->hide;
$progress->signal_connect(expose_event => $on_expose);
}
+ } else {
+ #- re-hide if visible
+ $progress->hide if $progress;
}
$w->set($msg);
} elsif ($total) {