]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix updating scrollbar sizes when scaling is in effect
authorRobert Pluim <rpluim@gmail.com>
Wed, 20 Dec 2017 08:24:17 +0000 (09:24 +0100)
committerMartin Rudalics <rudalics@gmx.at>
Wed, 20 Dec 2017 08:24:17 +0000 (09:24 +0100)
* 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

index 2708e5f0f7c24a3c4edf755f2826cbf751713a95..ec1f70e46104bca782c61df60eae52f650f4e823 100644 (file)
@@ -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;