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 c08a0928d..a8f4894f3 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -113,6 +113,8 @@ sub main {
# ensure partitions bar is properly sized on first display:
$notebook_widget->signal_connect(realize => $update_all);
$w->sync;
+ # add a bogus tab so that gtk+ displayed everything when there's only one disk:
+ $notebook_widget->prepend_page(Gtk3::Label->new, Gtk3::Label->new);
$notebook_widget->set_current_page(0);
# there's always at least one child (at least a button for create a new part on empty discs):
my @children = $current_kind->{display_box} ? $current_kind->{display_box}->get_children : ();
@@ -123,6 +125,10 @@ sub main {
$update_all->(2);
}
undef $initializing;
+ # remove bogus tab we added just to be sure gtk+ displayed everything:
+ $notebook_widget->remove_page(0);
+ # restore position when there's several disks:
+ $notebook_widget->set_current_page(0);
$done_button->grab_focus;
if (!$::testing) {
$in->ask_from_list_(N("Read carefully"), N("Please make a backup of your data first"),