comparison src/w32term.c @ 30988:a69a2ac4345b

(help_echo_window): New variable. (syms_of_w32term): staticpro it. (note_mode_line_highlight): Set it. (XTextExtents16): Removed as there is no equivalent on W32. (x_compute_glyph_string_overhangs): Incomplete body removed, as the X way of doing this will not work for W32. (w32_intersect_rectangles): Removed. Use IntersectRect API call. (x_draw_image_foreground): Avoid drawing outside of the clip area when image doesn't have a mask. (note_mouse_highlight): Process overlays in the right order of priority. Set help_echo_window. (x_draw_bar_cursor): If cursor is on an image, draw a box cursor because that's more visible for large images.

30987:36b17174de3b

/* If a string, w32_read_socket generates an event to display that string.
   (The display is done in read_char.)  */
   
static Lisp_Object help_echo;
static Lisp_Object help_echo_object;
static int help_echo_pos;

/* Temporary variable for w32_read_socket.  */

                                     struct frame *));
static void w32_frame_rehighlight P_ ((struct frame *));
static void x_frame_rehighlight P_ ((struct w32_display_info *));
static void x_draw_hollow_cursor P_ ((struct window *, struct glyph_row *));
static void x_draw_bar_cursor P_ ((struct window *, struct glyph_row *, int));
static int w32_intersect_rectangles P_ ((RECT *, RECT *, RECT *));
static void expose_frame P_ ((struct frame *, int, int, int, int));
static void expose_window_tree P_ ((struct window *, RECT *));
static void expose_window P_ ((struct window *, RECT *));
static void expose_area P_ ((struct window *, struct glyph_row *,
			     RECT *, enum glyph_row_area));

void XGetGCValues (void* ignore, XGCValues *gc,
                   unsigned long mask, XGCValues *xgcv)
{
  XChangeGC (ignore, xgcv, mask, gc);
}

void XTextExtents16 (XFontStruct *font, wchar_t *text, int nchars,
                     int *direction,int *font_ascent,
                     int *font_descent, XCharStruct *cs)
{
  /* NTEMACS_TODO: Use GetTextMetrics to do this and inline it below. */
}

static void
w32_set_clip_rectangle (HDC hdc, RECT *rect)
{

      if (font->bdf)
        font_type = BDF_FONT;
      else if (!w32_enable_unicode_output)
        font_type = ANSI_FONT;
      else
        font_type = UNICODE_FONT;  /* NTEMACS_TODO: Need encoding? */
    }

  pcm = (XCharStruct *) xmalloc (sizeof (XCharStruct));

  if (font->hfont)

static INLINE void
x_compute_glyph_string_overhangs (s)
     struct glyph_string *s;
{
  if (s->cmp == NULL
      && s->first_glyph->type == CHAR_GLYPH)
    {
      XCharStruct cs;
      int direction, font_ascent, font_descent;
      XTextExtents16 (s->font, s->char2b, s->nchars, &direction,
		      &font_ascent, &font_descent, &cs);
      s->right_overhang = cs.rbearing > cs.width ? cs.rbearing - cs.width : 0;
      s->left_overhang = cs.lbearing < 0 ? -cs.lbearing : 0;
    }
}


