comparison src/xterm.c @ 3669:fd4187a96445

(XTmouse_position): Don't set *f at all unless we win.

3668:87f7ff6bba51

   the mouse is over.

   Set *time to the server timestamp for the time at which the mouse
   was at this position.

   This clears the mouse_moved flag, so we can wait for the next mouse
   movement.  This also calls XQueryPointer, which will cause the
   server to give us another MotionNotify when the mouse moves
   again. */

     Lisp_Object *bar_window;
     enum scroll_bar_part *part;
     Lisp_Object *x, *y;
     unsigned long *time;
{
  BLOCK_INPUT;

  if (! NILP (last_mouse_scroll_bar))
    x_scroll_bar_report_motion (f, bar_window, part, x, y, time);
  else

	   If win is the root window, it has no parent, and
	   parent_{x,y} are invalid, but that's okay, because we'll
	   never use them in that case.)  */

	/* Is win one of our frames?  */
	*f = x_window_to_frame (win);
      
	/* If not, is it one of our scroll bars?  */
	if (! *f)
	  {
	    struct scroll_bar *bar = x_window_to_scroll_bar (win);

	    if (bar)
	      {
		*f = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
		win_x = parent_x;
		win_y = parent_y;
	      }
	  }

	if (*f)
	  {
	    pixel_to_glyph_coords (*f, win_x, win_y, &win_x, &win_y,
				   &last_mouse_glyph);

	    *bar_window = Qnil;
	    *part = 0;
	    XSET (*x, Lisp_Int, win_x);
	    XSET (*y, Lisp_Int, win_y);
	    *time = last_mouse_movement_time;
	  }
      }

3669:fd4187a96445

   the mouse is over.

   Set *time to the server timestamp for the time at which the mouse
   was at this position.

   Don't store anything if we don't have a valid set of values to report.

   This clears the mouse_moved flag, so we can wait for the next mouse
   movement.  This also calls XQueryPointer, which will cause the
   server to give us another MotionNotify when the mouse moves
   again. */

     Lisp_Object *bar_window;
     enum scroll_bar_part *part;
     Lisp_Object *x, *y;
     unsigned long *time;
{
  FRAME_PTR f1;

  BLOCK_INPUT;

  if (! NILP (last_mouse_scroll_bar))
    x_scroll_bar_report_motion (f, bar_window, part, x, y, time);
  else

	   If win is the root window, it has no parent, and
	   parent_{x,y} are invalid, but that's okay, because we'll
	   never use them in that case.)  */

	/* Is win one of our frames?  */
	f1 = x_window_to_frame (win);
      
	/* If not, is it one of our scroll bars?  */
	if (! f1)
	  {
	    struct scroll_bar *bar = x_window_to_scroll_bar (win);

	    if (bar)
	      {
		f1 = XFRAME (WINDOW_FRAME (XWINDOW (bar->window)));
		win_x = parent_x;
		win_y = parent_y;
	      }
	  }

	if (f1)
	  {
	    /* Ok, we found a frame.  Convert from pixels to characters
	       and store all the values.  */

	    pixel_to_glyph_coords (f1, win_x, win_y, &win_x, &win_y,
				   &last_mouse_glyph);

	    *bar_window = Qnil;
	    *part = 0;
	    *f = f1;
	    XSET (*x, Lisp_Int, win_x);
	    XSET (*y, Lisp_Int, win_y);
	    *time = last_mouse_movement_time;
	  }
      }