From 64f941377e536828eac68a724cae67a18819dd0b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 10 Jan 2005 16:09:44 +0000
Subject: rewrite

---
 perl-install/ugtk2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 2c07fe92b..9f0465c8f 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -870,16 +870,16 @@ sub new {
 	    $::WizardWindow = _create_window(
 		title => $title,
 		child => gtknew('Frame', shadow_type => 'out', child => $::WizardTable),
+		if_(!$::isInstall, icon => wm_icon()),
+		if_(!$::isInstall && !$::isStandalone, position_policy => 'center_always'),
 	    );
 	    
 	    if ($::isInstall) {
 		require install_gtk; #- for perl_checker
 		$::WizardWindow->signal_connect(key_press_event => \&install_gtk::special_shortcuts);
 	    } else {
-		$::WizardWindow->set_position('center_always') if !$::isStandalone;
 		eval { gtkpack__($::WizardTable, Gtk2::Banner->new(wm_icon(), $::Wizard_title)) };
 		$@ and log::l("ERROR: missing wizard banner");
-		may_set_icon($::WizardWindow, wm_icon());
 	    }
 	}
 	$::WizardWindow->show;
-- 
cgit v1.2.1