summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-06-28 02:26:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-06-28 02:26:44 +0000
commit15fd2e7b186c835ed0a0d8137458f74ec4597645 (patch)
treeb5a985281b2caf72a7077a991555a22aac884f5a /perl-install
parent53051b7af9156d842c491bac7fec6b4749b2ce1d (diff)
downloaddrakx-15fd2e7b186c835ed0a0d8137458f74ec4597645.tar
drakx-15fd2e7b186c835ed0a0d8137458f74ec4597645.tar.gz
drakx-15fd2e7b186c835ed0a0d8137458f74ec4597645.tar.bz2
drakx-15fd2e7b186c835ed0a0d8137458f74ec4597645.tar.xz
drakx-15fd2e7b186c835ed0a0d8137458f74ec4597645.zip
catch missing wizard pixmap, otherwise we end up with WizardWindow being non
shown and error messages can't pop up
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index c29e5cb02..3ae9e50ca 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -945,7 +945,8 @@ sub new {
});
} elsif (!$o->{isEmbedded}) {
$::WizardWindow->set_position('center_always') if !$::isStandalone;
- gtkpack__($::WizardTable, Gtk2::Banner->new($::Wizard_pix_up || "wiz_default_up.png", $::Wizard_title));
+ eval { gtkpack__($::WizardTable, Gtk2::Banner->new($::Wizard_pix_up || "wiz_default_up.png", $::Wizard_title)) };
+ $@ and log::l("ERROR: missing wizard banner");
may_set_icon($::WizardWindow, $o->{wm_icon});
}
$::WizardWindow->show;