diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 3 |
1 files changed, 1 insertions, 2 deletions
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; } |