From 999bbd42daaa1b38c8a5420c0deb1a829a4ea0a8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 16 Mar 2004 13:05:50 +0000
Subject: (new) set x11 icon for non wizard tools

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

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 7e09e75fd..2283c22f5 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -885,6 +885,7 @@ sub new {
 
     if ($o->{pop_it}) {
 	$o->{rwindow} = _create_window($title);
+	$o->{rwindow}->set_icon(gtkcreate_pixbuf($::Wizard_pix_up || "wiz_default_up.png"));
 	$o->{rwindow}->set_position('center-on-parent');
 
 	if ($::isInstall) {
-- 
cgit v1.2.1