From 4dffda1cceb1c26162d867c682135b946dfe45bc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 16 Mar 2004 12:58:19 +0000
Subject: (new) set default x11 icon

---
 perl-install/ugtk2.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 02e3ac23e..7e09e75fd 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -929,6 +929,9 @@ 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));
+          $::WizardWindow->set_icon(gtkcreate_pixbuf($::Wizard_pix_up || "wiz_default_up.png"));
+	    } else {
+          $::Plug->set_icon(gtkcreate_pixbuf($::Wizard_pix_up || "wiz_default_up.png"));
 	    }
 	    $::WizardWindow->show;
 	}
-- 
cgit v1.2.1