Commit d8acee5f authored by Karl Heuer's avatar Karl Heuer
Browse files

(x_set_background_color): Set scroll bar backgrounds.

parent 8197b8bf
...@@ -730,7 +730,14 @@ x_set_background_color (f, arg, oldval) ...@@ -730,7 +730,14 @@ x_set_background_color (f, arg, oldval)
f->display.x->background_pixel); f->display.x->background_pixel);
XSetWindowBackground (x_current_display, FRAME_X_WINDOW (f), XSetWindowBackground (x_current_display, FRAME_X_WINDOW (f),
f->display.x->background_pixel); 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 #else
temp = XMakeTile (f->display.x->background_pixel); temp = XMakeTile (f->display.x->background_pixel);
XChangeBackground (FRAME_X_WINDOW (f), temp); XChangeBackground (FRAME_X_WINDOW (f), temp);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment