From 33dddb4ff4a2330a1ad5d00f2ce595e7fe1b007f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 2 Sep 2004 07:27:46 +0000 Subject: (new) fallback on window'icon for wizards --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index a0266023e..60e51a8b2 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -987,7 +987,7 @@ sub new { }); } elsif (!$o->{isEmbedded}) { $::WizardWindow->set_position('center_always') if !$::isStandalone; - eval { gtkpack__($::WizardTable, Gtk2::Banner->new($::Wizard_pix_up || "wiz_default_up.png", $::Wizard_title)) }; + eval { gtkpack__($::WizardTable, Gtk2::Banner->new($::Wizard_pix_up || $wm_icon || "wiz_default_up.png", $::Wizard_title)) }; $@ and log::l("ERROR: missing wizard banner"); may_set_icon($::WizardWindow, $o->{wm_icon}); } -- cgit v1.2.1