emacs: src/msdos.c comparison

comparison src/msdos.c @ 30341:2ad638704621

(IT_note_mode_line_highlight, IT_note_mouse_highlight): Record the object that generated the help echo and the position of that object in help_echo_object and help_echo_pos. Record that some glyphs in a row are displayed in mouse-face. (IT_update_begin): Don't clear mouse highlight unless one of the enabled glyph rows is marked as being displayed in mouse-face. (dos_rawgetc): Generate 2 events for HELP_EVENT. Pass the object and position recorded in help_echo_object and help_echo_pos to the event queue. (IT_menu_display): Accept a new argument PN: the pane number of the current menu pane. Record the pane number and the item number of the item which has associated help string. (XMenuActivate): Update the prototype for help_callback in function declaration. Call IT_menu_display with the current menu pane number as an additional argument. Call help_callback with two additional arguments: the pane number and the item number of the menu item associated with the help text. (help_echo_object, help_echo_pos): New variables. (syms_of_msdos): Initialize them and staticpro help_echo_object. (help_echo_window): New variable. (syms_of_msdos): Initialize and staticpro it. (IT_note_mode_line_highlight): Set help_echo_window. (IT_note_mouse_highlight): Ditto. (dos_rawgetc): Store help_echo_window in the second event produced for HELP_EVENTs.

author	Eli Zaretskii <eliz@gnu.org>
date	Thu, 20 Jul 2000 11:06:17 +0000
parents	f39367e12c14
children	ace34a073127

comparison

equal deleted inserted replaced

-:be29e15ece0e
+:2ad638704621
 ************************************************************************/
 /* This is used for debugging, to turn off note_mouse_highlight.  */
 int disable_mouse_highlight;
-/* If a string, dos_rawgetc generates an event to display that string.
+/* If non-nil, dos_rawgetc generates an event to display that string.
-(The display is done in keyboard.c:read_char.)  */
+(The display is done in keyboard.c:read_char, by calling
+show_help_echo.)  */
 static Lisp_Object help_echo;
 static Lisp_Object previous_help_echo; /* a helper temporary variable */
+/* These record the window, the object and the position where the help
+echo string was generated.  */
+static Lisp_Object help_echo_window;
+static Lisp_Object help_echo_object;
+static int help_echo_pos;
 static int mouse_preempted = 0;	/* non-zero when XMenu gobbles mouse events */
 /* Set the mouse pointer shape according to whether it is in the
 area where the mouse highlight is in effect.  */
 else
 	end_hpos = row->used[TEXT_AREA];
 if (end_hpos <= start_hpos)
 	continue;
+/* Record that some glyphs of this row are displayed in
+mouse-face.  */
+row->mouse_face_p = hl > 0;
 if (hl > 0)
 	{
 	  int vpos = row->y + WINDOW_DISPLAY_TOP_EDGE_PIXEL_Y (w);
 	  int kstart = start_hpos + WINDOW_DISPLAY_LEFT_EDGE_PIXEL_X (w);
 	  int nglyphs = end_hpos - start_hpos;
 	     arrange for the help to be displayed.  This is done by
 	     setting the global variable help_echo to the help string.  */
 	  help = Fget_text_property (make_number (glyph->charpos),
 				     Qhelp_echo, glyph->object);
 	  if (!NILP (help))
-	    help_echo = help;
+	    {
+	      help_echo = help;
+	      XSETWINDOW (help_echo_window, w);
+	      help_echo_object = glyph->object;
+	      help_echo_pos = glyph->charpos;
+	    }
 	}
 }
 }
 /* Take proper action when the mouse has moved to position X, Y on
 	  /* Check overlays first.  */
 	  help = Qnil;
 	  for (i = 0; i < noverlays && NILP (help); ++i)
 	    help = Foverlay_get (overlay_vec[i], Qhelp_echo);
+	  if (!NILP (help))
+	    {
+	      help_echo = help;
+	      help_echo_window = window;
+	      help_echo_object = w->buffer;
+	      help_echo_pos = pos;
+	    }
 	  /* Try text properties.  */
