diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-02 09:05:09 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-02 09:05:09 +0000 |
commit | cd149734943cb3afee3189320d68df3cc7c58eed (patch) | |
tree | e6f5d0729e0b7dcbcb3cf09a5765a919615a43c8 /perl-install | |
parent | 89862a2710b9c7dd04e437420b1aa0d0a32e4b2a (diff) | |
download | drakx-backup-do-not-use-cd149734943cb3afee3189320d68df3cc7c58eed.tar drakx-backup-do-not-use-cd149734943cb3afee3189320d68df3cc7c58eed.tar.gz drakx-backup-do-not-use-cd149734943cb3afee3189320d68df3cc7c58eed.tar.bz2 drakx-backup-do-not-use-cd149734943cb3afee3189320d68df3cc7c58eed.tar.xz drakx-backup-do-not-use-cd149734943cb3afee3189320d68df3cc7c58eed.zip |
fs::format::wait_message() is now ->wait_message_with_progress_bar (on interactive objects)
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/diskdrake/interactive.pm | 2 | ||||
-rw-r--r-- | perl-install/fs/format.pm | 33 | ||||
-rw-r--r-- | perl-install/install_any.pm | 2 | ||||
-rw-r--r-- | perl-install/install_steps_interactive.pm | 2 | ||||
-rw-r--r-- | perl-install/interactive.pm | 33 |
5 files changed, 36 insertions, 36 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index aeccf5e01..e2c666212 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -1140,7 +1140,7 @@ sub format_ { fs::format::check_package_is_installed($in->do_pkgs, $part->{fs_type}) or return; } $part->{isFormatted} = 0; #- force format; - my ($_w, $wait_message) = fs::format::wait_message($in); + my ($_w, $wait_message) = $in->wait_message_with_progress_bar; fs::format::part($all_hds, $part, $wait_message); 1; } 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) = @_; diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index ca1f00a2e..cf4030cce 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -749,7 +749,7 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.", my $m = install_medium::by_id($k, $o->{packages}); #- don't copy rpms of supplementary media next if $m->is_suppl; - my ($wait_w, $wait_message) = fs::format::wait_message($o); #- nb, this is only called when interactive + my ($wait_w, $wait_message) = $o->wait_message_with_progress_bar; #- nb, this is only called when interactive $wait_message->(N("Copying in progress") . "\n($m->{descr})"); #- XXX to be translated if ($k != $current_medium) { my $cd_k = $m->get_cd_number; diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 1ebe1319f..a87b4caf5 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -382,7 +382,7 @@ sub choosePartitionsToFormat { sub formatMountPartitions { my ($o, $_fstab) = @_; - my ($w, $wait_message) = fs::format::wait_message($o); + my ($w, $wait_message) = $o->wait_message_with_progress_bar; catch_cdie { fs::format::formatMount_all($o->{all_hds}, $o->{fstab}, $wait_message); } sub { diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index b93df4bdb..3cf092052 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -480,6 +480,39 @@ sub wait_message { $b; } + +sub wait_message_with_progress_bar { + 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 kill() {} |