From a6bbd53b018cff4c36b31347d72b8b915ffa8583 Mon Sep 17 00:00:00 2001
From: Thomas Backlund <tmb@mageia.org>
Date: Fri, 20 Mar 2015 22:33:54 +0159
Subject: fix initial display in diskdrake (Martin Whitaker, mga#13679)

---
 perl-install/diskdrake/hd_gtk.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 72ffa324c..0fd5c598a 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -113,6 +113,7 @@ sub main {
     # ensure partitions bar is properly sized on first display:
     $notebook_widget->signal_connect(realize => $update_all);
     $w->sync;
+    $notebook_widget->set_current_page(0);
     # workaround for $notebook_widget being realized too early:
     if (!$done_button) {
 	$notebook_widget->set_current_page(-1);
-- 
cgit v1.2.1