summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-09-27 10:28:45 +0000
committerdamien <damien@mandriva.com>2000-09-27 10:28:45 +0000
commiteeb1a66eaf3974b02ba19fbc15a9af3c93500d7a (patch)
treebe6fa24b236429875382dfeb8662a41429483500
parentc78cf679660f4306dee9806f756ec9059724708e (diff)
downloaddrakx-eeb1a66eaf3974b02ba19fbc15a9af3c93500d7a.tar
drakx-eeb1a66eaf3974b02ba19fbc15a9af3c93500d7a.tar.gz
drakx-eeb1a66eaf3974b02ba19fbc15a9af3c93500d7a.tar.bz2
drakx-eeb1a66eaf3974b02ba19fbc15a9af3c93500d7a.tar.xz
drakx-eeb1a66eaf3974b02ba19fbc15a9af3c93500d7a.zip
stc
-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;
}