/* Compute overhangs and x-positions for glyph string S and its
   predecessors, or successors.  X is the starting x-position for S.

	  w32_get_glyph_string_clip_rect (s, &clip_rect);
	  image_rect.x = x;
	  image_rect.y = y;
	  image_rect.width = s->img->width;
	  image_rect.height = s->img->height;
	  if (w32_intersect_rectangles (&clip_rect, &image_rect, &r))
	    XCopyArea (s->display, s->img->pixmap, s->window, s->gc,
		       r.x - x, r.y - y, r.width, r.height, r.x, r.y);
	}
      else
#endif
	{
          HDC compat_hdc = CreateCompatibleDC (s->hdc);
          HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground);
          HBRUSH orig_brush = SelectObject (s->hdc, fg_brush);
          HGDIOBJ orig_obj = SelectObject (compat_hdc, s->img->pixmap);

          SetTextColor (s->hdc, s->gc->foreground);
          SetBkColor (s->hdc, s->gc->background);
#if 0 /* From w32bdf.c (which is from Meadow).  */
          BitBlt (s->hdc, x, y, s->img->width, s->img->height,

	     the image.  I believe it's looking better if we do
	     nothing here for mouse-face.  */
	  if (s->hl == DRAW_CURSOR)
            w32_draw_rectangle (s->hdc, s->gc, x, y, s->img->width - 1,
                                s->img->height - 1);
	}
    }
  else
    w32_draw_rectangle (s->hdc, s->gc, x, y, s->img->width -1,
                        s->img->height - 1);

      window_rect.left = window_x;
      window_rect.top = window_y;
      window_rect.right = window_x + window_width;
      window_rect.bottom = window_y + window_height;

      if (w32_intersect_rectangles (&r, &window_rect, &intersection_rect))
	expose_window (w, &intersection_rect);
    }
}

	       + FRAME_X_FLAGS_AREA_WIDTH (f)
	       + FRAME_SCROLL_BAR_WIDTH (f) * CANON_X_UNIT (f));
	  window_rect.bottom = window_rect.top
	    + window_height + CURRENT_MODE_LINE_HEIGHT (w);

	  if (w32_intersect_rectangles (r, &window_rect, &intersection_rect))
	    expose_window (w, &intersection_rect);
	}

      w = NILP (w->next) ? 0 : XWINDOW (w->next);
    }

    {
      cr.left = w->phys_cursor.x;
      cr.top = w->phys_cursor.y;
      cr.right = cr.left + cursor_glyph->pixel_width;
      cr.bottom = cr.top + w->phys_cursor_height;
      return w32_intersect_rectangles (&cr, r, &result);
    }
  else
    return 0;
}

      /* Turn the cursor on again.  */
      if (cursor_cleared_p)
	x_update_window_cursor (w, 1);
    }
}


/* Determine the intersection of two rectangles R1 and R2.  Return
   the intersection in *RESULT.  Value is non-zero if RESULT is not
   empty.  */

static int
w32_intersect_rectangles (r1, r2, result)
     RECT *r1, *r2, *result;
{
  RECT *left, *right;
  RECT *upper, *lower;
  int intersection_p = 0;
  
  /* Rerrange so that R1 is the left-most rectangle.  */
  if (r1->left < r2->left)
    left = r1, right = r2;
  else
    left = r2, right = r1;

  /* X0 of the intersection is right.x0, if this is inside R1,
     otherwise there is no intersection.  */
  if (right->left <= left->right)
    {
      result->left = right->left;
      
      /* The right end of the intersection is the minimum of the
	 the right ends of left and right.  */
      result->right = min (left->right, right->right);

      /* Same game for Y.  */
      if (r1->top < r2->top)
	upper = r1, lower = r2;
      else
	upper = r2, lower = r1;

      /* The upper end of the intersection is lower.y0, if this is inside
	 of upper.  Otherwise, there is no intersection.  */
      if (lower->top <= upper->bottom)
	{
	  result->top = lower->top;
	  
	  /* The lower end of the intersection is the minimum of the lower
	     ends of upper and lower.  */
	  result->bottom = min (lower->bottom, upper->bottom);
	  intersection_p = 1;
	}
    }

  return intersection_p;
}





