From 3cf0cfdab0690f7e24dcc3c789db0f3b0ac70b0e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Aug 2005 01:36:43 +0000
Subject: really make the wizard banner icon a warning instead of an error

---
 perl-install/mygtk2.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

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 ]));
 
-- 
cgit v1.2.1