diff options
| -rw-r--r-- | perl-install/interactive_gtk.pm | 4 |
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; |