# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1118093270 0
# Node ID e37d71ba7c6eb57d3f00ea81f9c083d44f65700e
# Parent  608496528c2933442305af8aa6cb13b0a131b815
(x_create_toolkit_scroll_bar): Use XtNarrowScrollbars if available.

diff -r 608496528c29 -r e37d71ba7c6e src/xterm.c
--- a/src/xterm.c	Mon Jun 06 21:25:48 2005 +0000
+++ b/src/xterm.c	Mon Jun 06 21:27:50 2005 +0000
@@ -4589,11 +4589,14 @@
     char *initial = "";
     char *val = initial;
     XtVaGetValues (widget, XtNscrollVCursor, (XtPointer) &val,
+#ifdef XtNarrowScrollbars
+		   XtNarrowScrollbars, (XtPointer) &xaw3d_arrow_scroll,
+#endif
 		   XtNpickTop, (XtPointer) &xaw3d_pick_top, NULL);
-    if (val == initial)
+    if (xaw3d_arrow_scroll || val == initial)
       {	/* ARROW_SCROLL */
 	xaw3d_arrow_scroll = True;
-	/* Isn't that just a personal preference ?   -sm */
+	/* Isn't that just a personal preference ?   --Stef */
 	XtVaSetValues (widget, XtNcursorName, "top_left_arrow", NULL);
       }
   }