From d21b9b20463bba91485a5b4ec6ed7db141456a24 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 22 Jun 2004 03:05:33 +0000 Subject: ->set_title doesn't like title undef, give it '' instead (to remove ugly warnings at install) --- perl-install/ugtk2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 9e8c2a47c..c28720f93 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -953,7 +953,7 @@ sub new { } $::WizardWindow->show; } - $::WizardWindow->set_title($title); + $::WizardWindow->set_title($title || ''); gtkpack($::WizardTable, $o->{window}); } $o->{rwindow}->signal_connect(destroy => sub { $o->{destroyed} = 1 }); @@ -1019,7 +1019,7 @@ sub _create_window { my $w = Gtk2::Window->new('toplevel'); $w->set_name("Title"); - $w->set_title($title); + $w->set_title($title || ''); if ($force_focus) { (my $previous_current_window, $ugtk2::current_window) = ($ugtk2::current_window, $w); -- cgit v1.2.1