comparison src/term.c @ 81102:a00e7c5f2faa

(mouse_face_window): Rename... (Qmouse_face_window): ...to this. (term_show_mouse_face, term_clear_mouse_face) (term_mouse_highlight): Use Qmouse_face_window. (term_mouse_moveto): New function. (term_mouse_position): Make it work. (syms_of_term): Uncomment assignment to mouse_position_hook. Staticpro Qmouse_face_window.

81101:a60f9776dcd0

   its account.  Rows and columns are glyph matrix positions in
   MOUSE_FACE_WINDOW.  */
static int mouse_face_beg_row, mouse_face_beg_col;
static int mouse_face_end_row, mouse_face_end_col;
static int mouse_face_past_end;
static Lisp_Object mouse_face_window;
static int mouse_face_face_id;

/* FRAME and X, Y position of mouse when last checked for
   highlighting.  X and Y can be negative or out of range for the frame.  */
struct frame *mouse_face_mouse_frame;

/***********************************************************************
			       Mouse
 ***********************************************************************/

#ifdef HAVE_GPM
static void
term_show_mouse_face (enum draw_glyphs_face draw)
{
  struct window *w = XWINDOW (mouse_face_window);
  int save_x, save_y;
  int i, j;

  if (/* If window is in the process of being destroyed, don't bother
	 to do anything.  */

}

static void
term_clear_mouse_face ()
{
  if (!NILP (mouse_face_window))
    term_show_mouse_face (DRAW_NORMAL_TEXT);

  mouse_face_beg_row = mouse_face_beg_col = -1;
  mouse_face_end_row = mouse_face_end_col = -1;
  mouse_face_window = Qnil;
}

/* Find the glyph matrix position of buffer position POS in window W.
   *HPOS and *VPOS are set to the positions found.  W's current glyphs
   must be up to date.  If POS is above window start return (0, 0).

  /* Not on a window -> return.  */
  if (!WINDOWP (window))
    return;

  if (!EQ (window, mouse_face_window))
    term_clear_mouse_face ();

  w = XWINDOW (window);

  /* Are we in a window whose display is up to date?

	GET_OVERLAYS_AT (pos, overlay_vec, noverlays, NULL, 0);
	/* Sort overlays into increasing priority order.  */
	noverlays = sort_overlays (overlay_vec, noverlays, w);

	/* Check mouse-face highlighting.  */
	if (!(EQ (window, mouse_face_window)
	      && y >= mouse_face_beg_row
	      && y <= mouse_face_end_row
	      && (y > mouse_face_beg_row
		  || x >= mouse_face_beg_col)
	      && (y < mouse_face_end_row

		mouse_face_past_end
		  = !fast_find_position (w, XFASTINT (after),
					 &mouse_face_end_col,
					 &mouse_face_end_row);
		mouse_face_window = window;

		mouse_face_face_id
		  = face_at_buffer_position (w, pos, 0, 0,
					     &ignore, pos + 1, 1);

				    &mouse_face_beg_row);
		mouse_face_past_end
		  = !fast_find_position (w, XFASTINT (after),
					 &mouse_face_end_col,
					 &mouse_face_end_row);
		mouse_face_window = window;

		mouse_face_face_id
		  = face_at_buffer_position (w, pos, 0, 0,
					     &ignore, pos + 1, 1);

   row of the character cell the mouse is over.

   Set *time to the time the mouse was at the returned position.

   This should clear mouse_moved until the next motion
   event arrives.

   NOT CURRENTLY INVOKED: see mouse_position_hook below.  */
static void
term_mouse_position (FRAME_PTR *fp, int insist, Lisp_Object *bar_window,
		     enum scroll_bar_part *part, Lisp_Object *x,
		     Lisp_Object *y, unsigned long *time)
{
  Gpm_Event event;
  struct timeval now;
  int i;

  BLOCK_INPUT;

  *fp = SELECTED_FRAME ();

  *bar_window = Qnil;
  *part = 0;

  i = Gpm_GetSnapshot (&event);

  XSETINT (*x, event.x);
  XSETINT (*y, event.y);
  gettimeofday(&now, 0);
  *time = (now.tv_sec * 1000) + (now.tv_usec / 1000);

  UNBLOCK_INPUT;
}

/* Prepare a mouse-event in *RESULT for placement in the input queue.

   If the event is a button press, then note that we have grabbed

    arg[4] = (unsigned short) 3;
    
    name = (const char *) ttyname (0);
    fd = open (name, O_WRONLY);
    ioctl (fd, TIOCLINUX, buf + sizeof (short) - 1);
    close(fd);

    term_mouse_movement (f, event);

    /* If the contents of the global variable help_echo_string
       has changed, generate a HELP_EVENT.  */

    goto done;
  }
  else {
    f->mouse_moved = 0;
    term_mouse_click (&ie, event, f);
    //kbd_buffer_store_event_hold (&ie, hold_quit);
  }

 done:
  if (ie.kind != NO_EVENT)
    {

  struct frame *sf = XFRAME (selected_frame);

  encode_terminal_bufsize = 0;

#ifdef HAVE_GPM
  /* TODO: Can't get Gpm_Snapshot in term_mouse_position to work: test with
     (mouse-position).  Also set-mouse-position won't work as is.  */
  /* mouse_position_hook = term_mouse_position;  */

  mouse_face_window = Qnil;
#endif

#ifdef WINDOWSNT
  initialize_w32_display ();

  defsubr (&Stty_display_color_cells);
  defsubr (&Stty_no_underline);
#ifdef HAVE_GPM
  defsubr (&Sterm_open_connection);
  defsubr (&Sterm_close_connection);
#endif /* HAVE_GPM */

  fullscreen_hook = NULL;
}

81102:a00e7c5f2faa

   its account.  Rows and columns are glyph matrix positions in
   MOUSE_FACE_WINDOW.  */
static int mouse_face_beg_row, mouse_face_beg_col;
static int mouse_face_end_row, mouse_face_end_col;
static int mouse_face_past_end;
static Lisp_Object Qmouse_face_window;
static int mouse_face_face_id;

/* FRAME and X, Y position of mouse when last checked for
   highlighting.  X and Y can be negative or out of range for the frame.  */
struct frame *mouse_face_mouse_frame;

/***********************************************************************
			       Mouse
 ***********************************************************************/

#ifdef HAVE_GPM
void term_mouse_moveto (int x, int y)
{
  const char *name;
  int fd;
  name = (const char *) ttyname (0);
  fd = open (name, O_WRONLY);
  /* TODO: how to set mouse position?
     SOME_FUNCTION (x, y, fd);  */
  close (fd);
  last_mouse_x = x;
  last_mouse_y = y;
}

static void
term_show_mouse_face (enum draw_glyphs_face draw)
{
  struct window *w = XWINDOW (Qmouse_face_window);
  int save_x, save_y;
  int i, j;

  if (/* If window is in the process of being destroyed, don't bother
	 to do anything.  */

}

static void
term_clear_mouse_face ()
{
  if (!NILP (Qmouse_face_window))
    term_show_mouse_face (DRAW_NORMAL_TEXT);

  mouse_face_beg_row = mouse_face_beg_col = -1;
  mouse_face_end_row = mouse_face_end_col = -1;
  Qmouse_face_window = Qnil;
}

/* Find the glyph matrix position of buffer position POS in window W.
   *HPOS and *VPOS are set to the positions found.  W's current glyphs
   must be up to date.  If POS is above window start return (0, 0).

  /* Not on a window -> return.  */
  if (!WINDOWP (window))
    return;

  if (!EQ (window, Qmouse_face_window))
    term_clear_mouse_face ();

  w = XWINDOW (window);

  /* Are we in a window whose display is up to date?

	GET_OVERLAYS_AT (pos, overlay_vec, noverlays, NULL, 0);
	/* Sort overlays into increasing priority order.  */
	noverlays = sort_overlays (overlay_vec, noverlays, w);

	/* Check mouse-face highlighting.  */
	if (!(EQ (window, Qmouse_face_window)
	      && y >= mouse_face_beg_row
	      && y <= mouse_face_end_row
	      && (y > mouse_face_beg_row
		  || x >= mouse_face_beg_col)
	      && (y < mouse_face_end_row

		mouse_face_past_end
		  = !fast_find_position (w, XFASTINT (after),
					 &mouse_face_end_col,
					 &mouse_face_end_row);
		Qmouse_face_window = window;

		mouse_face_face_id
		  = face_at_buffer_position (w, pos, 0, 0,
					     &ignore, pos + 1, 1);

				    &mouse_face_beg_row);
		mouse_face_past_end
		  = !fast_find_position (w, XFASTINT (after),
					 &mouse_face_end_col,
					 &mouse_face_end_row);
		Qmouse_face_window = window;

		mouse_face_face_id
		  = face_at_buffer_position (w, pos, 0, 0,
					     &ignore, pos + 1, 1);

   row of the character cell the mouse is over.

   Set *time to the time the mouse was at the returned position.

   This should clear mouse_moved until the next motion
   event arrives.  */
static void
term_mouse_position (FRAME_PTR *fp, int insist, Lisp_Object *bar_window,
		     enum scroll_bar_part *part, Lisp_Object *x,
		     Lisp_Object *y, unsigned long *time)
{
  struct timeval now;
  Lisp_Object frame, window;
  struct window *w;

  *fp = SELECTED_FRAME ();
  (*fp)->mouse_moved = 0;

  *bar_window = Qnil;
  *part = 0;

  XSETINT (*x, last_mouse_x); 
  XSETINT (*y, last_mouse_y);
  XSETFRAME (frame, *fp);
  window = Fwindow_at (*x, *y, frame);

  XSETINT (*x, last_mouse_x - WINDOW_LEFT_EDGE_COL (XWINDOW (window)));
  XSETINT (*y, last_mouse_y - WINDOW_TOP_EDGE_LINE (XWINDOW (window)));
  gettimeofday(&now, 0);
  *time = (now.tv_sec * 1000) + (now.tv_usec / 1000);
}

/* Prepare a mouse-event in *RESULT for placement in the input queue.

   If the event is a button press, then note that we have grabbed

    arg[4] = (unsigned short) 3;
    
    name = (const char *) ttyname (0);
    fd = open (name, O_WRONLY);
    ioctl (fd, TIOCLINUX, buf + sizeof (short) - 1);
    close (fd);

    term_mouse_movement (f, event);

    /* If the contents of the global variable help_echo_string
       has changed, generate a HELP_EVENT.  */

    goto done;
  }
  else {
    f->mouse_moved = 0;
    term_mouse_click (&ie, event, f);
  }

 done:
  if (ie.kind != NO_EVENT)
    {

  struct frame *sf = XFRAME (selected_frame);

  encode_terminal_bufsize = 0;

#ifdef HAVE_GPM
  mouse_position_hook = term_mouse_position;
  Qmouse_face_window = Qnil;
#endif

#ifdef WINDOWSNT
  initialize_w32_display ();

  defsubr (&Stty_display_color_cells);
  defsubr (&Stty_no_underline);
#ifdef HAVE_GPM
  defsubr (&Sterm_open_connection);
  defsubr (&Sterm_close_connection);

  staticpro (&Qmouse_face_window);
#endif /* HAVE_GPM */

  fullscreen_hook = NULL;
}