From e74bf2eb1500093e14f7900c5ed8c8bfd9936d66 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 12 Apr 2001 17:54:39 +0000
Subject: (main): only accept X (gdk) events key_press, key_release and
 exposure (so that not to receive motion_notify which would generate focus_out
 in non-interesting cases)

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

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 2e1693304..ba05164fd 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -114,6 +114,7 @@ sub main {
     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']);
 
     do {
 	local $::setstep = 1;
-- 
cgit v1.2.1