[Emacs-diffs] emacs-26 4122d54: Fix updating scrollbar sizes when scaling is in effect

[Martin Rudalics]

branch: emacs-26
commit 4122d54067c61bbdff5aab7ddf5dfe5b5797b218
Author: Robert Pluim <address@hidden>
Commit: Martin Rudalics <address@hidden>

    Fix updating scrollbar sizes when scaling is in effect
    
    * src/gtkutil.c (xg_update_scrollbar_pos): Update width of
    scrollbar when scaling is in effect.
    (xg_update_horizontal_scrollbar_pos): Update scrollbar size
    when scaling is in effect.
---
 src/gtkutil.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/gtkutil.c b/src/gtkutil.c
index 2708e5f..ec1f70e 100644
--- a/src/gtkutil.c
+++ b/src/gtkutil.c
@@ -3890,7 +3890,7 @@ xg_update_scrollbar_pos (struct frame *f,
       top /= scale;
       left /= scale;
       height /= scale;
-      left -= (scale - 1) * ((width / scale) >> 1);
+      width /= scale;
 
       /* Clear out old position.  */
       int oldx = -1, oldy = -1, oldw, oldh;
@@ -3966,6 +3966,12 @@ xg_update_horizontal_scrollbar_pos (struct frame *f,
       GtkWidget *wfixed = f->output_data.x->edit_widget;
       GtkWidget *wparent = gtk_widget_get_parent (wscroll);
       gint msl;
+      int scale = xg_get_scale (f);
+
+      top /= scale;
+      left /= scale;
+      height /= scale;
+      width /= scale;
 
       /* Clear out old position.  */
       int oldx = -1, oldy = -1, oldw, oldh;