From 8d7883d32825d9e7dab40303d466628763475832 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 19 Aug 2008 15:07:08 +0000 Subject: (_create_Window) prevent flickering by properly computing window position (note that $::o->{windowwidth} = $::rootwidth - $::stepswidth) --- perl-install/mygtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/mygtk2.pm') diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 5a24de514..abd308d54 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -992,7 +992,7 @@ sub _create_Window { $no_Window_Manager ? 'center-always' : 'center-on-parent', if_($::isInstall, position => [ - $::rootwidth + $::stepswidth - ($::o->{windowwidth} + $::real_windowwidth) / 2, + $::stepswidth + ($::o->{windowwidth} - $::real_windowwidth) / 2, ($::o->{windowheight} - $::real_windowheight) / 2, ]), }); -- cgit v1.2.1