From 1e19a1f7ea181f9fd40e0f81ac3b7fda8563d391 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 15 Sep 2001 13:39:47 +0000
Subject: do the set_events before the show otherwise gtk go crazy (no more
 keyboard focus)

---
 perl-install/my_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 7613997d2..b4d2353b9 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -114,8 +114,8 @@ sub main {
     gtkset_mousecursor_normal();
     my $timeout = Gtk->timeout_add(1000, sub { gtkset_mousecursor_normal(); 1 });
     my $b = before_leaving { Gtk->timeout_remove($timeout) };
-    $o->show;
     $o->{rwindow}->window->set_events(['key_press_mask', 'key_release_mask', 'exposure_mask']) if $o->{rwindow}->window;
+    $o->show;
 
     do {
 	local $::setstep = 1;
-- 
cgit v1.2.1