comparison src/dispnew.c @ 53514:db81ac8829b6

(buffer_posn_from_coords): Return both buffer/string object and image object. Return glyph width and height. (mode_line_string, marginal_area_string): Ditto.

53513:b37377020fd4

/***********************************************************************
		   X/Y Position -> Buffer Position
 ***********************************************************************/

/* Determine what's under window-relative pixel position (*X, *Y).
   Return in *OBJECT the object (string or buffer) that's there.
   Return in *POS the position in that object. Adjust *X and *Y
   to character positions.  */

void
buffer_posn_from_coords (w, x, y, dx, dy, object, pos)
     struct window *w;
     int *x, *y;
     int *dx, *dy;
     Lisp_Object *object;
     struct display_pos *pos;
{
  struct it it;
  struct buffer *old_current_buffer = current_buffer;
  struct text_pos startp;
  int x0, x1;

  current_buffer = XBUFFER (w->buffer);
  SET_TEXT_POS_FROM_MARKER (startp, w->start);
  CHARPOS (startp) = min (ZV, max (BEGV, CHARPOS (startp)));

  current_buffer = old_current_buffer;

  *dx = x0 + it.first_visible_x - it.current_x;
  *dy = *y - it.current_y;

  *object =  w->buffer;

#ifdef HAVE_WINDOW_SYSTEM
  if (it.what == IT_IMAGE)
    {
      struct image *img;
      if ((img = IMAGE_FROM_ID (it.f, it.image_id)) != NULL
	  && !NILP (img->spec))
	{
	  struct glyph_row *row = MATRIX_ROW (w->current_matrix, it.vpos);
	  struct glyph *glyph;

	  if (it.hpos < row->used[TEXT_AREA]
	      && (glyph = row->glyphs[TEXT_AREA] + it.hpos,
		  glyph->type == IMAGE_GLYPH))
	    {
	      *dy -= row->ascent - glyph->ascent;
	      *object = img->spec;
	    }
	}
    }
  else
#endif
    if (STRINGP (it.string))
      *object = it.string;

  *pos = it.current;

  /* Add extra (default width) columns if clicked after EOL. */
  x1 = max(0, it.current_x + it.pixel_width - it.first_visible_x);
  if (x0 > x1)
    it.hpos += (x0 - x1) / WINDOW_FRAME_COLUMN_WIDTH (w);

  *x = it.hpos;
  *y = it.vpos;
}


/* Value is the string under window-relative coordinates X/Y in the
   mode or header line of window W, or nil if none.  MODE_LINE_P non-zero
   means look at the mode line.  *CHARPOS is set to the position in
   the string returned.  */

Lisp_Object
mode_line_string (w, x, y, dx, dy, part, charpos)
     struct window *w;
     int *x, *y;
     int *dx, *dy;
     enum window_part part;
     int *charpos;
{
  struct glyph_row *row;
  struct glyph *glyph, *end;
  int x0, y0;
  Lisp_Object string = Qnil;

      *x = glyph - row->glyphs[TEXT_AREA];
      if (glyph < end)
	{
	  string = glyph->object;
	  *charpos = glyph->charpos;
	}
      else
	/* Add extra (default width) columns if clicked after EOL. */
	*x += x0 / WINDOW_FRAME_COLUMN_WIDTH (w);
    }
  else
    {
      *x = 0;
      x0 = 0;
    }

  if (dx)
    {
      *dx = x0;
      *dy = y0;
    }

  return string;
}


/* Value is the string under window-relative coordinates X/Y in either
   marginal area, or nil if none.  *CHARPOS is set to the position in
   the string returned.  */

Lisp_Object
marginal_area_string (w, x, y, dx, dy, part, charpos)
     struct window *w;
     int *x, *y;
     int *dx, *dy;
     enum window_part part;
     int *charpos;
{
  struct glyph_row *row = w->current_matrix->rows;
  struct glyph *glyph, *end;
  int x0, y0, i, wy = *y;
  int area;

      *x = glyph - row->glyphs[area];
      if (glyph < end)
	{
	  string = glyph->object;
	  *charpos = glyph->charpos;
#ifdef HAVE_WINDOW_SYSTEM
	  if (glyph->type == IMAGE_GLYPH)
	    {
	      struct image *img;
	      img = IMAGE_FROM_ID (WINDOW_XFRAME (w), glyph->u.img_id);
	      if (img != NULL)
		string = img->spec;
	      y0 -= row->ascent - glyph->ascent;
	    }
#endif
	}
      else
	/* Add extra (default width) columns if clicked after EOL. */
	*x += x0 / WINDOW_FRAME_COLUMN_WIDTH (w);
    }
  else
    {
      x0 = 0;
      *x = 0;
    }

  if (dx)
    {
      *dx = x0;
      *dy = y0;
    }

  return string;
}

53514:db81ac8829b6

/***********************************************************************
		   X/Y Position -> Buffer Position
 ***********************************************************************/

/* Determine what's under window-relative pixel position (*X, *Y).
   Return the object (string or buffer) that's there.
   Return in *POS the position in that object.
   Adjust *X and *Y to character positions.  */

