summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-04-27 17:29:01 +0000
committerThierry Vignaud <tv@mageia.org>2012-04-27 17:29:01 +0000
commita9fd307a6adb08a569c2dbdb05d0f7c148099c7f (patch)
tree65040bb569f990ea63af6be8b62ddf2760b7b23c /perl-install/diskdrake
parent1a320aed7524cde9caa3043988f937a2ae3cb1ba (diff)
downloaddrakx-a9fd307a6adb08a569c2dbdb05d0f7c148099c7f.tar
drakx-a9fd307a6adb08a569c2dbdb05d0f7c148099c7f.tar.gz
drakx-a9fd307a6adb08a569c2dbdb05d0f7c148099c7f.tar.bz2
drakx-a9fd307a6adb08a569c2dbdb05d0f7c148099c7f.tar.xz
drakx-a9fd307a6adb08a569c2dbdb05d0f7c148099c7f.zip
(main,try_) fix partitions not being shown after clicking on "Reload
partition table" (mga#3260)
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm6
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 8b205df29..2ceb5ac40 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -83,6 +83,7 @@ sub main {
);
my ($lock, $initializing) = (undef, 1);
$update_all = sub {
+ my ($o_refresh_gui) = @_;
state $not_first;
return if $initializing && $not_first;
$not_first = 1;
@@ -95,6 +96,10 @@ sub main {
current_kind_changed($in, $current_kind);
current_entry_changed($current_kind, $current_entry);
$lock = 0;
+ if ($o_refresh_gui) {
+ $notebook_widget->set_current_page(-1);
+ $notebook_widget->set_current_page(0);
+ }
};
create_automatic_notebooks($notebook_widget);
@@ -129,6 +134,7 @@ sub try_ {
}
if ($v eq 'force_reload') {
$all_hds = $do_force_reload->();
+ $update_all->(1);
}
$current_entry = '' if !diskdrake::interactive::is_part_existing($current_entry, $all_hds);