]> code.delx.au - gnu-emacs/commitdiff
(x_create_toolkit_scroll_bar): Use XtNarrowScrollbars if available.
authorStefan Monnier <monnier@iro.umontreal.ca>
Mon, 6 Jun 2005 21:27:50 +0000 (21:27 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Mon, 6 Jun 2005 21:27:50 +0000 (21:27 +0000)
src/xterm.c

index 8612d53fbee45f4e137b7e000a47f385199a987b..4ab555974db49b296fe14bcd8e430a88d7250abb 100644 (file)
@@ -4589,11 +4589,14 @@ x_create_toolkit_scroll_bar (f, bar)
     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);
       }
   }