From 2223e5b1c42f333a8b88468d125236e39135eb03 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 11 Sep 2003 18:11:16 +0000
Subject: use center_always for popped windows (if transient is not used), and
 force centering in Xconfig test

---
 perl-install/Xconfig/test.pm | 2 +-
 perl-install/ugtk2.pm        | 7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
index ab4af5eab..93ec31e6e 100644
--- a/perl-install/Xconfig/test.pm
+++ b/perl-install/Xconfig/test.pm
@@ -122,7 +122,7 @@ sub test {
 
         gtkset_background(200 * 257, 210 * 257, 210 * 257);
         my ($h, $w) = gtkroot()->get_size;
-        $ugtk2::force_position = [ $w / 3, $h / 2.4 ];
+        $ugtk2::force_center = 1;
 	$ugtk2::force_focus = 1;
         my $text = Gtk2::Label->new;
         my $time = 12;
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index e876ce936..8918c14c8 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -807,13 +807,16 @@ sub new {
     $o->_create_window($title);
     while (my $e = shift @tempory::objects) { $e->destroy }
 
-    $o->{pop_it} ||= $pop_it || $::WizardTable && do {
+    $o->{pop_it} ||= $pop_it || (!$::isWizard && !$::isEmbedded) || $::WizardTable && do {
 	my @l = $::WizardTable->get_children;
 	pop @l if !$::isInstall && $::isWizard; #- don't take into account the DrawingArea
 	any { $_->visible } @l;
     };
 
     if ($o->{pop_it}) {
+	$o->{rwindow}->set_position('center_always') if 
+	  $::isStandalone && ($force_center || $o->{force_center}) || 
+	    @interactive::objects && $::isStandalone && !$o->{transient}; #- no need to center when set_transient is used
 	push @interactive::objects, $o if !$opts{no_interactive_objects};
 	$o->{rwindow}->set_modal(1) if ($grab || $o->{grab} || $o->{modal}) && !$::isInstall;
 	$o->{rwindow}->set_transient_for($o->{transient}) if $o->{transient};
@@ -975,7 +978,7 @@ sub _create_window($$) {
 	my ($X, $Y, $Wi, $He) = @{$force_center || $o->{force_center}};
         $w->set_uposition(max(0, $X + ($Wi - $wi) / 2), max(0, $Y + ($He - $he) / 2));
 
-    }) if ($force_center || $o->{force_center}) && !($force_position || $o->{force_position});
+    }) if $::isInstall && ($force_center || $o->{force_center}) && !($force_position || $o->{force_position});
 
     $o->{window} = $::noBorder ? $w : $f;
     $o->{rwindow} = $w;
-- 
cgit v1.2.1