# HG changeset patch
# User Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
# Date 762094494 0
# Node ID 0021cbdc591b9fcdb0143115b5a0134b1805a2e3
# Parent  662b9cd767fe422955a56e59f875debae04a9ac5
(x_window): Call XChangeWindowAttributes with the standard
event set to make all these events reach the Emacs frame.

diff -r 662b9cd767fe -r 0021cbdc591b src/xfns.c
--- a/src/xfns.c	Thu Feb 24 08:07:16 1994 +0000
+++ b/src/xfns.c	Thu Feb 24 12:54:54 1994 +0000
@@ -1699,6 +1699,8 @@
      struct frame *f;
 {
   XClassHint class_hints;
+  XSetWindowAttributes attributes;
+  unsigned long attribute_mask;
 
 #ifdef USE_X_TOOLKIT
   Widget shell_widget;
@@ -1772,13 +1774,16 @@
 		   Xatom_wm_protocols, XA_ATOM, 32, PropModeAppend,
 		   (unsigned char*) NULL, 0);
 
+ /* Make all the standard events reach the Emacs frame.  */
+  attributes.event_mask = STANDARD_EVENT_SET;
+  attribute_mask = CWEventMask;
+  XChangeWindowAttributes (XtDisplay (shell_widget), XtWindow (shell_widget),
+			   attribute_mask, &attributes);
+
   XtMapWidget (screen_widget);
 
 #else /* not USE_X_TOOLKIT */
 
-  XSetWindowAttributes attributes;
-  unsigned long attribute_mask;
-
 
   attributes.background_pixel = f->display.x->background_pixel;
   attributes.border_pixel = f->display.x->border_pixel;