comparison src/xterm.c @ 36772:a5012395e839

(x_set_toolkit_scroll_bar_thumb) [USE_MOTIF]: Don't access private scroll bar data; it's no longer necessary with contemporary LessTif.

36771:6d432526b84f

	BLOCK_INPUT;
	XtVaGetValues (widget, XmNsliderSize, &slider_size, NULL);
	UNBLOCK_INPUT;

	/* At the max position of the scroll bar, do a line-wise
	   movement.  Without doing anything, the LessTif scroll bar
	   calls us with the same cs->value again and again.  If we
	   want to make sure that we can reach the end of the buffer,
	   we have to do something.

	   Implementation note: setting bar->dragging always to
	   cs->value gives a smoother movement at the max position.
	   Setting it to nil when doing line-wise movement gives
	   a better slider behavior. */

  unsigned long pixel;

  BLOCK_INPUT;

#ifdef USE_MOTIF
  /* LessTif 0.85, problems:

     1. When the mouse if over the scroll bar, the scroll bar will
     get keyboard events.  I didn't find a way to turn this off.

     2. Do we have to explicitly set the cursor to get an arrow
     cursor (see below)?  */
  
  /* Set resources.  Create the widget.  */
  XtSetArg (av[ac], XtNmappedWhenManaged, False); ++ac;
  XtSetArg (av[ac], XmNminimum, XM_SB_MIN); ++ac;
  XtSetArg (av[ac], XmNmaximum, XM_SB_MAX); ++ac;
  XtSetArg (av[ac], XmNorientation, XmVERTICAL); ++ac;

  BLOCK_INPUT;

#ifdef USE_MOTIF
  {
    int size, value;
    Boolean arrow1_selected, arrow2_selected;
    unsigned char flags;
    XmScrollBarWidget sb;

    /* Slider size.  Must be in the range [1 .. MAX - MIN] where MAX
       is the scroll bar's maximum and MIN is the scroll bar's minimum
       value.  */

    /* Position.  Must be in the range [MIN .. MAX - SLIDER_SIZE].  */
    value = top * XM_SB_RANGE;
    value = min (value, XM_SB_MAX - size);
    value = max (value, XM_SB_MIN);

    /* LessTif: Calling XmScrollBarSetValues after an increment or
       decrement turns off auto-repeat LessTif-internally.  This can
       be seen in ScrollBar.c which resets Arrow1Selected and
       Arrow2Selected.  It also sets internal flags so that LessTif
       believes the mouse is in the slider.  We either have to change
       our code, or work around that by accessing private data. */

    sb = (XmScrollBarWidget) widget;
    arrow1_selected = sb->scrollBar.arrow1_selected;
    arrow2_selected = sb->scrollBar.arrow2_selected;
    flags = sb->scrollBar.flags;
    
    if (NILP (bar->dragging))
      XmScrollBarSetValues (widget, value, size, 0, 0, False);
    else if (last_scroll_bar_part == scroll_bar_down_arrow)
      /* This has the negative side effect that the slider value is
	 not what it would be if we scrolled here using line-wise or

			      &increment, &page_increment);
	XmScrollBarSetValues (widget, old_value,
			      min (size, XM_SB_RANGE - old_value),
			      0, 0, False);
      }
    
    sb->scrollBar.arrow1_selected = arrow1_selected;
    sb->scrollBar.arrow2_selected = arrow2_selected;
    sb->scrollBar.flags = flags;
  }
#else /* !USE_MOTIF i.e. use Xaw */
  {
    float old_top, old_shown;
    Dimension height;

36772:a5012395e839

	BLOCK_INPUT;
	XtVaGetValues (widget, XmNsliderSize, &slider_size, NULL);
	UNBLOCK_INPUT;

	/* At the max position of the scroll bar, do a line-wise
	   movement.  Without doing anything, we would be called with
	   the same cs->value again and again.  If we want to make
	   sure that we can reach the end of the buffer, we have to do
	   something.

	   Implementation note: setting bar->dragging always to
	   cs->value gives a smoother movement at the max position.
	   Setting it to nil when doing line-wise movement gives
	   a better slider behavior. */

  unsigned long pixel;

  BLOCK_INPUT;

#ifdef USE_MOTIF
  /* Set resources.  Create the widget.  */
  XtSetArg (av[ac], XtNmappedWhenManaged, False); ++ac;
  XtSetArg (av[ac], XmNminimum, XM_SB_MIN); ++ac;
  XtSetArg (av[ac], XmNmaximum, XM_SB_MAX); ++ac;
  XtSetArg (av[ac], XmNorientation, XmVERTICAL); ++ac;

  BLOCK_INPUT;

#ifdef USE_MOTIF
  {
    int size, value;
    XmScrollBarWidget sb;

    /* Slider size.  Must be in the range [1 .. MAX - MIN] where MAX
       is the scroll bar's maximum and MIN is the scroll bar's minimum
       value.  */

    /* Position.  Must be in the range [MIN .. MAX - SLIDER_SIZE].  */
    value = top * XM_SB_RANGE;
    value = min (value, XM_SB_MAX - size);
    value = max (value, XM_SB_MIN);

    if (NILP (bar->dragging))
      XmScrollBarSetValues (widget, value, size, 0, 0, False);
    else if (last_scroll_bar_part == scroll_bar_down_arrow)
      /* This has the negative side effect that the slider value is
	 not what it would be if we scrolled here using line-wise or

			      &increment, &page_increment);
	XmScrollBarSetValues (widget, old_value,
			      min (size, XM_SB_RANGE - old_value),
			      0, 0, False);
      }
  }
#else /* !USE_MOTIF i.e. use Xaw */
  {
    float old_top, old_shown;
    Dimension height;