summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-03-16 12:58:19 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-03-16 12:58:19 +0000
commit4dffda1cceb1c26162d867c682135b946dfe45bc (patch)
tree09acc977542cbaec2f7e9e54a1d401dea2ea1cf0 /perl-install/ugtk2.pm
parent57066c9330e1d2d02f18eca8ae426ed2e91e5c4d (diff)
downloaddrakx-4dffda1cceb1c26162d867c682135b946dfe45bc.tar
drakx-4dffda1cceb1c26162d867c682135b946dfe45bc.tar.gz
drakx-4dffda1cceb1c26162d867c682135b946dfe45bc.tar.bz2
drakx-4dffda1cceb1c26162d867c682135b946dfe45bc.tar.xz
drakx-4dffda1cceb1c26162d867c682135b946dfe45bc.zip
(new) set default x11 icon
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm3
1 files changed, 3 insertions, 0 deletions
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;
}