summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog4
-rw-r--r--perl-install/interactive_gtk.pm1
-rw-r--r--perl-install/my_gtk.pm2
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;
}