From a58e0bd510b5f82abc7341ce4a9c8ab44f297232 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 Jan 2005 08:31:23 +0000
Subject: help initial positioning of window during install (since
 position_policy center-on-parent only works with a window manager, we can't
 get rid of force_center_at_pos)

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

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index b16e682bd..b7d3c63fd 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -943,6 +943,11 @@ sub _create_window {
 		   widget_name => 'Title',
 		   position_policy => !$::isInstall && !$::isStandalone ? 'center_always' : 'center-on-parent',
 		   if_(!$::isInstall, icon_no_error => wm_icon()),
+
+		   if_($::isInstall, position => [
+		       $::rootwidth - ($::windowwidth + $::real_windowwidth) / 2, 
+		       $::logoheight + ($::windowheight - $::real_windowheight) / 2,
+		   ]),
 		   %options);
 
     if ($force_focus) {
-- 
cgit v1.2.1