From 1ca1c190ef2531a6fc4f1011ef60168c5624e3db Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 10 Jan 2005 16:31:32 +0000 Subject: use {icon_no_error} instead of {icon} --- perl-install/ugtk2.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index c4df679ae..72e22c8f0 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -376,7 +376,7 @@ sub _create_dialog { gtknew('Dialog', title => $title, position_policy => 'center-on-parent', # center-on-parent does not work modal => 1, - if_(!$::isInstall, icon => wm_icon()), + if_(!$::isInstall, icon_no_error => wm_icon()), %$options, allow_unknown_options => 1, ); } @@ -841,7 +841,7 @@ sub new { title => $title, position_policy => $force_center ? 'center_always' : 'center-on-parent', modal => $grab || $o->{grab} || $o->{modal}, - if_(!$::isInstall, icon => wm_icon()), + if_(!$::isInstall, icon_no_error => wm_icon()), if_($o->{transient} && $o->{transient} =~ /Gtk2::Window/, transient_for => $o->{transient}), ); @@ -860,7 +860,7 @@ sub new { if ($::isEmbedded) { $::Plug = $::WizardWindow = gtknew('Plug', socket_id => $::XID, - icon => wm_icon(), + icon_no_error => wm_icon(), child => $::WizardTable, title => $title || '', ); @@ -869,7 +869,7 @@ sub new { $::WizardWindow = _create_window( title => $title, child => gtknew('Frame', shadow_type => 'out', child => $::WizardTable), - if_(!$::isInstall, icon => wm_icon()), + if_(!$::isInstall, icon_no_error => wm_icon()), if_(!$::isInstall && !$::isStandalone, position_policy => 'center_always'), ); -- cgit v1.2.1