From b44e0a00a4b43dfe86dd5e553e061d0770abb73b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 17 Mar 2004 09:43:59 +0000
Subject: (new) fix x11 icon for Gtk2::Plug

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

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 64b6fec79..b68db5a92 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -910,6 +910,7 @@ sub new {
 
 	if (!$::Plug && $o->{isEmbedded}) {
 	    $::Plug = $::WizardWindow = gtkshow(Gtk2::Plug->new($::XID));
+	    $::Plug->set_icon(gtkcreate_pixbuf($o->{wm_icon}));
 	    flush();
 	    gtkadd($::Plug, $::WizardTable);
 	} elsif (!$::WizardWindow) {
@@ -932,8 +933,6 @@ sub new {
 		$::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($o->{wm_icon}));
-	    } else {
-		$::Plug->set_icon(gtkcreate_pixbuf($o->{wm_icon}));
 	    }
 	    $::WizardWindow->show;
 	}
-- 
cgit v1.2.1