comparison src/w32term.c @ 42919:2a546583564f

(x_update_window_begin): Only hide caret if w32_use_visible_system_caret is set. (x_update_window_end): Only show caret if w32_use_visible_system_caret is set. (syms_of_w32term): Handle SystemParametersInfo call failing.

42918:9b06036a8c5e

{
  struct frame *f = XFRAME (WINDOW_FRAME (w));
  struct w32_display_info *display_info = FRAME_W32_DISPLAY_INFO (f);

  /* Hide the system caret during an update.  */
  SendMessage (w32_system_caret_hwnd, WM_EMACS_HIDE_CARET, 0, 0);

  updated_window = w;
  set_output_cursor (&w->cursor);

  BLOCK_INPUT;

    }

  /* Unhide the caret.  This won't actually show the cursor, unless it
     was visible before the corresponding call to HideCaret in
     x_update_window_begin.  */
  SendMessage (w32_system_caret_hwnd, WM_EMACS_SHOW_CARET, 0, 0);

  updated_window = NULL;
}

  return (HWND) SendMessage (FRAME_W32_WINDOW (f),
			     WM_EMACS_CREATESCROLLBAR, (WPARAM) f, 
			     (LPARAM) bar);
}

//#define ATTACH_THREADS

BOOL
my_show_window (FRAME_PTR f, HWND hwnd, int how)
{
#ifndef ATTACH_THREADS

            }
          else
            SetScrollRange (hwnd, SB_CTL, 0,
                            VERTICAL_SCROLL_BAR_TOP_RANGE (f, height), FALSE);
          my_show_window (f, hwnd, SW_NORMAL);
          //  InvalidateRect (w, NULL, FALSE);

          /* Remember new settings.  */
          XSETINT (bar->left, sb_left);
          XSETINT (bar->top, top);
          XSETINT (bar->width, sb_width);

When this variable is set, other variables affecting the appearance of
the cursor have no effect.  */);

  /* Initialize w32_use_visible_system_caret based on whether a screen
     reader is in use.  */
  SystemParametersInfo (SPI_GETSCREENREADER, 0,
			&w32_use_visible_system_caret, 0);

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

42919:2a546583564f

{
  struct frame *f = XFRAME (WINDOW_FRAME (w));
  struct w32_display_info *display_info = FRAME_W32_DISPLAY_INFO (f);

  /* Hide the system caret during an update.  */
  if (w32_use_visible_system_caret)
    SendMessage (w32_system_caret_hwnd, WM_EMACS_HIDE_CARET, 0, 0);

  updated_window = w;
  set_output_cursor (&w->cursor);

  BLOCK_INPUT;

    }

  /* Unhide the caret.  This won't actually show the cursor, unless it
     was visible before the corresponding call to HideCaret in
     x_update_window_begin.  */
  if (w32_use_visible_system_caret)
    SendMessage (w32_system_caret_hwnd, WM_EMACS_SHOW_CARET, 0, 0);

  updated_window = NULL;
}

  return (HWND) SendMessage (FRAME_W32_WINDOW (f),
			     WM_EMACS_CREATESCROLLBAR, (WPARAM) f, 
			     (LPARAM) bar);
}

/*#define ATTACH_THREADS*/

BOOL
my_show_window (FRAME_PTR f, HWND hwnd, int how)
{
#ifndef ATTACH_THREADS

            }
          else
            SetScrollRange (hwnd, SB_CTL, 0,
                            VERTICAL_SCROLL_BAR_TOP_RANGE (f, height), FALSE);
          my_show_window (f, hwnd, SW_NORMAL);
          /* InvalidateRect (w, NULL, FALSE);  */

          /* Remember new settings.  */
          XSETINT (bar->left, sb_left);
          XSETINT (bar->top, top);
          XSETINT (bar->width, sb_width);

When this variable is set, other variables affecting the appearance of
the cursor have no effect.  */);

  /* Initialize w32_use_visible_system_caret based on whether a screen
     reader is in use.  */
  if (!SystemParametersInfo (SPI_GETSCREENREADER, 0,
			     &w32_use_visible_system_caret, 0))
    w32_use_visible_system_caret = 0;

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