From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 29 Jul 1999 15:09:42 +0000 (+0000)
Subject: (x_set_toolkit_scroll_bar_thumb): Fix previous change.
X-Git-Tag: emacs-pretest-21.0.90~7340
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb3935300f1a47074bbca6ccf7ac7b5810ddfc74;p=emacs.git

(x_set_toolkit_scroll_bar_thumb): Fix previous change.
---

diff --git a/src/xterm.c b/src/xterm.c
index 6acc03e51f6..e6b03347d66 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -7469,7 +7469,13 @@ x_set_toolkit_scroll_bar_thumb (bar, portion, position, whole)
        check that your system's configuration file contains a define
        for `NARROWPROTO'.  See s/freebsd.h for an example.  */
     if (NILP (bar->dragging))
-      XawScrollbarSetThumb (widget, top, shown);
+      {
+	float old_top, old_shown;
+	XtVaGetValues (widget, XtNtopOfThumb, &old_top, XtNshown, &old_shown,
+		       NULL);
+	if (top != old_top || shown != old_shown)
+	  XawScrollbarSetThumb (widget, top, shown);
+      }
     else
       {
 	ScrollbarWidget sb = (ScrollbarWidget) widget;