From 4dffda1cceb1c26162d867c682135b946dfe45bc Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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(+) (limited to 'perl-install/ugtk2.pm') 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