(x_set_background_color): Don't change the colors

of the X window of scroll bar widgets.

2 files changed, 18 insertions, 8 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 3466100cf3e..3a2a7b77caf 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-09-06  Gerd Moellmann  <gerd@gnu.org>
+
+        * xfns.c (x_set_background_color): Don't change the colors
+        of the X window of scroll bar widgets.
+
 2001-09-05  Andrew Innes  <andrewi@gnu.org>
 
         * w32fns.c (w32_createwindow): Undo last change.
diff --git a/src/xfns.c b/src/xfns.c
index d26ce6466fe..e180b9561ef 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -1410,7 +1410,6 @@ x_set_background_color (f, arg, oldval)
   if (FRAME_X_WINDOW (f) != 0)
     {
       Display *dpy = FRAME_X_DISPLAY (f);
-      Lisp_Object bar;
       
       BLOCK_INPUT;
       XSetBackground (dpy, x->normal_gc, bg);
@@ -1418,13 +1417,19 @@ x_set_background_color (f, arg, oldval)
       XSetWindowBackground (dpy, FRAME_X_WINDOW (f), bg);
       XSetForeground (dpy, x->cursor_gc, bg);
 
-      for (bar = FRAME_SCROLL_BARS (f);
-           !NILP (bar);
-           bar = XSCROLL_BAR (bar)->next)
-        {
-          Window window = SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar));
-          XSetWindowBackground (dpy, window, bg);
-        }
+#ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
+                                   toolkit scroll bars.  */
+      {
+        Lisp_Object bar;
+        for (bar = FRAME_SCROLL_BARS (f);
+             !NILP (bar);
+             bar = XSCROLL_BAR (bar)->next)
+          {
+            Window window = SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar));
+            XSetWindowBackground (dpy, window, bg);
+          }
+      }
+#endif /* USE_TOOLKIT_SCROLL_BARS */
 
       UNBLOCK_INPUT;
       update_face_from_frame_parameter (f, Qbackground_color, arg);