Mercurial > emacs
comparison src/xterm.c @ 40257:98531a716f48
(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Fix clearing of area not covered by scroll bar.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 24 Oct 2001 14:04:57 +0000 |
parents | 2c3b3b0a9c60 |
children | 1814c23c0524 |
comparison
equal
deleted
inserted
replaced
40256:561bc8b0392f | 40257:98531a716f48 |
---|---|
9206 #endif | 9206 #endif |
9207 | 9207 |
9208 /* Does the scroll bar exist yet? */ | 9208 /* Does the scroll bar exist yet? */ |
9209 if (NILP (w->vertical_scroll_bar)) | 9209 if (NILP (w->vertical_scroll_bar)) |
9210 { | 9210 { |
9211 BLOCK_INPUT; | |
9212 if (width && height) | 9211 if (width && height) |
9213 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), | 9212 { |
9214 left, top, width, height, False); | 9213 BLOCK_INPUT; |
9215 UNBLOCK_INPUT; | 9214 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
9215 left, top, width, height, False); | |
9216 UNBLOCK_INPUT; | |
9217 } | |
9218 | |
9216 bar = x_scroll_bar_create (w, top, sb_left, sb_width, height); | 9219 bar = x_scroll_bar_create (w, top, sb_left, sb_width, height); |
9217 } | 9220 } |
9218 else | 9221 else |
9219 { | 9222 { |
9220 /* It may just need to be moved and resized. */ | 9223 /* It may just need to be moved and resized. */ |
9271 { | 9274 { |
9272 int area_width = FRAME_SCROLL_BAR_COLS (f) * CANON_X_UNIT (f); | 9275 int area_width = FRAME_SCROLL_BAR_COLS (f) * CANON_X_UNIT (f); |
9273 int rest = area_width - sb_width; | 9276 int rest = area_width - sb_width; |
9274 if (rest > 0) | 9277 if (rest > 0) |
9275 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), | 9278 x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), |
9276 left + area_width - rest, 0, | 9279 left + area_width - rest, top, |
9277 rest, max (height, 1), False); | 9280 rest, max (height, 1), False); |
9278 } | 9281 } |
9279 | 9282 |
9280 /* Move/size the scroll bar window. */ | 9283 /* Move/size the scroll bar window. */ |
9281 if (mask) | 9284 if (mask) |