comparison src/xterm.c @ 54650:9dc8330eda34

(x_mouse_click_focus_ignore_position): New var. (syms_of_xterm): DEFVAR_BOOL it. (ignore_next_mouse_click_timeout): New var. (handle_one_xevent): Clear it on KeyPress, set it on EnterNotify. Use it to filter mouse clicks following focus event.

54649:d6816d5766d3

#endif /* USE_X_TOOLKIT */

/* Non-zero means user is interacting with a toolkit scroll bar.  */

static int toolkit_scroll_bar_interaction;

/* Mouse movement.

   Formerly, we used PointerMotionHintMask (in standard_event_mask)
   so that we would have to call XQueryPointer after each MotionNotify

					     : face->foreground),
					    face->background, depth);

      if (p->overlay_p)
	{
	  clipmask = XCreatePixmapFromBitmapData (display, 
						  FRAME_X_DISPLAY_INFO (f)->root_window,
						  bits, p->wd, p->h, 
						  1, 0, 1);
	  gcv.clip_mask = clipmask;
	  gcv.clip_x_origin = p->x;
	  gcv.clip_y_origin = p->y; 
	  XChangeGC (display, gc, GCClipMask | GCClipXOrigin | GCClipYOrigin, &gcv);
	}

      XCopyArea (display, pixmap, window, gc, 0, 0,
		 p->wd, p->h, p->x, p->y);

      if (! dpyinfo)
        current_finish = X_EVENT_NORMAL;
      else
	{
	  current_count +=
	    handle_one_xevent (dpyinfo, xev, &current_finish, 
			       current_hold_quit);
	}
    }
  else
    current_finish = x_dispatch_event (xev, xev->xany.display);

            record_asynch_buffer_change ();
        }
      goto OTHER;

    case KeyPress:

#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
      /* Dispatch KeyPress events when in menu.  */
      if (popup_activated ())
        goto OTHER;

    case EnterNotify:
      x_detect_focus_change (dpyinfo, &event, &inev);

      f = x_any_window_to_frame (dpyinfo, event.xcrossing.window);

#if 0
      if (event.xcrossing.focus)
	{
	  /* Avoid nasty pop/raise loops.  */
	  if (f && (!(f->auto_raise)

                  || f == dpyinfo->x_focus_frame)
                {
#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
                  if (! popup_activated ())
#endif
                    construct_mouse_click (&inev, &event, f);
                }
          }
        else
          {
            struct scroll_bar *bar

      if (do_help > 0)
	{
	  any_help_event_p = 1;
	  gen_help_event (help_echo_string, frame, help_echo_window,
			  help_echo_object, help_echo_pos);
	} 
      else
	{
	  help_echo_string = Qnil;
	  gen_help_event (Qnil, frame, Qnil, Qnil, 0);
	}

      if (yoff < 0)
	f->size_hint_flags |= YNegative;
      f->win_gravity = NorthWestGravity;
    }
  x_calc_absolute_position (f);
 
  BLOCK_INPUT;
  x_wm_set_size_hint (f, (long) 0, 0);

  modified_left = f->left_pos;
  modified_top = f->top_pos;

      get_bits_and_offset (dpyinfo->visual->blue_mask,
                           &dpyinfo->blue_bits, &dpyinfo->blue_offset);
      get_bits_and_offset (dpyinfo->visual->green_mask,
                           &dpyinfo->green_bits, &dpyinfo->green_offset);
    }
      
  /* See if a private colormap is requested.  */
  if (dpyinfo->visual == DefaultVisualOfScreen (dpyinfo->screen))
    {
      if (dpyinfo->visual->class == PseudoColor)
	{

nil means ignore them.  If you encounter fonts with bogus
UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
to 4.1, set this to nil.  */);
  x_use_underline_position_properties = 1;

  DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
    doc: /* What X toolkit scroll bars Emacs uses.
A value of nil means Emacs doesn't use X toolkit scroll bars.
Otherwise, value is a symbol describing the X toolkit.  */);
#ifdef USE_TOOLKIT_SCROLL_BARS

54650:9dc8330eda34

#endif /* USE_X_TOOLKIT */

/* Non-zero means user is interacting with a toolkit scroll bar.  */

static int toolkit_scroll_bar_interaction;

/* Non-zero means to not move point as a result of clicking on a
   frame to focus it (when focus-follows-mouse is nil).  */

int x_mouse_click_focus_ignore_position;

/* Non-zero timeout value means ignore next mouse click if it arrives
   before that timeout elapses (i.e. as part of the same sequence of
   events resulting from clicking on a frame to select it).  */

static unsigned long ignore_next_mouse_click_timeout;