static void
frame_highlight (f)
     struct frame *f;

	  help = Fget_text_property (make_number (glyph->charpos),
				     Qhelp_echo, glyph->object);
	  if (!NILP (help))
            {
              help_echo = help;
              help_echo_object = glyph->object;
              help_echo_pos = glyph->charpos;
            }

	  /* Change the mouse pointer according to what is under X/Y.  */

	    len = noverlays;
	    overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
	    noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL,0);
	  }

        noverlays = sort_overlays (overlay_vec, noverlays, w);

	/* Check mouse-face highlighting.  */
	if (! (EQ (window, dpyinfo->mouse_face_window)
	       && vpos >= dpyinfo->mouse_face_beg_row

	    /* Clear the display of the old active region, if any.  */
	    clear_mouse_face (dpyinfo);

            /* Find the highest priority overlay that has a mouse-face prop.  */
            overlay = Qnil;
            for (i = 0; i < noverlays; i++)
              {
                mouse_face = Foverlay_get (overlay_vec[i], Qmouse_face);
                if (!NILP (mouse_face))
                  {
                    overlay = overlay_vec[i];

              }
          }

        /* Look for a `help-echo' property.  */
        {
          Lisp_Object help;

	  /* 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_object = w->buffer;
              help_echo_pos = pos;
            }
          else
            {
              /* Try text properties.  */

                                           Qhelp_echo, glyph->object);
	    
              if (!NILP (help))
                {
                  help_echo = help;
                  help_echo_object = glyph->object;
                  help_echo_pos = glyph->charpos;
                }
            }
        }

      
 set_help_echo:
  
  /* Set help_echo to a help string.to display for this tool-bar item.
     w32_read_socket does the rest.  */
  help_echo_object = Qnil;
  help_echo_pos = -1;
  help_echo = (XVECTOR (f->current_tool_bar_items)
	       ->contents[prop_idx + TOOL_BAR_ITEM_HELP]);
  if (NILP (help_echo))
    help_echo = (XVECTOR (f->current_tool_bar_items)

	    }
	  break;

	case WM_MOUSEMOVE:
          previous_help_echo = help_echo;
          help_echo = Qnil;

	  if (dpyinfo->grabbed && last_mouse_frame
	      && FRAME_LIVE_P (last_mouse_frame))
	    f = last_mouse_frame;
	  else

                XSETFRAME (frame, f);
              else
                frame = Qnil;

              any_help_event_p = 1;
              n = gen_help_event (bufp, help_echo, frame,
                                  help_echo_object, help_echo_pos);
              bufp += n, count += n, numchars -= n;
            }
          break;

              if (any_help_event_p)
                {
                  int n;

                  XSETFRAME (frame, f);
                  n = gen_help_event (bufp, Qnil, frame, Qnil, 0);
                  bufp += n, count += n, numchars -=n;
                }
            }

	  dpyinfo->grabbed = 0;

      cursor_glyph = get_phys_cursor_glyph (w);
      if (cursor_glyph == NULL)
	return;

      x = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x);

      if (width < 0)
        width = f->output_data.w32->cursor_width;

      hdc = get_frame_dc (f);
      w32_fill_area (f, hdc, f->output_data.w32->cursor_pixel,
                     x,
                     WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y),
                     min (cursor_glyph->pixel_width, width),
                     row->height);
      release_frame_dc (f, hdc);
    }
}


/* Clear the cursor of window W to background color, and mark the

static INLINE void
x_font_min_bounds (font, w, h)
     XFontStruct *font;
     int *w, *h;
{
  *h = FONT_HEIGHT (font);
  *w = FONT_WIDTH (font);
#if 0 /* NTEMACS_TODO: min/max bounds of Windows fonts */
  *w = font->min_bounds.width;

  /* Try to handle the case where FONT->min_bounds has invalid
     contents.  Since the only font known to have invalid min_bounds
     is fixed-width, use max_bounds if min_bounds seems to be invalid.  */
  if (*w <= 0)
    *w = font->max_bounds.width;
#endif
}


