From 5f570aeb6249771697e3843b2096d13e80584247 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 20 Feb 2003 01:13:50 +0000
Subject: ensure {box_size} is set (to have less warnings)

---
 perl-install/ugtk2.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index e1a0f11d3..702805d26 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -314,8 +314,10 @@ sub create_box_with_title {
 
     my $nbline = sum(map { round(length($_) / 60 + 1/2) } map { split "\n" } @_);
     my $box = Gtk2::VBox->new(0,0);
-    return $box if $nbline == 0;
-
+    if ($nbline == 0) {
+	$o->{box_size} = 0;
+	return $box;
+    }
     $o->{box_size} = n_line_size($nbline, 'text', $box);
     if (@_ <= 2 && $nbline > 4) {
 	$o->{icon} && !$::isWizard and 
-- 
cgit v1.2.1