summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-02 09:05:09 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-02 09:05:09 +0000
commitcd149734943cb3afee3189320d68df3cc7c58eed (patch)
treee6f5d0729e0b7dcbcb3cf09a5765a919615a43c8 /perl-install/fs
parent89862a2710b9c7dd04e437420b1aa0d0a32e4b2a (diff)
downloaddrakx-cd149734943cb3afee3189320d68df3cc7c58eed.tar
drakx-cd149734943cb3afee3189320d68df3cc7c58eed.tar.gz
drakx-cd149734943cb3afee3189320d68df3cc7c58eed.tar.bz2
drakx-cd149734943cb3afee3189320d68df3cc7c58eed.tar.xz
drakx-cd149734943cb3afee3189320d68df3cc7c58eed.zip
fs::format::wait_message() is now ->wait_message_with_progress_bar (on interactive objects)
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/format.pm33
1 files changed, 0 insertions, 33 deletions
diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index 7975074ea..a92db89f7 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -148,39 +148,6 @@ sub disable_forced_fsck {
run_program::run("tune2fs", "-c0", "-i0", devices::make($dev));
}
-sub wait_message {
- my ($in) = @_;
-
- my ($w, $progress, $last_msg, $displayed);
- my $on_expose = sub { $displayed = 1; 0 }; #- declared here to workaround perl limitation
- $w, sub {
- my ($msg, $current, $total) = @_;
- if ($msg) {
- $last_msg = $msg;
- if (!$w) {
- $progress = Gtk2::ProgressBar->new if $in->isa('interactive::gtk');
- $w = $in->wait_message('', [ '', if_($progress, $progress) ]);
- if ($progress) {
- #- don't show by default, only if we are given progress information
- $progress->hide;
- $progress->signal_connect(expose_event => $on_expose);
- }
- }
- $w->set($msg);
- } elsif ($total) {
- if ($progress) {
- $progress->set_fraction($current / $total);
- $progress->show;
- $displayed = 0;
- mygtk2::flush() while !$displayed;
- } else {
- $w->set([ $last_msg, "$current / $total" ]);
- }
- }
- };
-}
-
-
sub formatMount_part {
my ($part, $all_hds, $fstab, $wait_message) = @_;