From ef9cf6c94dd36993441c07a566bbfcca1592ea1e Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Tue, 12 Sep 2000 18:21:41 +0000
Subject: updated

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index a822be75b..0dcd560b2 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -36,8 +36,8 @@ 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') if $::isStandalone;
-#    $w->{rwindow}->set_policy(0, 0, 1) if $::isWizard;
+    $w->{rwindow}->set_position('center_always') if $::isStandalone;
+    $w->{rwindow}->set_policy(0, 0, 1)  if $::isWizard;
     if (@$l < 5 or $::isWizard) {
 	my $defW;
 	my $tips = new Gtk::Tooltips;
-- 
cgit v1.2.1