-	  if (NILP (help)
+	  else if (NILP (help)
-	      && ((STRINGP (glyph->object)
+		   && ((STRINGP (glyph->object)
-		   && glyph->charpos >= 0
+			&& glyph->charpos >= 0
-		   && glyph->charpos < XSTRING (glyph->object)->size)
+			&& glyph->charpos < XSTRING (glyph->object)->size)
-		  || (BUFFERP (glyph->object)
+		       || (BUFFERP (glyph->object)
-		      && glyph->charpos >= BEGV
+			   && glyph->charpos >= BEGV
-		      && glyph->charpos < ZV)))
+			   && glyph->charpos < ZV)))
-	    help = Fget_text_property (make_number (glyph->charpos),
+	    {
-				       Qhelp_echo, glyph->object);
+	      help = Fget_text_property (make_number (glyph->charpos),
+					 Qhelp_echo, glyph->object);
-	  if (!NILP (help))
+	      if (!NILP (help))
-	    help_echo = help;
+		{
+		  help_echo = help;
+		  help_echo_window = window;
+		  help_echo_object = glyph->object;
+		  help_echo_pos = glyph->charpos;
+		}
+	    }
 	}
 	BEGV = obegv;
 	ZV = ozv;
 	current_buffer = obuf;
 if (FRAME_GARBAGED_P (f))
 	display_info->mouse_face_window = Qnil;
 /* Can we tell that this update does not affect the window
 	 where the mouse highlight is?  If so, no need to turn off.
-	 Likewise, don't do anything if the frame is garbaged;
+	 Likewise, don't do anything if none of the enabled rows
-	 in that case, the frame's current matrix that we would use
+	 contains glyphs highlighted in mouse face.  */
-	 is all wrong, and we will redisplay that line anyway.  */
 if (!NILP (display_info->mouse_face_window)
 	  && WINDOWP (display_info->mouse_face_window))
 	{
 	  struct window *w = XWINDOW (display_info->mouse_face_window);
 	  int i;
 	  if (NILP (w->buffer))
 	    display_info->mouse_face_window = Qnil;
 	  else
 	    {
 	      for (i = 0; i < w->desired_matrix->nrows; ++i)
-		if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i))
+		if (MATRIX_ROW_ENABLED_P (w->desired_matrix, i)
+		    && MATRIX_ROW (w->current_matrix, i)->mouse_face_p)
 		  break;
 	    }
 	  if (NILP (w->buffer) || i < w->desired_matrix->nrows)
 	    clear_mouse_face (display_info);
 /* If the mouse moved from the spot of its last sighting, we
 might need to update mouse highlight.  */
 if (mouse_last_x != mouse_prev_x || mouse_last_y != mouse_prev_y)
 	{
 	  previous_help_echo = help_echo;
-	  help_echo = Qnil;
+	  help_echo = help_echo_object = help_echo_window = Qnil;
+	  help_echo_pos = -1;
 	  IT_note_mouse_highlight (SELECTED_FRAME(),
 				   mouse_last_x, mouse_last_y);
 	  /* If the contents of the global variable help_echo has
 	     changed, generate a HELP_EVENT.  */
 	  if (!NILP (help_echo) || !NILP (previous_help_echo))
 	    {
+	      /* HELP_EVENT takes 2 events in the event loop.  */
 	      event.kind = HELP_EVENT;
 	      event.frame_or_window = selected_frame;
+	      event.arg = help_echo_object;
+	      event.x = make_number (help_echo_pos);
+	      event.timestamp = event_timestamp ();
+	      event.code = 0;
+	      kbd_buffer_store_event (&event);
+	      if (WINDOWP (help_echo_window))
+		event.frame_or_window = help_echo_window;
 	      event.arg = help_echo;
-	      event.timestamp = event_timestamp ();
+	      event.code = 1;
 	      kbd_buffer_store_event (&event);
 	    }
 	}
 for (but = 0; but < NUM_MOUSE_BUTTONS; but++)
 Actually, I don't know the meaning of all the parameters of the functions
 here -- I only know how they are called by xmenu.c.  I could of course
 grab the nearest Xlib manual (down the hall, second-to-last door on the
 left), but I don't think it's worth the effort.  */
+/* These hold text of the current and the previous menu help messages.  */
 static char *menu_help_message, *prev_menu_help_message;
+/* Pane number and item number of the menu item which generated the
+last menu help message.  */
+static int menu_help_paneno, menu_help_itemno;
 static XMenu *
 IT_menu_create ()
 {
 XMenu *menu;
 }
 /* Display MENU at (X,Y) using FACES.  */
 static void
