From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 24 Oct 2001 14:05:31 +0000 (+0000)
Subject: (XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
X-Git-Tag: ttn-vms-21-2-B4~19201
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b547b6e89b994636ed0d853916585812dc75ae99;p=emacs.git

(XTset_vertical_scroll_bar) [!USE_TOOLKIT_SCROLL_BARS]:
Fix clearing of area not covered by scroll bar.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 9f5e5f3a3f7..692abf804ca 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +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.
+
 2001-10-24  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
 
 	* xterm.c: (x_insert_glyphs): Remove unused variables `real_end'
diff --git a/src/xterm.c b/src/xterm.c
index bd856f1fda7..d134162f3c3 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -9208,11 +9208,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
@@ -9273,7 +9276,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);
       }