summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
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);