-IT_menu_display (XMenu *menu, int y, int x, int *faces, int disp_help)
+IT_menu_display (XMenu *menu, int y, int x, int pn, int *faces, int disp_help)
 {
 int i, j, face, width;
 struct glyph *text, *p;
 char *q;
 int mx, my;
 IT_cursor_to (y + i, x);
 enabled
 	= (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]);
 mousehere = (y + i == my && x <= mx && mx < x + width + 2);
 face = faces[enabled + mousehere * 2];
+/* The following if clause means that we display the menu help
+	 strings even if the menu item is currently disabled.  */
 if (disp_help && enabled + mousehere * 2 >= 2)
-	menu_help_message = menu->help_text[i];
+	{
+	  menu_help_message = menu->help_text[i];
+	  menu_help_paneno = pn - 1;
+	  menu_help_itemno = i;
+	}
 p = text;
 SET_CHAR_GLYPH (*p, ' ', face, 0);
 p++;
 for (j = 0, q = menu->text[i]; *q; j++)
 	{
 /* Display menu, wait for user's response, and return that response.  */
 int
 XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx,
 	       int x0, int y0, unsigned ButtonMask, char **txt,
-	       void (*help_callback)(char *))
+	       void (*help_callback)(char *, int, int))
 {
 struct IT_menu_state *state;
 int statecount;
 int x, y, i, b;
 int screensize;
 x0 = 1;
 if (y0 <= 0)
 y0 = 1;
 /* We will process all the mouse events directly, so we had
-better prevented dos_rawgetc from stealing them from us.  */
+better prevent dos_rawgetc from stealing them from us.  */
 mouse_preempted++;
 state = alloca (menu->panecount * sizeof (struct IT_menu_state));
 screensize = screen_size * 2;
 faces[0]
 /* Turn off the cursor.  Otherwise it shows through the menu
 panes, which is ugly.  */
 IT_display_cursor (0);
 /* Display the menu title.  */
-IT_menu_display (menu, y0 - 1, x0 - 1, title_faces, 0);
+IT_menu_display (menu, y0 - 1, x0 - 1, 1, title_faces, 0);
 if (buffers_num_deleted)
 menu->text[0][7] = ' ';
 if ((onepane = menu->count == 1 && menu->submenu[0]))
 {
 menu->width = menu->submenu[0]->width;
 		    if (i == statecount - 1 && state[i].menu->submenu[dy])
 		      {
 			IT_menu_display (state[i].menu,
 					 state[i].y,
 					 state[i].x,
+					 state[i].pane,
 					 faces, 1);
 			state[statecount].menu = state[i].menu->submenu[dy];
 			state[statecount].pane = state[i].menu->panenumber[dy];
 			mouse_off ();
 			ScreenRetrieve (state[statecount].screen_behind
 		  }
 	      }
 	  IT_menu_display (state[statecount - 1].menu,
 			   state[statecount - 1].y,
 			   state[statecount - 1].x,
+			   state[statecount - 1].pane,
 			   faces, 1);
 	}
 else
 	{
 	  if ((menu_help_message || prev_menu_help_message)
 	      && menu_help_message != prev_menu_help_message)
 	    {
-	      help_callback (menu_help_message);
+	      help_callback (menu_help_message,
+			     menu_help_paneno, menu_help_itemno);
 	      IT_display_cursor (0);
 	      prev_menu_help_message = menu_help_message;
 	    }
 	  /* We are busy-waiting for the mouse to move, so let's be nice
 	     to other Windows applications by releasing our time slice.  */
 syms_of_msdos ()
 {
 recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil);
 staticpro (&recent_doskeys);
 #ifndef HAVE_X_WINDOWS
+help_echo = Qnil;
 staticpro (&help_echo);
-help_echo = Qnil;
+help_echo_object = Qnil;
+staticpro (&help_echo_object);
+help_echo_window = Qnil;
+staticpro (&help_echo_window);
+previous_help_echo = Qnil;
 staticpro (&previous_help_echo);
-previous_help_echo = Qnil;
+help_echo_pos = -1;
 DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path,
 "List of directories to search for bitmap files for X.");
 Vx_bitmap_file_path = decode_env_path ((char *) 0, ".");

Mercurial > emacs

comparison src/msdos.c @ 30341:2ad638704621