/* Compute the smallest character width and smallest font height over
   all fonts available on frame F.  Set the members smallest_char_width

  if (flags & XNegative)
    f->output_data.w32->left_pos = (FRAME_W32_DISPLAY_INFO (f)->width
			      - 2 * f->output_data.w32->border_width - pt.x
			      - PIXEL_WIDTH (f)
			      + f->output_data.w32->left_pos);
  /* NTEMACS_TODO: Subtract menubar height?  */
  if (flags & YNegative)
    f->output_data.w32->top_pos = (FRAME_W32_DISPLAY_INFO (f)->height
			     - 2 * f->output_data.w32->border_width - pt.y
			     - PIXEL_HEIGHT (f)
			     + f->output_data.w32->top_pos);

  help_echo = Qnil;
  staticpro (&help_echo);
  help_echo_object = Qnil;
  staticpro (&help_echo_object);
  previous_help_echo = Qnil;
  staticpro (&previous_help_echo);

  DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p,
    "*Non-nil means draw block cursor as wide as the glyph under it.\n\
For example, if a block cursor is over a tab, it will be drawn as\n\
wide as that tab on the display.");

30988:a69a2ac4345b

/* If a string, w32_read_socket generates an event to display that string.
   (The display is done in read_char.)  */
   
static Lisp_Object help_echo;
static Lisp_Object help_echo_window;
static Lisp_Object help_echo_object;
static int help_echo_pos;

/* Temporary variable for w32_read_socket.  */

                                     struct frame *));
static void w32_frame_rehighlight P_ ((struct frame *));
static void x_frame_rehighlight P_ ((struct w32_display_info *));
static void x_draw_hollow_cursor P_ ((struct window *, struct glyph_row *));
static void x_draw_bar_cursor P_ ((struct window *, struct glyph_row *, int));
static void expose_frame P_ ((struct frame *, int, int, int, int));
static void expose_window_tree P_ ((struct window *, RECT *));
static void expose_window P_ ((struct window *, RECT *));
static void expose_area P_ ((struct window *, struct glyph_row *,
			     RECT *, enum glyph_row_area));

void XGetGCValues (void* ignore, XGCValues *gc,
                   unsigned long mask, XGCValues *xgcv)
{
  XChangeGC (ignore, xgcv, mask, gc);
}

static void
w32_set_clip_rectangle (HDC hdc, RECT *rect)
{

      if (font->bdf)
        font_type = BDF_FONT;
      else if (!w32_enable_unicode_output)
        font_type = ANSI_FONT;
      else
        font_type = UNICODE_FONT;
    }

  pcm = (XCharStruct *) xmalloc (sizeof (XCharStruct));

  if (font->hfont)

static INLINE void
x_compute_glyph_string_overhangs (s)
     struct glyph_string *s;
{
  /* NTEMACS_TODO: Windows does not appear to have a method for
     getting this info without getting the ABC widths for each
     individual character and working it out manually. */
}


