Mercurial > emacs

comparison src/xfns.c @ 39159:2c7a6a1b047e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_set_background_color): Don't change the colors of the X window of scroll bar widgets.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 06 Sep 2001 12:48:06 +0000
parents 24e6b905a458
children df33715cdcf8
comparison
equal deleted inserted replaced
39158:b4ea3ae25b50 39159:2c7a6a1b047e
1408 x->background_pixel = bg; 1408 x->background_pixel = bg;
1409 1409
1410 if (FRAME_X_WINDOW (f) != 0) 1410 if (FRAME_X_WINDOW (f) != 0)
1411 { 1411 {
1412 Display *dpy = FRAME_X_DISPLAY (f); 1412 Display *dpy = FRAME_X_DISPLAY (f);
1413 Lisp_Object bar;
1414 1413
1415 BLOCK_INPUT; 1414 BLOCK_INPUT;
1416 XSetBackground (dpy, x->normal_gc, bg); 1415 XSetBackground (dpy, x->normal_gc, bg);
1417 XSetForeground (dpy, x->reverse_gc, bg); 1416 XSetForeground (dpy, x->reverse_gc, bg);
1418 XSetWindowBackground (dpy, FRAME_X_WINDOW (f), bg); 1417 XSetWindowBackground (dpy, FRAME_X_WINDOW (f), bg);
1419 XSetForeground (dpy, x->cursor_gc, bg); 1418 XSetForeground (dpy, x->cursor_gc, bg);
1420 1419
1421 for (bar = FRAME_SCROLL_BARS (f); 1420 #ifndef USE_TOOLKIT_SCROLL_BARS /* Turns out to be annoying with
1422 !NILP (bar); 1421 toolkit scroll bars. */
1423 bar = XSCROLL_BAR (bar)->next) 1422 {
1424 { 1423 Lisp_Object bar;
1425 Window window = SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar)); 1424 for (bar = FRAME_SCROLL_BARS (f);
1426 XSetWindowBackground (dpy, window, bg); 1425 !NILP (bar);
1427 } 1426 bar = XSCROLL_BAR (bar)->next)
1427 {
1428 Window window = SCROLL_BAR_X_WINDOW (XSCROLL_BAR (bar));
1429 XSetWindowBackground (dpy, window, bg);
1430 }
1431 }
1432 #endif /* USE_TOOLKIT_SCROLL_BARS */
1428 1433
1429 UNBLOCK_INPUT; 1434 UNBLOCK_INPUT;
1430 update_face_from_frame_parameter (f, Qbackground_color, arg); 1435 update_face_from_frame_parameter (f, Qbackground_color, arg);
1431 1436
1432 if (FRAME_VISIBLE_P (f)) 1437 if (FRAME_VISIBLE_P (f))