Commit f76e0368 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(x_set_background_color): Don't change the colors

of the X window of scroll bar widgets.
parent 003550c5
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.
......
......@@ -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);
......
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