From 1018bda7b5048ea2e8da8efaf15b27abedcb3b2d Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 19 Aug 2008 14:46:34 +0000 Subject: (_create_Window) center sub dialogs --- perl-install/install/NEWS | 2 ++ perl-install/mygtk2.pm | 4 +++- 2 files changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index d40160b5f..88dd19bdd 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- center sub dialogs + Version 11.17 - 19 August 2008 - drakx-in-chroot: diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 722952025..53e8bbb22 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -987,7 +987,9 @@ sub _create_Window { if_(!$::isInstall && !$::isWizard, border_width => 5), #- policy: during install, we need a special code to handle the weird centering, see below - position_policy => $::isInstall ? 'none' : $no_Window_Manager ? 'center-always' : 'center-on-parent', + position_policy => $::isInstall ? + ($opts->{transient_for} ? 'center-always' : 'none') : + $no_Window_Manager ? 'center-always' : 'center-on-parent', if_($::isInstall, position => [ $::rootwidth + $::stepswidth - ($::o->{windowwidth} + $::real_windowwidth) / 2, -- cgit v1.2.1