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

(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:

Browse source 
Fix clearing in the case of scroll bars on the right.
This commit is contained in:
Gerd Moellmann 2001-10-26 12:00:28 +00:00
parent 8a41e34fae
commit ae17ab84f9
2 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/ChangeLog
View file

@ -1,5 +1,8 @@
2001-10-26 Gerd Moellmann <gerd@gnu.org>
* xterm.c (XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Fix clearing in the case of scroll bars on the right.
* xfns.c (XScreenNumberOfScreen): Fix struct to pointer
comparison.

14
src/xterm.c
View file

@ -9239,10 +9239,16 @@ XTset_vertical_scroll_bar (w, portion, whole, position)
{
int area_width = FRAME_SCROLL_BAR_COLS (f) * CANON_X_UNIT (f);
int rest = area_width - sb_width;
if (rest > 0)
x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
left + area_width - rest, top,
rest, max (height, 1), False);
if (rest > 0 && height > 0)
{
if (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f))
x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
left + area_width - rest, top,
rest, height, False);
else
x_clear_area (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
left, top, rest, height, False);
}
}
/* Move/size the scroll bar window. */