From c14c7fabfa34df8a28cd70af88c097a10cbfefc5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 18 Jan 2005 17:05:12 +0000
Subject: fix broken focus during install

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

(limited to 'perl-install')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index b3d5eace6..852cd0a2c 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -684,6 +684,8 @@ sub _create_Window {
             $w->set_uposition(max(0, $::rootwidth - ($::windowwidth + $wi) / 2), 
 			      max(0, $::logoheight + ($::windowheight - $he) / 2));
 	});
+	#- without this, the focus is broken during install, though this is not needed during X test, why??
+	$w->show;
     }
 
     $w;
-- 
cgit v1.2.1