summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-06-22 03:05:33 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-06-22 03:05:33 +0000
commitd21b9b20463bba91485a5b4ec6ed7db141456a24 (patch)
treea5282db21f3f3ac640b28e652118eedec1003ff9 /perl-install
parent516339890ce0e7782c5e5405775efd6ced860f3e (diff)
downloaddrakx-d21b9b20463bba91485a5b4ec6ed7db141456a24.tar
drakx-d21b9b20463bba91485a5b4ec6ed7db141456a24.tar.gz
drakx-d21b9b20463bba91485a5b4ec6ed7db141456a24.tar.bz2
drakx-d21b9b20463bba91485a5b4ec6ed7db141456a24.tar.xz
drakx-d21b9b20463bba91485a5b4ec6ed7db141456a24.zip
->set_title doesn't like title undef, give it '' instead
(to remove ugly warnings at install)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm4
1 files 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);