/* Compute overhangs and x-positions for glyph string S and its
   predecessors, or successors.  X is the starting x-position for S.

	  w32_get_glyph_string_clip_rect (s, &clip_rect);
	  image_rect.x = x;
	  image_rect.y = y;
	  image_rect.width = s->img->width;
	  image_rect.height = s->img->height;
	  if (IntersectRect (&r, &clip_rect, &image_rect))
	    XCopyArea (s->display, s->img->pixmap, s->window, s->gc,
		       r.x - x, r.y - y, r.width, r.height, r.x, r.y);
	}
      else
#endif
	{
          HDC compat_hdc = CreateCompatibleDC (s->hdc);
          HBRUSH fg_brush = CreateSolidBrush (s->gc->foreground);
          HBRUSH orig_brush = SelectObject (s->hdc, fg_brush);
          HGDIOBJ orig_obj = SelectObject (compat_hdc, s->img->pixmap);
          x_set_glyph_string_clipping (s);

          SetTextColor (s->hdc, s->gc->foreground);
          SetBkColor (s->hdc, s->gc->background);
#if 0 /* From w32bdf.c (which is from Meadow).  */
          BitBlt (s->hdc, x, y, s->img->width, s->img->height,

	     the image.  I believe it's looking better if we do
	     nothing here for mouse-face.  */
	  if (s->hl == DRAW_CURSOR)
            w32_draw_rectangle (s->hdc, s->gc, x, y, s->img->width - 1,
                                s->img->height - 1);
          w32_set_clip_rectangle(s->hdc, NULL);
	}
    }
  else
    w32_draw_rectangle (s->hdc, s->gc, x, y, s->img->width -1,
                        s->img->height - 1);

      window_rect.left = window_x;
      window_rect.top = window_y;
      window_rect.right = window_x + window_width;
      window_rect.bottom = window_y + window_height;

      if (IntersectRect (&intersection_rect, &r, &window_rect))
	expose_window (w, &intersection_rect);
    }
}

	       + FRAME_X_FLAGS_AREA_WIDTH (f)
	       + FRAME_SCROLL_BAR_WIDTH (f) * CANON_X_UNIT (f));
	  window_rect.bottom = window_rect.top
	    + window_height + CURRENT_MODE_LINE_HEIGHT (w);

	  if (IntersectRect (&intersection_rect, r, &window_rect))
	    expose_window (w, &intersection_rect);
	}

      w = NILP (w->next) ? 0 : XWINDOW (w->next);
    }

    {
      cr.left = w->phys_cursor.x;
      cr.top = w->phys_cursor.y;
      cr.right = cr.left + cursor_glyph->pixel_width;
      cr.bottom = cr.top + w->phys_cursor_height;
      return IntersectRect (&result, &cr, r);
    }
  else
    return 0;
}

      /* Turn the cursor on again.  */
      if (cursor_cleared_p)
	x_update_window_cursor (w, 1);
    }
}


static void
frame_highlight (f)
     struct frame *f;

	  help = Fget_text_property (make_number (glyph->charpos),
				     Qhelp_echo, glyph->object);
	  if (!NILP (help))
            {
              help_echo = help;
              XSETWINDOW (help_echo_window, w);
              help_echo_object = glyph->object;
              help_echo_pos = glyph->charpos;
            }

	  /* Change the mouse pointer according to what is under X/Y.  */

	    len = noverlays;
	    overlay_vec = (Lisp_Object *) alloca (len * sizeof (Lisp_Object));
	    noverlays = overlays_at (pos, 0, &overlay_vec, &len, NULL, NULL,0);
	  }

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

	/* Check mouse-face highlighting.  */
	if (! (EQ (window, dpyinfo->mouse_face_window)
	       && vpos >= dpyinfo->mouse_face_beg_row

	    /* Clear the display of the old active region, if any.  */
	    clear_mouse_face (dpyinfo);

            /* Find the highest priority overlay that has a mouse-face prop.  */
            overlay = Qnil;
            for (i = noverlays - 1; i >= 0; --i)
              {
                mouse_face = Foverlay_get (overlay_vec[i], Qmouse_face);
                if (!NILP (mouse_face))
                  {
                    overlay = overlay_vec[i];

              }
          }

        /* Look for a `help-echo' property.  */
        {
          Lisp_Object help, overlay;

	  /* Check overlays first.  */
	  help = Qnil;
	  for (i = noverlays - 1; i >= 0 && NILP (help); --i)
            {
              overlay = overlay_vec[i];
              help = Foverlay_get (overlay, Qhelp_echo); 
            }

          if (!NILP (help))
            {
              help_echo = help;
              help_echo_window = window;
              help_echo_object = overlay;
              help_echo_pos = pos;
            }
          else
            {
              /* Try text properties.  */

                                           Qhelp_echo, glyph->object);
	    
              if (!NILP (help))
                {
                  help_echo = help;
                  help_echo_window = window;
                  help_echo_object = glyph->object;
                  help_echo_pos = glyph->charpos;
                }
            }
        }

      
 set_help_echo:
  
  /* Set help_echo to a help string.to display for this tool-bar item.
     w32_read_socket does the rest.  */
  help_echo_object = help_echo_window = Qnil;
  help_echo_pos = -1;
  help_echo = (XVECTOR (f->current_tool_bar_items)
	       ->contents[prop_idx + TOOL_BAR_ITEM_HELP]);
  if (NILP (help_echo))
    help_echo = (XVECTOR (f->current_tool_bar_items)

	    }
	  break;

	case WM_MOUSEMOVE:
          previous_help_echo = help_echo;
          help_echo = help_echo_object = help_echo_window = Qnil;
          help_echo_pos = -1;

	  if (dpyinfo->grabbed && last_mouse_frame
	      && FRAME_LIVE_P (last_mouse_frame))
	    f = last_mouse_frame;
	  else

                XSETFRAME (frame, f);
              else
                frame = Qnil;

              any_help_event_p = 1;
              n = gen_help_event (bufp, help_echo, frame, help_echo_window,
                                  help_echo_object, help_echo_pos);
              bufp += n, count += n, numchars -= n;
            }
          break;

              if (any_help_event_p)
                {
                  int n;

                  XSETFRAME (frame, f);
                  n = gen_help_event (bufp, Qnil, frame, Qnil, Qnil, 0);
                  bufp += n, count += n, numchars -=n;
                }
            }

	  dpyinfo->grabbed = 0;

      cursor_glyph = get_phys_cursor_glyph (w);
      if (cursor_glyph == NULL)
	return;

      /* If on an image, draw like a normal cursor.  That's usually better
         visible than drawing a bar, esp. if the image is large so that
         the bar might not be in the window.  */
      if (cursor_glyph->type == IMAGE_GLYPH)
        {
          struct glyph_row *row;
          row = MATRIX_ROW (w->current_matrix, w->phys_cursor.vpos);
          x_draw_phys_cursor_glyph (w, row, DRAW_CURSOR);
        }
      else
        {

          x = WINDOW_TEXT_TO_FRAME_PIXEL_X (w, w->phys_cursor.x);

          if (width < 0)
            width = f->output_data.w32->cursor_width;

          hdc = get_frame_dc (f);
          w32_fill_area (f, hdc, f->output_data.w32->cursor_pixel,
                         x,
                         WINDOW_TO_FRAME_PIXEL_Y (w, w->phys_cursor.y),
                         min (cursor_glyph->pixel_width, width),
                         row->height);
          release_frame_dc (f, hdc);
        }
    }
}


