From e9ea0ceb7123866d1c97561eac05e395e0160b8f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 21 Aug 2008 09:39:16 +0000
Subject: (main) ensure partitions bar is properlyz size on first display
 (#24410)

---
 perl-install/diskdrake/hd_gtk.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 470d729f7..d793bb616 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -14,6 +14,7 @@ use run_program;
 use devices;
 use log;
 use fsedit;
+use feature qw(state);
 
 my ($width, $height, $minwidth) = (400, 50, 5);
 my ($all_hds, $in, $do_force_reload, $current_kind, $current_entry, $update_all);
@@ -86,8 +87,12 @@ sub main {
     $notebook_widget->signal_connect(switch_page => sub {
 	$current_kind = $notebook[$_[2]];
 	$current_entry = '';
-	$update_all->();
+	state $not_first;
+	$update_all->() if $not_first;
+	$not_first = 1;
     });
+    # ensure partitions bar is properlyz size on first display:
+    $notebook_widget->signal_connect(realize => $update_all);
     $w->sync;
     $done_button->grab_focus;
     $in->ask_from_list_(N("Read carefully!"), N("Please make a backup of your data first"), 
-- 
cgit v1.2.1