From d5b10a973bd4ec474edf3bfa29df4458d2519e85 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 18 Aug 2008 11:34:18 +0000
Subject: (new,may_destroy) track windows in order to be able to set the proper
 transient hint (really fixing focus bug (#42750) which got unfixed after
 fixing vivication)

---
 perl-install/ugtk2.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index ef5c5801d..33d7abc54 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -728,6 +728,7 @@ sub new {
     my $icon = find { _find_imgfile($_) } $::isInstall ? 'empty-banner' : $opts{icon};
     my $banner_title = $opts{banner_title};
     $title = uc($title) if $::isInstall;
+    $o->{transient} ||= $::main_window if $::main_window;
     my $window = gtknew(
 	'MagicWindow',
 	title => $title || '',
@@ -740,6 +741,7 @@ sub new {
 	if_(!$::isInstall, icon_no_error => wm_icon()),
 	if_($o->{transient}, transient_for => $o->{transient}), 
     );
+    push @::main_windows, $::main_window = $window->{real_window};
     $window->set_border_width(10) if !$window->{pop_it} && !$::noborderWhenEmbedded;
 
     $o->{rwindow} = $o->{window} = $window;
-- 
cgit v1.2.1