/* Mouse movement.

   Formerly, we used PointerMotionHintMask (in standard_event_mask)
   so that we would have to call XQueryPointer after each MotionNotify

					     : face->foreground),
					    face->background, depth);

      if (p->overlay_p)
	{
	  clipmask = XCreatePixmapFromBitmapData (display,
						  FRAME_X_DISPLAY_INFO (f)->root_window,
						  bits, p->wd, p->h,
						  1, 0, 1);
	  gcv.clip_mask = clipmask;
	  gcv.clip_x_origin = p->x;
	  gcv.clip_y_origin = p->y;
	  XChangeGC (display, gc, GCClipMask | GCClipXOrigin | GCClipYOrigin, &gcv);
	}

      XCopyArea (display, pixmap, window, gc, 0, 0,
		 p->wd, p->h, p->x, p->y);

      if (! dpyinfo)
        current_finish = X_EVENT_NORMAL;
      else
	{
	  current_count +=
	    handle_one_xevent (dpyinfo, xev, &current_finish,
			       current_hold_quit);
	}
    }
  else
    current_finish = x_dispatch_event (xev, xev->xany.display);

            record_asynch_buffer_change ();
        }
      goto OTHER;

    case KeyPress:

      ignore_next_mouse_click_timeout = 0;

#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
      /* Dispatch KeyPress events when in menu.  */
      if (popup_activated ())
        goto OTHER;

    case EnterNotify:
      x_detect_focus_change (dpyinfo, &event, &inev);

      f = x_any_window_to_frame (dpyinfo, event.xcrossing.window);

      if (f && x_mouse_click_focus_ignore_position)
	ignore_next_mouse_click_timeout = event.xmotion.time + 200;

#if 0
      if (event.xcrossing.focus)
	{
	  /* Avoid nasty pop/raise loops.  */
	  if (f && (!(f->auto_raise)

                  || f == dpyinfo->x_focus_frame)
                {
#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
                  if (! popup_activated ())
#endif
		    {
		      if (ignore_next_mouse_click_timeout)
			{
			  if (event.type == ButtonPress
			      && (int)(event.xbutton.time - ignore_next_mouse_click_timeout) > 0)
			    {
			      ignore_next_mouse_click_timeout = 0;
			      construct_mouse_click (&inev, &event, f);
			    }
			  if (event.type == ButtonRelease)
			    ignore_next_mouse_click_timeout = 0;
			}
		      else
			construct_mouse_click (&inev, &event, f);
		    }
                }
          }
        else
          {
            struct scroll_bar *bar

      if (do_help > 0)
	{
	  any_help_event_p = 1;
	  gen_help_event (help_echo_string, frame, help_echo_window,
			  help_echo_object, help_echo_pos);
	}
      else
	{
	  help_echo_string = Qnil;
	  gen_help_event (Qnil, frame, Qnil, Qnil, 0);
	}

      if (yoff < 0)
	f->size_hint_flags |= YNegative;
      f->win_gravity = NorthWestGravity;
    }
  x_calc_absolute_position (f);

  BLOCK_INPUT;
  x_wm_set_size_hint (f, (long) 0, 0);

  modified_left = f->left_pos;
  modified_top = f->top_pos;

      get_bits_and_offset (dpyinfo->visual->blue_mask,
                           &dpyinfo->blue_bits, &dpyinfo->blue_offset);
      get_bits_and_offset (dpyinfo->visual->green_mask,
                           &dpyinfo->green_bits, &dpyinfo->green_offset);
    }

  /* See if a private colormap is requested.  */
  if (dpyinfo->visual == DefaultVisualOfScreen (dpyinfo->screen))
    {
      if (dpyinfo->visual->class == PseudoColor)
	{

nil means ignore them.  If you encounter fonts with bogus
UNDERLINE_POSITION font properties, for example 7x13 on XFree prior
to 4.1, set this to nil.  */);
  x_use_underline_position_properties = 1;

  DEFVAR_BOOL ("x-mouse-click-focus-ignore-position",
	       &x_mouse_click_focus_ignore_position,
    doc: /* Non-nil means that a mouse click to focus a frame does not move point.
This variable is only used when the window manager requires that you
click on a frame to select it (give it focus).  In that case, a value
of nil, means that the selected window and cursor position changes to
reflect the mouse click position, while a non-nil value means that the
selected window or cursor position is preserved.  */);
  x_mouse_click_focus_ignore_position = 0;

  DEFVAR_LISP ("x-toolkit-scroll-bars", &Vx_toolkit_scroll_bars,
    doc: /* What X toolkit scroll bars Emacs uses.
A value of nil means Emacs doesn't use X toolkit scroll bars.
Otherwise, value is a symbol describing the X toolkit.  */);
#ifdef USE_TOOLKIT_SCROLL_BARS