From eeb1a66eaf3974b02ba19fbc15a9af3c93500d7a Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Wed, 27 Sep 2000 10:28:45 +0000
Subject: stc

---
 perl-install/ChangeLog          | 4 ++++
 perl-install/interactive_gtk.pm | 1 -
 perl-install/my_gtk.pm          | 2 +-
 3 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index be0eaae74..73439abce 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-27  dam's  <damien@mandrakesoft.com>
+
+	* my_gtk.pm (new): windows are always centered if standalone.
+
 2000-09-27  François Pons  <fpons@mandrakesoft.com>
 
 	* Xconfigurator.pm: added option "sw_cursor" for S3 Trio3D. fixed
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index bd2063717..c4f83efa9 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -40,7 +40,6 @@ sub ask_from_list_with_helpW {
     my $w = my_gtk->new(first(deref($title)), %$o);
 #gtkset_usize(createScrolledWindow($tree), 300, min(350, $::windowheight - 60)),
     $w->{retval} = $def || $l->[0]; #- nearly especially for the X test case (see timeout in Xconfigurator.pm)
-    $w->{rwindow}->set_position('center_always') if $::isStandalone;
     $w->{rwindow}->set_policy(0, 0, 1)  if $::isWizard;
     if (@$l < 5 or $::isWizard) {
 	my $defW;
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 59aee488f..3cff91009 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -38,7 +38,7 @@ sub new {
     $o->_create_window($title);
     while (my $e = shift @tempory::objects) { $e->destroy }
     push @interactive::objects, $o unless $opts{no_interactive_objects};
-
+    $o->{rwindow}->set_position('center_always') if $::isStandalone;
     $o->{rwindow}->set_modal(1) if $my_gtk::grab || $o->{grab};
     $o;
 }
-- 
cgit v1.2.1