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