xemacs-beta: lwlib/xlwscrollbar.c comparison

comparison lwlib/xlwscrollbar.c @ 183:e121b013d1f0 r20-3b18

Import from CVS: tag r20-3b18

author	cvs
date	Mon, 13 Aug 2007 09:54:23 +0200
parents	6075d714658b
children	262b8bb4a523

comparison

equal deleted inserted replaced

-:f07455f06202
+:e121b013d1f0
 /* Implements a lightweight scrollbar widget.
 Copyright (C) 1992, 1993, 1994 Lucid, Inc.
 Copyright (C) 1997 Sun Microsystems, Inc.
 This file is part of the Lucid Widget Library.
 * To use them, put this resource in your .Xdefaults
 *
 * Emacs*XlwScrollBar.translations: #override \n\
 *   <Btn1Down>:     PageDownOrRight()	  \n\
 *   <Btn3Down>:     PageUpOrLeft()
 *
 */
 /*
 * Resources Supported:
 *     XmNforeground
 /* "knob" is obsolete; use "slider" instead. */
 { XmNsliderStyle, XmCSliderStyle, XtRString, sizeof(char *),
 offset(sb.sliderStyle), XtRImmediate, NULL},
 { XmNknobStyle, XmCKnobStyle, XtRString, sizeof(char *),
-offset(sb.sliderStyle), XtRImmediate, NULL},
+offset(sb.knobStyle), XtRImmediate, NULL},
-{ XmNarrowPosition, XmCArrowPosition, XtRString,
+{ XmNarrowPosition, XmCArrowPosition, XtRString, sizeof(char *),
-sizeof(char *), offset(sb.arrowPosition), XtRImmediate, NULL},
+offset(sb.arrowPosition), XtRImmediate, NULL},
 };
 /*-------------------------- Prototypes ---------------------------------*/
 /* Actions */
 if ((w->sb.above + w->sb.ss + w->sb.below > height) ||
 (w->sb.value < w->sb.minimum) ||
 (w->sb.value > w->sb.maximum - w->sb.sliderSize))
 {
 printf("above=%d ss=%d below=%d height=%d\n",
 	     w->sb.above, w->sb.ss, w->sb.below, height);
 printf("value=%d min=%d max=%d ss=%d max-ss=%d\n",
 	     w->sb.value, w->sb.minimum, w->sb.maximum,
 	     w->sb.sliderSize, w->sb.maximum - w->sb.sliderSize);
 abort();
 }
 static SliderStyle
 slider_style (XlwScrollBarWidget w)
 {
-return w->sb.sliderStyle && w->sb.sliderStyle[0] == 'd' ?
+return (w->sb.sliderStyle ? w->sb.sliderStyle[0] == 'd' :
+	  w->sb.knobStyle   ? w->sb.knobStyle[0]   == 'd' :
+	  0) ?
 SLIDER_DIMPLE :
 SLIDER_PLAIN;
 }
 static Boolean
 */
 fg = WhitePixelOfScreen (DefaultScreenOfDisplay (XtDisplay (w)));
 bg = BlackPixelOfScreen (DefaultScreenOfDisplay (XtDisplay (w)));
 }
 values.foreground = fg;
 values.background = bg;
 values.fill_style = FillOpaqueStippled;
 values.stipple    = pm;
 mask = GCForeground | GCBackground |
 	  else
 	    w->sb.bottomShadowColor = fg;
 	}
 }
 if (w->sb.topShadowColor    == w->core.background_pixel ||
 w->sb.bottomShadowColor == w->core.background_pixel)
 {
 /* Assume we're in mono. This code should be okay even if we're
 * really in color but just short on color cells -- We want the
 * following behavior, which has been empirically determined to
 * work well for all fg/bg combinations in mono: If the trough
 * and slider are BOTH black, then use a white top shadow and a
 * grey bottom shadow, otherwise use a grey top shadow and a
 * black bottom shadow.
 mid = width / 2;
 if (shadowT > (width  / 2)) shadowT = (width  / 2);
 if (shadowT > (height / 2)) shadowT = (height / 2);
 if (shadowT < 0) shadowT = 0;
 /*  \-  */
 make_vert_seg (shine,
 		 x, y,
 		 x + mid, y + height - shadowT - 1, shadowT);
 make_vert_seg (shine + shadowT,
 mid = width / 2;
 if (shadowT > (width  / 2)) shadowT = (width  / 2);
 if (shadowT > (height / 2)) shadowT = (height / 2);
 if (shadowT < 0) shadowT = 0;
 /*  |\  */
 make_hor_seg (shine,
 		x, y,
 		x + width - shadowT - 1, y + mid, shadowT);
 make_hor_seg (shine + shadowT,
 w->sb.sliderSize    != sliderSize    ||
 w->sb.increment     != increment     ||
 w->sb.pageIncrement != pageIncrement))
 {
 int last_value = w->sb.value;
 w->sb.value         = value;
 w->sb.sliderSize    = sliderSize;
 w->sb.increment     = increment;
 w->sb.pageIncrement = pageIncrement;
 if (w->sb.showArrows)
 {
 if (mouse_y >= (height -= arrow_height))
 	return BUTTON_DOWN_ARROW;
 if (arrow_same_end (w))
 	{
 	  if (mouse_y >= (height -= arrow_height))
 	    return BUTTON_UP_ARROW;
 	}
 else
 	if ( (mouse_y -= arrow_height) < 0)
 	  return BUTTON_UP_ARROW;
 }
 if ( (mouse_y -= w->sb.above) < 0)
 return BUTTON_TROUGH_ABOVE;
 if ( (mouse_y -= w->sb.ss) < 0)
 return BUTTON_SLIDER;
 if (last_value != w->sb.value)
 {
 seg_pixel_sizes (w, &w->sb.above, &w->sb.ss, &w->sb.below);
 draw_slider (w, w->sb.above, w->sb.ss, w->sb.below);
 call_callbacks (w, reason, w->sb.value, mouse_y, event);
 if (w->sb.timerActive)
 	XtRemoveTimeOut (w->sb.timerId);
 int mouse_x = event_x (w, event);
 int mouse_y = event_y (w, event);
 int scroll_region_y = widget_y (w);
 int scroll_region_h = widget_h (w);
 if (w->sb.showArrows)
 {
 int arrow_height = arrow_h (w);
 scroll_region_h -= 2 * arrow_height;
 if (!arrow_same_end (w))
 last_value = w->sb.value;
 w->sb.above = mouse_y - (w->sb.ss / 2) - scroll_region_y;
 if (w->sb.above < 0)
 	w->sb.above = 0;
 else if (w->sb.above + w->sb.ss > scroll_region_h)
 	w->sb.above = scroll_region_h - w->sb.ss;
 w->sb.below = scroll_region_h - w->sb.ss - w->sb.above;
 w->sb.armed = ARM_SLIDER;
 w->sb.lastY = mouse_y;
 if (w->sb.value != last_value)
 	call_callbacks (w, XmCR_DRAG, w->sb.value, mouse_y, event);
 break;
 default:
 ; /* Do nothing */
 }
 CHECK (w);

Mercurial > hg > xemacs-beta

comparison lwlib/xlwscrollbar.c @ 183:e121b013d1f0 r20-3b18