/* Clear the cursor of window W to background color, and mark the

static INLINE void
x_font_min_bounds (font, w, h)
     XFontStruct *font;
     int *w, *h;
{
  /*
   * NTEMACS_TODO: Windows does not appear to offer min bound, only
   * average and maximum width, and maximum height.
   */
  *h = FONT_HEIGHT (font);
  *w = FONT_WIDTH (font);
}


/* Compute the smallest character width and smallest font height over
   all fonts available on frame F.  Set the members smallest_char_width

  if (flags & XNegative)
    f->output_data.w32->left_pos = (FRAME_W32_DISPLAY_INFO (f)->width
			      - 2 * f->output_data.w32->border_width - pt.x
			      - PIXEL_WIDTH (f)
			      + f->output_data.w32->left_pos);

  if (flags & YNegative)
    f->output_data.w32->top_pos = (FRAME_W32_DISPLAY_INFO (f)->height
			     - 2 * f->output_data.w32->border_width - pt.y
			     - PIXEL_HEIGHT (f)
			     + f->output_data.w32->top_pos);

  help_echo = Qnil;
  staticpro (&help_echo);
  help_echo_object = Qnil;
  staticpro (&help_echo_object);
  help_echo_window = Qnil;
  staticpro (&help_echo_window);
  previous_help_echo = Qnil;
  staticpro (&previous_help_echo);
  help_echo_pos = -1;

  DEFVAR_BOOL ("x-stretch-cursor", &x_stretch_cursor_p,
    "*Non-nil means draw block cursor as wide as the glyph under it.\n\
For example, if a block cursor is over a tab, it will be drawn as\n\
wide as that tab on the display.");