(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 f6bc6515507e634e390b4664d840221cde2d1cc7..d88145c7410f5babd914c067b440040596a50b37 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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

diff --git a/src/xterm.c b/src/xterm.c
index 7463997f8deb88358b331fc6199857063ee2488c..ac1ef97c676a71a564f1db264e984a284690039e 100644 (file)
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -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);
       }