From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 22 Nov 2000 14:27:38 +0000 (+0000)
Subject: (x_set_tool_bar_lines): Clear internal border when
X-Git-Tag: emacs-pretest-21.0.92~181
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6f91066605cb485be14b61e4cd8dc19faa58184;p=emacs.git

(x_set_tool_bar_lines): Clear internal border when
tool bar gets smaller.
---

diff --git a/src/xfns.c b/src/xfns.c
index 5132cd17df5..7210678952d 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -2045,6 +2045,21 @@ x_set_tool_bar_lines (f, value, oldval)
       clear_current_matrices (f);
       updating_frame = NULL;
     }
+
+  /* If the tool bar gets smaller, the internal border below it
+     has to be cleared.  It was formerly part of the display
+     of the larger tool bar, and updating windows won't clear it.  */
+  if (delta < 0)
+    {
+      int height = FRAME_INTERNAL_BORDER_WIDTH (f);
+      int width = PIXEL_WIDTH (f);
+      int y = nlines * CANON_Y_UNIT (f);
+
+      BLOCK_INPUT;
+      XClearArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
+		  0, y, width, height, False);
+      UNBLOCK_INPUT;
+    }
 }