mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-24 05:22:04 -08:00
Code Issues Projects Releases Wiki Activity

(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:

Browse source 
Fix clearing of area not covered by scroll bar.
This commit is contained in:
Gerd Moellmann 2001-10-24 14:06:45 +00:00
parent 2a7b4c36ce
commit 995dd67fa7
2 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ChangeLog
View file

@ -1,5 +1,8 @@
2001-10-24 Gerd Moellmann <gerd@gnu.org>
* xterm.c (XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Fix clearing of area not covered by scroll bar.
* xdisp.c: Change #ifdef GLYPH_DEBUG to #if.
* xdisp.c (try_window_reusing_current_matrix): Use

13
src/xterm.c
View file

@ -9197,11 +9197,14 @@ XTset_vertical_scroll_bar (w, portion, whole, position)
/* Does the scroll bar exist yet? */
if (NILP (w->vertical_scroll_bar))
{
BLOCK_INPUT;
if (width && height)
x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
left, top, width, height, False);
UNBLOCK_INPUT;
{
BLOCK_INPUT;
x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
left, top, width, height, False);
UNBLOCK_INPUT;
}
bar = x_scroll_bar_create (w, top, sb_left, sb_width, height);
}
else
@ -9262,7 +9265,7 @@ XTset_vertical_scroll_bar (w, portion, whole, position)
int rest = area_width - sb_width;
if (rest > 0)
x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
left + area_width - rest, 0,
left + area_width - rest, top,
rest, max (height, 1), False);
}