Mercurial > emacs
comparison src/xterm.c @ 75599:a769ec5ab883
[!USE_TOOLKIT_SCROLL_BARS] (x_scroll_bar_expose): Use
the foreground color of the scroll-bar face when drawing the
scroll-bar's border.
author | Jan Djärv <jan.h.d@swipnet.se> |
---|---|
date | Fri, 02 Feb 2007 10:31:02 +0000 |
parents | 1c611e79e0d4 |
children | 9a4cb30592fe 52a7f3f50b89 |
comparison
equal
deleted
inserted
replaced
75598:78cbb66b89d5 | 75599:a769ec5ab883 |
---|---|
5277 | 5277 |
5278 BLOCK_INPUT; | 5278 BLOCK_INPUT; |
5279 | 5279 |
5280 x_scroll_bar_set_handle (bar, XINT (bar->start), XINT (bar->end), 1); | 5280 x_scroll_bar_set_handle (bar, XINT (bar->start), XINT (bar->end), 1); |
5281 | 5281 |
5282 /* Switch to scroll bar foreground color. */ | |
5283 if (f->output_data.x->scroll_bar_foreground_pixel != -1) | |
5284 XSetForeground (FRAME_X_DISPLAY (f), gc, | |
5285 f->output_data.x->scroll_bar_foreground_pixel); | |
5286 | |
5282 /* Draw a one-pixel border just inside the edges of the scroll bar. */ | 5287 /* Draw a one-pixel border just inside the edges of the scroll bar. */ |
5283 XDrawRectangle (FRAME_X_DISPLAY (f), w, gc, | 5288 XDrawRectangle (FRAME_X_DISPLAY (f), w, gc, |
5284 | 5289 |
5285 /* x, y, width, height */ | 5290 /* x, y, width, height */ |
5286 0, 0, | 5291 0, 0, |
5287 XINT (bar->width) - 1 - width_trim - width_trim, | 5292 XINT (bar->width) - 1 - width_trim - width_trim, |
5288 XINT (bar->height) - 1); | 5293 XINT (bar->height) - 1); |
5289 | 5294 |
5290 UNBLOCK_INPUT; | 5295 /* Restore the foreground color of the GC if we changed it above. */ |
5296 if (f->output_data.x->scroll_bar_foreground_pixel != -1) | |
5297 XSetForeground (FRAME_X_DISPLAY (f), gc, | |
5298 f->output_data.x->foreground_pixel); | |
5299 | |
5300 UNBLOCK_INPUT; | |
5291 | 5301 |
5292 } | 5302 } |
5293 #endif /* not USE_TOOLKIT_SCROLL_BARS */ | 5303 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
5294 | 5304 |
5295 /* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind | 5305 /* Handle a mouse click on the scroll bar BAR. If *EMACS_EVENT's kind |