From 916ef1b7d9a70a9f5e9a3a8483e47ddf71623a68 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Mon, 10 Sep 2001 12:25:41 +0000
Subject: no set_events if embedded

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

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

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 64781733a..0297edb40 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -115,7 +115,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']);
+    $o->{rwindow}->window->set_events(['key_press_mask', 'key_release_mask', 'exposure_mask']) if !$::isEmbedded;
 
     do {
 	local $::setstep = 1;
-- 
cgit v1.2.1