summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-11 18:11:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-11 18:11:16 +0000
commit2223e5b1c42f333a8b88468d125236e39135eb03 (patch)
treeea5cba80a84f808d6ec1645342b19a0e351ed499 /perl-install/ugtk2.pm
parent08da869bd28c9906fd135db0b5a5151d0f258bb8 (diff)
downloaddrakx-backup-do-not-use-2223e5b1c42f333a8b88468d125236e39135eb03.tar
drakx-backup-do-not-use-2223e5b1c42f333a8b88468d125236e39135eb03.tar.gz
drakx-backup-do-not-use-2223e5b1c42f333a8b88468d125236e39135eb03.tar.bz2
drakx-backup-do-not-use-2223e5b1c42f333a8b88468d125236e39135eb03.tar.xz
drakx-backup-do-not-use-2223e5b1c42f333a8b88468d125236e39135eb03.zip
use center_always for popped windows (if transient is not used), and force centering in Xconfig test
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index e876ce936..8918c14c8 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -807,13 +807,16 @@ sub new {
$o->_create_window($title);
while (my $e = shift @tempory::objects) { $e->destroy }
- $o->{pop_it} ||= $pop_it || $::WizardTable && do {
+ $o->{pop_it} ||= $pop_it || (!$::isWizard && !$::isEmbedded) || $::WizardTable && do {
my @l = $::WizardTable->get_children;
pop @l if !$::isInstall && $::isWizard; #- don't take into account the DrawingArea
any { $_->visible } @l;
};
if ($o->{pop_it}) {
+ $o->{rwindow}->set_position('center_always') if
+ $::isStandalone && ($force_center || $o->{force_center}) ||
+ @interactive::objects && $::isStandalone && !$o->{transient}; #- no need to center when set_transient is used
push @interactive::objects, $o if !$opts{no_interactive_objects};
$o->{rwindow}->set_modal(1) if ($grab || $o->{grab} || $o->{modal}) && !$::isInstall;
$o->{rwindow}->set_transient_for($o->{transient}) if $o->{transient};
@@ -975,7 +978,7 @@ sub _create_window($$) {
my ($X, $Y, $Wi, $He) = @{$force_center || $o->{force_center}};
$w->set_uposition(max(0, $X + ($Wi - $wi) / 2), max(0, $Y + ($He - $he) / 2));
- }) if ($force_center || $o->{force_center}) && !($force_position || $o->{force_position});
+ }) if $::isInstall && ($force_center || $o->{force_center}) && !($force_position || $o->{force_position});
$o->{window} = $::noBorder ? $w : $f;
$o->{rwindow} = $w;