Lisp_Object
buffer_posn_from_coords (w, x, y, pos, object, dx, dy, width, height)
     struct window *w;
     int *x, *y;
     struct display_pos *pos;
     Lisp_Object *object;
     int *dx, *dy;
     int *width, *height;
{
  struct it it;
  struct buffer *old_current_buffer = current_buffer;
  struct text_pos startp;
  Lisp_Object string;
  struct glyph_row *row;
  int x0, x1;

  current_buffer = XBUFFER (w->buffer);
  SET_TEXT_POS_FROM_MARKER (startp, w->start);
  CHARPOS (startp) = min (ZV, max (BEGV, CHARPOS (startp)));

  current_buffer = old_current_buffer;

  *dx = x0 + it.first_visible_x - it.current_x;
  *dy = *y - it.current_y;

  string =  w->buffer;
  if (STRINGP (it.string))
    string = it.string;
  *pos = it.current;

#ifdef HAVE_WINDOW_SYSTEM
  if (it.what == IT_IMAGE)
    {
      struct image *img;
      if ((img = IMAGE_FROM_ID (it.f, it.image_id)) != NULL
	  && !NILP (img->spec))
	*object = img->spec;
    }
#endif

  row = MATRIX_ROW (w->current_matrix, it.vpos);
  if (row->enabled_p)
    {
      if (it.hpos < row->used[TEXT_AREA])
	{
	  struct glyph *glyph = row->glyphs[TEXT_AREA] + it.hpos;
	  *width = glyph->pixel_width;
	  *height = glyph->ascent + glyph->descent;
#ifdef HAVE_WINDOW_SYSTEM
	  if (glyph->type == IMAGE_GLYPH)
	    *dy -= row->ascent - glyph->ascent;
#endif
	}
      else
	{
	  *width = 0;
	  *height = row->height;
	}
    }
  else
    {
      *width = *height = 0;
    }

  /* Add extra (default width) columns if clicked after EOL. */
  x1 = max(0, it.current_x + it.pixel_width - it.first_visible_x);
  if (x0 > x1)
    it.hpos += (x0 - x1) / WINDOW_FRAME_COLUMN_WIDTH (w);

  *x = it.hpos;
  *y = it.vpos;

  return string;
}


/* Value is the string under window-relative coordinates X/Y in the
   mode line or header line (PART says which) of window W, or nil if none.
   *CHARPOS is set to the position in the string returned.  */

Lisp_Object
mode_line_string (w, part, x, y, charpos, object, dx, dy, width, height)
     struct window *w;
     enum window_part part;
     int *x, *y;
     int *charpos;
     Lisp_Object *object;
     int *dx, *dy;
     int *width, *height;
{
  struct glyph_row *row;
  struct glyph *glyph, *end;
  int x0, y0;
  Lisp_Object string = Qnil;

      *x = glyph - row->glyphs[TEXT_AREA];
      if (glyph < end)
	{
	  string = glyph->object;
	  *charpos = glyph->charpos;
	  *width = glyph->pixel_width;
	  *height = glyph->ascent + glyph->descent;
#ifdef HAVE_WINDOW_SYSTEM
	  if (glyph->type == IMAGE_GLYPH)
	    {
	      struct image *img;
	      img = IMAGE_FROM_ID (WINDOW_XFRAME (w), glyph->u.img_id);
	      if (img != NULL)
		*object = img->spec;
	      y0 -= row->ascent - glyph->ascent;
	    }
#endif
	}
      else
	{
	  /* Add extra (default width) columns if clicked after EOL. */
	  *x += x0 / WINDOW_FRAME_COLUMN_WIDTH (w);
	  *width = 0;
	  *height = row->height;
	}
    }
  else
    {
      *x = 0;
      x0 = 0;
      *width = *height = 0;
    }

  *dx = x0;
  *dy = y0;

  return string;
}


/* Value is the string under window-relative coordinates X/Y in either
   marginal area, or nil if none.  *CHARPOS is set to the position in
   the string returned.  */

Lisp_Object
marginal_area_string (w, part, x, y, charpos, object, dx, dy, width, height)
     struct window *w;
     enum window_part part;
     int *x, *y;
     int *charpos;
     Lisp_Object *object;
     int *dx, *dy;
     int *width, *height;
{
  struct glyph_row *row = w->current_matrix->rows;
  struct glyph *glyph, *end;
  int x0, y0, i, wy = *y;
  int area;

      *x = glyph - row->glyphs[area];
      if (glyph < end)
	{
	  string = glyph->object;
	  *charpos = glyph->charpos;
	  *width = glyph->pixel_width;
	  *height = glyph->ascent + glyph->descent;
#ifdef HAVE_WINDOW_SYSTEM
	  if (glyph->type == IMAGE_GLYPH)
	    {
	      struct image *img;
	      img = IMAGE_FROM_ID (WINDOW_XFRAME (w), glyph->u.img_id);
	      if (img != NULL)
		*object = img->spec;
	      y0 -= row->ascent - glyph->ascent;
	    }
#endif
	}
      else
	{
	  /* Add extra (default width) columns if clicked after EOL. */
	  *x += x0 / WINDOW_FRAME_COLUMN_WIDTH (w);
	  *width = 0;
	  *height = row->height;
	}
    }
  else
    {
      x0 = 0;
      *x = 0;
      *width = *height = 0;
    }

  *dx = x0;
  *dy = y0;

  return string;
}