]> git.eshelyaron.com Git - emacs.git/commitdiff
(x_set_background_color): Set scroll bar backgrounds.
authorKarl Heuer <kwzh@gnu.org>
Sat, 21 May 1994 01:11:51 +0000 (01:11 +0000)
committerKarl Heuer <kwzh@gnu.org>
Sat, 21 May 1994 01:11:51 +0000 (01:11 +0000)
src/xfns.c

index 5fc2ac650ca652e7f4cfc1ea3651d0664fdfd2fc..6f3217f84b7f0195c9f6cbca4120b7570e12cf36 100644 (file)
@@ -730,7 +730,14 @@ x_set_background_color (f, arg, oldval)
                      f->display.x->background_pixel);
       XSetWindowBackground (x_current_display, FRAME_X_WINDOW (f),
                            f->display.x->background_pixel);
-
+      {
+       Lisp_Object bar;
+       for (bar = FRAME_SCROLL_BARS (f); !NILP (bar);
+            bar = XSCROLL_BAR (bar)->next)
+         XSetWindowBackground (x_current_display,
+                               SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)),
+                               f->display.x->background_pixel);
+      }
 #else
       temp = XMakeTile (f->display.x->background_pixel);
       XChangeBackground (FRAME_X_WINDOW (f), temp);