comparison src/dispnew.c @ 53176:b246aabe1c49

(buffer_posn_from_coords): Calculate and return pixel coordinates relative to glyph at posn. If glyph is an image, return that as object at posn. Callers changed. (mode_line_string, marginal_area_string): Calculate and return pixel coordinates relative to glyph. Callers changed.

53175:83fb165444f9

   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, object, pos)
     struct window *w;
     int *x, *y;
     Lisp_Object *object;
     struct display_pos *pos;
{
  struct it it;
  struct buffer *old_current_buffer = current_buffer;
  struct text_pos startp;
  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)));

  if (x0 > x1)
    it.hpos += (x0 - x1) / WINDOW_FRAME_COLUMN_WIDTH (w);

  current_buffer = old_current_buffer;

  *object = STRINGP (it.string) ? it.string : w->buffer;
  *pos = it.current;
  *x = it.hpos;
  *y = it.vpos;
}

   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, part, charpos)
     struct window *w;
     int *x, *y;
     enum window_part part;
     int *charpos;
{
  struct glyph_row *row;
  struct glyph *glyph, *end;
  int x0;
  Lisp_Object string = Qnil;

  if (part == ON_MODE_LINE)
    row = MATRIX_MODE_LINE_ROW (w->current_matrix);
  else
    row = MATRIX_HEADER_LINE_ROW (w->current_matrix);

  *y = row - MATRIX_FIRST_TEXT_ROW (w->current_matrix);

  if (row->mode_line_p && row->enabled_p)
    {
      /* Find the glyph under X.  If we find one with a string object,

      else
	/* Add extra (default width) columns if clicked after EOL. */
	*x += x0 / WINDOW_FRAME_COLUMN_WIDTH (w);
    }
  else
    *x = 0;

  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, part, charpos)
     struct window *w;
     int *x, *y;
     enum window_part part;
     int *charpos;
{
  struct glyph_row *row = w->current_matrix->rows;
  struct glyph *glyph, *end;
  int x0, i, wy = *y;
  int area;
  Lisp_Object string = Qnil;

  if (part == ON_LEFT_MARGIN)
    area = LEFT_MARGIN_AREA;

    abort ();

  for (i = 0; row->enabled_p && i < w->current_matrix->nrows; ++i, ++row)
    if (wy >= row->y && wy < MATRIX_ROW_BOTTOM_Y (row))
      break;
  *y = row - MATRIX_FIRST_TEXT_ROW (w->current_matrix);

  if (row->enabled_p)
    {
      /* Find the glyph under X.  If we find one with a string object,

      else
	/* Add extra (default width) columns if clicked after EOL. */
	*x += x0 / WINDOW_FRAME_COLUMN_WIDTH (w);
    }
  else
    *x = 0;

  return string;
}

53176:b246aabe1c49

   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;
  struct glyph_row *row;
  struct image *img;
  int x0, x1;

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

  if (x0 > x1)
    it.hpos += (x0 - x1) / WINDOW_FRAME_COLUMN_WIDTH (w);

  current_buffer = old_current_buffer;

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

  if (it.what == IT_IMAGE
      && (img = IMAGE_FROM_ID (it.f, it.image_id)) != NULL
      && !NILP (img->spec))
    *object = img->spec;
  else
    *object = STRINGP (it.string) ? it.string : w->buffer;
  *pos = it.current;
  *x = it.hpos;
  *y = it.vpos;
}

   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;

  if (part == ON_MODE_LINE)
    row = MATRIX_MODE_LINE_ROW (w->current_matrix);
  else
    row = MATRIX_HEADER_LINE_ROW (w->current_matrix);
  y0 = *y - row->y;
  *y = row - MATRIX_FIRST_TEXT_ROW (w->current_matrix);

  if (row->mode_line_p && row->enabled_p)
    {
      /* Find the glyph under X.  If we find one with a string object,

      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;
  Lisp_Object string = Qnil;

  if (part == ON_LEFT_MARGIN)
    area = LEFT_MARGIN_AREA;

    abort ();

  for (i = 0; row->enabled_p && i < w->current_matrix->nrows; ++i, ++row)
    if (wy >= row->y && wy < MATRIX_ROW_BOTTOM_Y (row))
      break;
  y0 = *y - row->y;
  *y = row - MATRIX_FIRST_TEXT_ROW (w->current_matrix);

  if (row->enabled_p)
    {
      /* Find the glyph under X.  If we find one with a string object,

      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;
}