procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(x_set_background_color): Don't change the colors

Browse source 
of the X window of scroll bar widgets.
This commit is contained in:
Gerd Moellmann 2001-09-06 12:48:24 +00:00
parent 003550c5e3
commit f76e03683e
2 changed files with 18 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -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.

21
src/xfns.c
View file

@ -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);