From c69495b36bfd3751fc8c4a253349eb1479f22fca Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 27 Apr 2012 17:29:01 +0000
Subject: (main,try_) fix partitions not being shown after clicking on "Reload
 partition table" (mga#3260)

---
 perl-install/diskdrake/hd_gtk.pm | 6 ++++++
 perl-install/install/NEWS        | 2 ++
 2 files changed, 8 insertions(+)

(limited to 'perl-install')

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);
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 0040b189a..33a32f5f4 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,6 @@
 - partitioning:
+  o fix partitions not being shown after clicking on "Reload partition table"
+    (mga#3260)
   o run udevadm in installer too
     (might fix unnecessary reboot (mga#4439))
 
-- 
cgit v1.2.1