summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-08-08 01:36:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-08-08 01:36:43 +0000
commit3cf0cfdab0690f7e24dcc3c789db0f3b0ac70b0e (patch)
tree01b6ea01e293594766ce847199b3be21b3ad9785 /perl-install/mygtk2.pm
parenteb378fd24c609d2af1dfe39fd7a87706768d86f4 (diff)
downloaddrakx-3cf0cfdab0690f7e24dcc3c789db0f3b0ac70b0e.tar
drakx-3cf0cfdab0690f7e24dcc3c789db0f3b0ac70b0e.tar.gz
drakx-3cf0cfdab0690f7e24dcc3c789db0f3b0ac70b0e.tar.bz2
drakx-3cf0cfdab0690f7e24dcc3c789db0f3b0ac70b0e.tar.xz
drakx-3cf0cfdab0690f7e24dcc3c789db0f3b0ac70b0e.zip
really make the wizard banner icon a warning instead of an error
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index f8d9db324..cc701ab8b 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -476,7 +476,11 @@ sub _gtk__MagicWindow {
my $banner;
if (!$::isEmbedded && !$::isInstall && $::Wizard_title) {
- $banner = Gtk2::Banner->new($opts->{icon_no_error}, $::Wizard_title) or log::l("ERROR: missing wizard banner");
+ if (_find_imgfile($opts->{icon_no_error})) {
+ $banner = Gtk2::Banner->new($opts->{icon_no_error}, $::Wizard_title);
+ } else {
+ log::l("ERROR: missing wizard banner $opts->{icon_no_error}");
+ }
}
$::WizardTable = gtknew('VBox', if_($banner, children_tight => [ $banner ]));