summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm4
1 files 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;